2015-05-10
699
Оператор варианта
Пусть пользователь вводит целое число от 1 до 10, программа должна приписать к нему слово "ученик" с необходимым окончанием (нулевое, "а" или "ов").
program pr;
var n: integer;
begin
write('Число учеников --> '); readln(n);
write(n,' ученик');
case n of
2..4: write('а');
5..10: write('ов');
end;
readln;
end.
Задание №2
Даны 2 числа а и b и четырёхзначное число s, цифрами которого могут быть 1, 2, 3, 4. Этими цифрами зашифрованы знаки математических операций. Цифра 1 обозначает сложение, цифра 2 обозначает умножение, цифра 3 обозначает вычитание, цифра 4 обозначает деление.
Найти результат вычислений, причём порядок действий таков:
1 – е действие зависит от первой цифры и выполняется между числами a и b;
2 – е действие зависит от второй цифры и выполняется между числом b и результатом 1- го действия;
3 – е действие зависит от третьей цифры и это результат 1-го и 2-го действий;
4 – е действие зависит от четвёртой цифры и это результат 2-го и 3 –го действий.
Задание №3
Оператор безусловного перехода
|
|
|
Написать программу, которая число, введённое с клавиатуры, печатает в виде текста
На примере данной программы можно пронаблюдать работу оператора безусловного перехода
Program Number;
Label
Metka;
Var
a, b, c: integer;
Begin
Metka: writeln (‘Введите цифру ‘);
readln (a);
case a of
0: writeln (‘ноль‘);
1: writeln (‘один‘);
2: writeln (‘два‘);
3: writeln (‘три‘);
4: writeln (‘четыре‘);
5: writeln (‘пять‘);
6: writeln (‘шесть‘);
7: writeln (‘семь‘);
8: writeln (‘восемь‘);
9: writeln (‘девять‘);
else
begin
writeln (‘Это число не является цифрой‘);
Goto Metka;
end;
end;
readln;
End.
В этой программе мы заставляем пользователя правильно ввести цифру. Сколько бы раз пользователь ни вводил числа не из промежутка 0..9, программа будет выдавать сообщение об ошибочном вводе и снова просить ввести цифру.
Задание. Наберите программу и протестируйте ее.
