VPF::Ввод чисел - Форум программистов

banan

Дата 8.12.2004, 00:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 53
Регистрация: 21.11.2004
Где: Киев

Репутация: нет
Всего: нет

вводятся числа от 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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

Репутация: нет
Всего: нет

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

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

markowww

Дата 8.12.2004, 01:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 27.2.2003
Где: В Вологде-где

Репутация: нет
Всего: нет

Наверно девятое число - количество девяток, а не нулей. Нуль всегда 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.

Это сообщение отредактировал(а) markowww - 8.12.2004, 01:07

Ruslan_

Дата 10.12.2004, 20:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.10.2004

Репутация: нет
Всего: нет

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

Код


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.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »