Домашнее
задание №26
Тема: Ветвления
на Паскале. Программирование
диалога с компьютером
диалога с компьютером
|
1. Составьте на Паскале программу определения минимума
из трёх чисел с использованием логических операций. Программа
должна иметь дружественный интерфейс.
|
|
|
program my;
var a,b,c:integer; begin writeLn('a='); readLn(a); writeLn('b='); readLn(b); writeLn('c='); readLn(c); if a<b a<c then writeLn(a, ' - меньшее') else If b<a b<c then wtiteLn(b, '- меньшее') else If c<a c<b writeLn(c, ' - меньшее') else If a=b=c writeLn('числа равны') end. |
|
|
2. Составьте на Паскале программу,
которая запрашивает возраст двух детей (Саши и Маши), а затем выводит
информацию о том, кто из них старше.
|
|
|
program my; var a,b:integer; begin writeLn('Возраст Саши'); readLn(a); writeLn('Возраст Маши'); readLn(b); if a>b Then writeLn('Саша старше Маши') else if b<a then wtiteLn('Маша старше Саши') else If a=b then writeLn ('Возраст Маши равен возрасту Саши') end. |
|
|
3. Запишите на языке Паскаль программу, которая по номеру
для недели будет выводить его название.
|
|
|
program my;
var x:integer;
begin
writeln(‘номер дня недели’); readln(x); if x=1 Then writeLn('понедельник') else If x=2 Then writeLn('вторник')
else
If x=3 Then writeLn('среда')
else If
x=4 Then writeLn('четверг')
else If
x=5 Then writeLn('пятница')
else If
x=6 Then writeLn('суббота')
else If
x=7 Then writeLn('воскресенье')
else
If x>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.
|
|
|
Эта программа вычисляет
количество введенных чисел больше нуля.
Пример исходных данных и результата:
|
