1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.
Program one
Var a,b,c:integer;
Begin
WriteLn('a=');
ReadLn(a);
WriteLn('b=');
ReadLn(b);
WriteLn('c=');
ReadLn(c);
If (a<b) and (a<c) Then Writeln(a, '-меньшее')
Else If (b<a) and (b<c) Then Writeln(b, '-меньшее')
Else If (c<a) and (c<b) Then Writeln(c, '-меньшее')
Else if a=b=c Then 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.
Program one
Var a,b,c:integer;
Begin
WriteLn('a=');
ReadLn(a);
WriteLn('b=');
ReadLn(b);
WriteLn('c=');
ReadLn(c);
If (a<b) and (a<c) Then Writeln(a, '-меньшее')
Else If (b<a) and (b<c) Then Writeln(b, '-меньшее')
Else If (c<a) and (c<b) Then Writeln(c, '-меньшее')
Else if a=b=c Then 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
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
