1. Составьте на
Паскале программу определения минимума из трёх чисел с использованием
логических операций. Программа должна иметь дружественный интерфейс.
Program one
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 two
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 three
Var x:integer;
Begin
WriteLn('Введите номер дня недели')
ReadLn(x);
If x=1 Then WriteLn('понедельник')
Else If x=2 Then WriteLn('вторник')
Program one
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 two
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 three
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.
Эта программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
I
x=5
y=-3
z=1
i=2
II
x=0
y=28
z=-5
i=1