Форум: "Начинающим";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];

Вниз

помогите составить программу в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.043 c