Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 15 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

14
and (логическое И), и, во-вторых, при выполнении условия должно быть вы-
полнено два оператора (
write и case), поэтому они заключаются в оператор-
ные скобки (
begin end).
Полный текст программы будет выглядеть следующим образом:
program SchoolChildren;
var n: integer;
begin
writeln;
writeln(’ Автор – Иванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант № 100’);
writeln(’Программа вводит целое число от 1 до 10 и приписывает
окончание к слову ученик’);
writeln;
write('Число учеников --> '); readln(n);
if (n>=1) and (n<=10) then
begin
write(n,' ученик');
case n of
2..4: write('а');
5..10: write('ов');
end;
end
else
writeln(' ошибка ввода!');
readln;
end.
Варианты заданий
1. Дан номер месяца (1 – январь, 2 – февраль, ...). Вывести название соответ-
ствующего времени года («зима», «весна» и т. д.).
2. Дан номер месяца (1 – январь, 2 – февраль, ...). Вывести число дней в этом
месяце для невисокосного года (т. е. в феврале 28 дней).
3. Дано целое число в диапазоне от 0 до 9. Вывести строку – название
соответ-
ствующей цифры на русском языке (0 – «ноль», 1 – «один», 2 – «два», ...).
4. Дано целое число в диапазоне от 1 до 5. Вывести строку – словесное опи-
сание соответствующей оценки (1 – «плохо», 2 – «неудовлетворительно»,
3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично»).
5. Арифметические действия над числами пронумерованы следующим обра-
зом: 1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление. Дан номер
действия и два числа A и B (В
не равно нулю). Выполнить над числами
указанное действие и вывести результат.

Страницы