Program funkciya_18;
Uses Graph,CRT;
Var Driver,Mode: integer;
Y, X, h:real;
i, a, b, Xg, Yg: integer;
Begin
write ('Vvedite a '); Read(a);
write ('Vvedite b '); Read(b);
h:=Round(b-a)/(10+1);
writeln;
writeln('h = ',h:5:2);
writeln;
X:=a;
writeln('X',' ','Y');
for i:=a to b do
begin
Y:= sin(1\x) + 2;
writeln(X:2:2,' ',Y:2:2);
X:=X+h;
end;
readln;
{postroenie grafika}
driver:= detect;
InitGraph(driver, mode, 'd:\BP\BGI');
SetColor(White);
SetBkColor(Black);
line(10,90,200,90);
line(10,20,10,160);
X:=0;
for i:= 0 to 190 do
begin
Xg:=10+Round(95/Pi*X);
Yg:=90-Round(50*(sin(1/x)+2);
PutPixel(Xg,Yg,Red);
X:=X+Pi/95;
end;
OutTextXY(15,30,'Y');
OutTextXY(205,90,'X');
OutTextXY(130,40,'Y=sin(1\x)+2);
Readln;
CloseGraph;
End.
Сообщение отредактировано: kess -