h1

Программа, выводящая сообщение «Вам *** лет/год»

Июль 2, 2009

Программа, выводящая сообщение «Вам *** лет/год», в зависимости от введенного числа. Написана в процессе изучения языка Delphi, когда экспериментально узнавал можно ли в Delphi использовать несколько диапозонов значений селектора при использовании цикла case. Оказалось, нет, в Delphi так делать нельзя, но в Pascale можно, что доказывает данная программа.

program gg;
uses crt;
var age:byte;
begin
clrscr;
writeln(‘vvedite vas vozrast po pasporty’);
readln(age);
case age of
1,21,31,41,51,61,71,81,91: writeln(‘vam ‘,age,’ god’);
2,3,4,22,23,24,32..34,42..44,52..54,62..64,72..74,82..84,92..94:
writeln(‘vam ‘,age,’ goda’);
5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..99:
writeln(‘vam ‘,age,’ let’);
end;
readkey;
end.

Реклама

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: