PASCAL PROGRAM

[RP]

Tu to mas:

Kód: Vybrať všetko

Program fcia;

var x,y:real;

Begin

x := -1.0;
writeln('    x    |   y=x   |y=sqrt(x)| y = sin(x) ');

repeat

write(x:8:2,' |');
y := x;
write(y:8:2,' |');
if y>=0 then
begin
y := sqrt(x);
write(y:8:3,' |');
end;
if y<0 then write('  nedef. |');
y := sin(x);
writeln(y:8:2);

x := x + 0.2;
until x>1.0;

End.

V zadani nie je upresnene ci pre sin(x) je x v radianoch alebo stupnoch. V programe predpoklam, ze je to v radianoch.

A nabuduce sa skus posnazit viac sam