Ветвления на
Паскале.
Программирование
диалога с компьютером.
1. Составьте на Паскале программу определения минимума
из трёх чисел с использованием логических операций. Программа
должна иметь дружественный интерфейс.
|
program minimum;
var A,B,C,D: real;
begin
readln (A,B,C)
if (A<=B) and (A<=C) then D:=A;
if (B<=A) and (B<=C) then D:=B;
if (C<=A) and (C<=B) then D:=C;
writeln("Наименьшее число";D);
end.
|
2. Составьте на Паскале программу,
которая запрашивает возраст двух детей (Саши и Маши), а затем выводит
информацию о том, кто из них старше.
|
program Age;
var S,M:integer;
begin
write("Возраст Саши");
readln(S);
write("Возраст Маши");
readln(M);
if M>S then writeln("Маша старше");
if S>M then writeln("Саша страше");
end.
|
3. Запишите на языке Паскаль программу, которая по номеру
дня недели будет выводить его название.
|
program day;
var D:integer;
begin
write("Введите номер дня недели");
readln(D);
if D=1 then writeln("Понедельник");
if D=2 then writeln("Вторник");
if D=3 then writeln("Среда");
if D=4 then writeln("Четверг");
if D=5 then writeln("Пятница");
if D=6 then writeln("Суббота");
if D=7 then writeln("Воскресенье");
end.
|
4. Что вычисляет
приведённая ниже программа? Приведите два примера исходных данных и
результата
Program example;
Var x,y,z,I :integer;
Begin
ReadLn(a,b,c);
i:=0;
If a>0 then i:=i+1;
If b>0 then i:=i+1;
If c>0 then i:=i+1;
WriteLn(i)
End.
|
Эта программа вычисляет количество положительных чисел.
Например:
1) а=3; b=6; c=1, тогда i=3
2) a=2; b=0; c=-4, тогда i=1
|
