Алгоритмы и программы. Афанасьева Т. В - 67 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

67
program es;
label 1;
var
b,c:integer;
begin
1:writeln ('Введите В и С');
read(b,c);
if b>=c then goto 1
else writeln ('B меньше С);
end.
При выполнении данной программы сообщение «Введите В и С»
будет выводиться на экран пока вы не введете b < c. В этом случае на экран
будет выдано сообщение «В меньше С» и программа закончит
свою работу.
Cтарайтесь обходиться в программах без меток
и Вы
начнете себя уважать.
Рассмотрим некоторые программы, реализующие разветвляющиеся
алгоритмы:
Пример 3.1. Поиск максимального из двух введенных чисел.
program n;
var a,b :integer;
begin
writeln('Введите два числа ');
write('Введи a= ');
readln(a);
write('Введи b= ');
readln(b);
if a>b then write('максимальное число a= ',a)
else
begin
if a=b then
write('Вы ввели два равных числа ');
if a<b then
write('Максимальное число b= ',b);
end;
readln;
end.
Пример 3.2. Поиск максимального четного числа из двух введенных.
program kurs4;

Страницы