{y=tgx (счётный цикл)}

Program san1;
uses crt;
var xn,xk,x,y,h:real;
i,m:integer;
Begin clrscr;
writeln ('Vvedite nachalo otrezka:') ;
readln(xn);
writeln ('Vvedite konec otrezka:');
readln(xk);
writeln('Vvedite shag:');
readln(h);
writeln;
m:=trunc(((xk-xn)/h)+1);
x:=xn;
writeln(#218,#196,#196,#196,#196,#196,#196,#194,#196,#196,#196,#196,#196,#196,#191);
writeln(#179,' X ',#179,' Y ',#179);
writeln(#195,#196,#196,#196,#196,#196,#196,#197,#196,#196,#196,#196,#196,#196,#180);
while x<>(xk+h) do begin
y:=sin(x)/cos(x);
writeln(#179,x:6:3,#179,y:6:3,#179);
x:=x+h;
end;
writeln(#192,#196,#196,#196,#196,#196,#196,#193,#196,#196,#196,#196,#196,#196,#217);
readln
end.

{y=tgx (с предусловием)}
...
while x<>(xk+h) do begin
y:=sin(x)/cos(x);
writeln(#179,x:6:3,#179,y:6:3,#179);
x:=x+h;
end;
...

{y=tgx (с постусловием)}
...
repeat
y:=sin(x)/cos(x);
writeln(#179,x:6:3,#179,y:6:3,#179);
x:=x+h
until x=(xk+h);
...





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.