Текущий архив: 2007.04.29;
Скачать: CL | DM;
Вниз
помогите составить программу в 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;
← →
default © (2007-04-08 14:23) [4]
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]Ребята, спасибо вам большое, что откликнулись. Завтра лаба, в программировании я полный ноль, так что вы очень помогли. Еще раз ОГРОМНОЕ вам СПАСИБО за то, что помогаете, таким "чайникам", как я!!!
Страницы: 1 вся ветка
Текущий архив: 2007.04.29;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.04 c
