| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

помогите составить программу в Delphi6 [D6, 2000]

kate_1 ©   (2007-04-08 13:46:00) 

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

---

kate_1   (2007-04-09 17:24:00) [1]

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

---

default   (2007-04-08 14:23:00) [2]


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;


---

PZ   (2007-04-08 14:14:00) [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;


---

Anatoly Podgoretsky   (2007-04-08 13:59:00) [4]

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

---

sinus   (2007-04-08 13:50:00) [5]

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

---

Наверх