Цитата:
Сообщение от Su-34
a=-7 b=1
|
А почему Вы берёте такие странные пределы? Ведь справа указано: от 0 до 4
π, т.е от 0 до где-то 12.57. Такие и надо брать.
Переписал Вашу программу с VF на Паскаль, практически ничего в ней не меняя:
Код:
var
a,b,h,x,y,r,f:real;
i,N:integer;
ff:TEXT;
begin
Assign(ff,'D:\lab1.dat');
ReWrite(ff);
a:=0;
b:=Pi*4;
N:=100;
h:=(b-a)/N;
for i:=0 to N do
begin
f:=a+h*i;
r:=sin(f/2);
x:=r*cos(f);
y:=r*sin(f);
writeln(ff,x:8:5,' ',y:8:5);
end;
Close(ff);
end.
запустил и - пожалуйста (построено в пакете ORIGIN):
Так что всё дело только в правильной установке пределов.