Домашнее задание №26

Тема: Ветвления на Паскале. Программирование
диалога с компьютером.

1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс.

Program neo;
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 neo1;
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=3, y=-2, z=11, i=2
2)x=9, y=-7, z=0, i=1