Домашнее задание №26. Ветвления на Паскале. Программирование диалога с компьютером.

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.

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

Практическое название №20. Знакомство с языком Паскаль

Номер 1.

Program my;

var a,b,c,d,e:real;

begin

read(a,b,c,d);

e:=(a+b+c+d)/4;

writeln(e:0:4);

end.

Номер 2.

Program my;

var a,b,c,d:integer; x1,x2:real;
begin
writeln('Введите коэффициенты');
readln(a,b,c);
d:=b*b-4*a*c;
if (d<0) then writeln('Нет решения')
else if (d=0) then 
begin
x1:=-b/(2*a);
writeln('x=',x1);
end
else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1,'x2=',x2);
end;

readln
end.

Номер 3.

Program my;

var

    R1, R2: real;
begin
    write('Введите данные - ');
    read(R1, R2);
    writeln('Pi = ', pi);
    writeln('S = ', pi * abs(R1 * R1 - R2 * R2));
end.