Домашнее
задание №26
Тема:
Ветвления на Паскале. Программирование
диалога с компьютером
диалога с компьютером
1. Составьте на Паскале
программу определения минимума из трёх чисел с использованием логических
операций. Программа должна иметь дружественный интерфейс.
|
Program my1;
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 my2; 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 my3;
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.
|
Эта программа вычисляет количество
введенных чисел больше нуля.
Пример исходных данных и результата: 1)x=11, y=0, z=-9, i=1
2) x=4, y=-5, z=10, i=2
|