Обчислення функції

1

Складіть програму, яка обчислює значення y  для будь-якого дійсного X, що введено з клавіатури.

Var x,y:real;
begin
  write('x=');read(x);
  if x<5 then y:=(4*sqr(x)+1)/(x-5) 
         else y:=3*sqr(x)-2;
  Writeln(y:1:2);
end.

...............

Перевірка

Вхід 7

Вихід 145

...............

2

Складіть програму, яка обчислює значення y для будь-якого дійсного X, що введено з клавіатури.

program FUnkcii_1;
uses crt;
Var x,y:real;
BEGIN
  write('x=');read(x);
  if x>1 then y:=2
  else y:=1+x;
  Writeln(y:1:2);
END.
.............................

Перевірка

Вхід -45

Вихід -44

............................

3

program Lift;

uses crt;

const h=8;d=10;m=87;g=75;max=500;

var x,y:real;

BEGIN

Writeln('vedit kl khlopciv');

read(x);

y:=8*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('vedit kl divchat');

read(x);

y:=10*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('vedit kl cholovikiv');

read(x);

y:=87*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('vedit kl jinok');

read(x);

y:=75*x;

if y<=max then writeln('lift poide')

else writeln('lift ne poide');

readln;

END.

.............................

4

program Lift_2;

uses crt;

const h=8;d=10;m=87;g=75;max=500;

var x,y,c,n,b:real; u:byte;

BEGIN

Repeat

Writeln('vedit kl khlopciv');

read(x);

Writeln('vedit kl divchat');

read(y);

Writeln('vedit kl cholovikiv');

read(c);

Writeln('vedit kl jinok');

read(n);

b:=(x*8)+(y*10)+(c*87)+(n*75);

if b<=max then writeln('lift poide')

else writeln('lift ne poide');

Writeln('zakinchutu=0 prodovjitu=2');

Read(u);

until u=0;

END.

.................................