Ветвление в Паскале. Решение задач

Ветвление в Паскале. Решение задач

Задание 1. Составить программу на нахождения меньшего числа из двух

Var

a,b:real;

begin

  ReadLn(a, b);

  if a>b then

  WriteLn(b)

    else

  WriteLn(a);

end.

Задание 2. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в два раза, иначе увеличить в два раза.

Var

x,y,a:real;

begin

  ReadLn(x,y);

  if x+y>100 then

  a := (x+y)/2

    else

    a := (x+y)*2;

  WriteLn(a);

end.

Задание 3. Ввести число, если оно неотрицательное, то вычесть из него 50, иначе прибавить к нему 100.

Var

a,b:real;

begin

  ReadLn(a);

  if a>0 then

  b:=a-50

    else

    b:=a+100;

  WriteLn(b);

end.

Задание 4. Ввести 2 числа. Если их произведение отрицательно, умножить его на (-2), иначе увеличить в 3 раза.

Var

x,y,a:real;

begin

  ReadLn(x,y);

  if x*y<0 then

  a := (x*y)*(-2)

    else

    a := (x*y)*3;

  WriteLn(a);

end.

Задание 5. Составить программу для сравнения двух чисел и записать значение меньшего числа.

Var

x,y,a:real;

begin

  ReadLn(x,y);

  if x<y then

  a := x

    else

    a := y;

  WriteLn(a);

end.

Задание 6. Вычислить значение функции

Var

x,y:real;

begin

  ReadLn(x);

  if x>=4 then

  y:=5*x-2

    else

  y:=0;

  WriteLn(y);

end.