Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Ввод чисел

Автор: banan 8.12.2004, 00:31

вводятся числа от 1 до 9 до тех пор пока не будет введено 0.
ПРограма должна подщитать количесьво ввода числа в
последовательности.
ПРмер входящих данных:1 1 4 1 5 8 6 4 5 1 0
Пример исходящих данных:4 0 1 1 2 1 0 1 0
Первое число (4) ето количество 1 Девятое количество нулей

Автор: Mde 8.12.2004, 01:00

Создай массив на 10 эл-тов и проверяй введеное число до тех пор пока не введен "0" В цикле ячейки массива присваивай по 1 соотв числу.
Например
Пусть ячейка B[1] - кол-во введеных едениц введена "1" ечейке плюс один и так далее

Писать влом если не нечинающий поймешь ежли начинающий прочти л-ру по циклам Нужен цикл WHILE Все.

Автор: markowww 8.12.2004, 01:05

Наверно девятое число - количество девяток, а не нулей. Нуль всегда 1.

Код


var a: array[1..9] of integer;
     b, i: integer;
begin
   readln(b);
   while b <> 0 do begin
     a[b]:= a[b] + 1;
     readln(b);
   end;
   for i:= 1 to 9 do
     write(a[i], ' ');
   readln;
end.

Автор: Ruslan_ 10.12.2004, 20:06

Если тебе программка все еще нужна, то попробуй такой код:

Код


uses crt;
var a: array['1'..'9'] of byte; {массив, о котором говорил Mde}
    ch,i:char;

Begin
fillchar(a,9,0); {инициализация массива (заполнение нулями)}
writeln('Write numbers');
ch:=readkey;
while ch<>'0' do
begin
  if (ch>='0')and(ch<='9') then
  begin
    write(ch,' ');
    inc(a[ch]); {подсчет встреченных цифр}
  end;
  ch:=readkey;
end;
writeln('Result');
for i:='1' to '9' do
  write(a[i],' ');
write(0); {"Нуль всегда 1" - кто-то это уже говорил... :)}
readln;
End.

Удачи!

Автор: Elfin 13.12.2004, 01:02

можно так есче...

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,n: integer; a: array [1..9] of integer;

begin
repeat
readln(n);
for i:=1 to 9 do
if i=n then a[i]:=a[i]+1;
until n=0;
for i:= 1 to 9 do
write(a[i], ' ');
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.