среда, 7 мая 2014 г.

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

№1.
  Else If r<a and r<i Then WtiteLn('Меньшее число -' r)  Else If i<a and i<r WriteLn('Меньшее число -' i)№2№3№4.

Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.
Program meat;
Var a,r,i:integer;
Begin
  Write('Введите числа.')
  Writeln('a=');
  ReadLn(a);
  Writeln('b=');
  ReadLn(b);
  Writeln('c=');
  ReadLn(c);
If a<r and a<i Then WriteLn('Меньшее число -' a)
  Else If a=r=i WriteLn('Числа равны')
end.
Program age;
Var a,b,i: integer;
Begin
Writeln(‘Введите возраст Саши.’);
Readln(a);
Writeln(‘Введите возраст Маши.’);
Readln(b);
if a>b then WriteLn ('Саша - старший ребенок')
else if b>a then WriteLn ('Маша - старший ребенок')
else if a=b then WriteLn ('Дети одинакового возраста')
End.
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('Введите номер дня от 1 до 7');
  Else if x<1 Then WriteLn ('Введите номер дня от 1 до 7')
End.
Данная программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
1) x=4; y=-234; z=335; i=2
2) x= -13467; y=-35654; z=-235; i=0