помогите составить программу в Delphi6

← →
kate_1 (2007-04-08 13:46) [0]

Как при помощи инструкции while составить программу, которая бы вычисляла, сколько раз данная цифра встречается в целом числе?

← →
sinus © (2007-04-08 13:50) [1]

скачай парочку учебников по Паскалю...там это алгоритм уже за тебя написали, за одно и что-то еще к будующим лабораторным найдешь

← →
Anatoly Podgoretsky © (2007-04-08 13:59) [2]

Одной инструкцией while тут не обойтись

← →
PZ (2007-04-08 14:14) [3]

Как один из вариантов решения:

procedure TForm1.Button1Click(Sender: TObject); Var R, I, N : Integer; S : String; C : Char; begin R := Random(100000000000); S := IntToStr(R); I := 1; N := 0; // Количество вхождений C := "5"; // Контролируемая цифра While I <= Length(S) do begin If C = S[I] then Inc(N); Inc(I); end; Label1.Caption := S+" "+IntToStr(N); // Посмотреть результат end;

var digitCount: Array[0..9] of Integer; N: Integer; begin ... N := 2342; // для примера if N = 0 then Inc(digitCount[0]); while N <> 0 do begin Inc(digitCount[N mod 10]); N := N div 10; end;

← →
kate_1 (2007-04-09 17:24) [5]

Ребята, спасибо вам большое, что откликнулись. Завтра лаба, в программировании я полный ноль, так что вы очень помогли. Еще раз ОГРОМНОЕ вам СПАСИБО за то, что помогаете, таким "чайникам", как я!!!

помогите составить программу в Delphi6 Найти похожие ветки