Паскаль АБС.Графика

[dimka123]

помогите соединить эти два кода... и вывести полученные X и Y из первого кода на рисунок второго кода..
1 код

var
x,y: real; n,i,x0, y0, k: integer;
begin ;

x := 0.0;

writeln(' x ','     ','y ');
while x<=6.28 do begin
y := sin(x);
writeln(x:4:2,' | ',y:4:2);
x := x + 0.05;

end;
end.

2 код

program sin_x;
uses graphABC;
var x, y, x0, y0, k:integer;
begin
line(20,240,620,240);
line(320,20,320,400);
X0:=320;
Y0:=240;
k:=50;
while x<=6.28 do 
for X:=-320 to 320 do
    begin
         y:=trunc(k*sin(x/k));
         PutPixel(x0+x,y0-y,clRed);
    end;
TextOut (50,40,'Grafic y=sin x');
end.

[ZX Spectrum-128]

program sin_x;
uses graphABC;
var 
  x, y, x0, y0, k:integer;
  x1,y1:real;
begin
  //InitWindow(0,0,900,700,clwhite);
line(20,240,620,240);
line(320,20,320,400);
X0:=320;
Y0:=240;
k:=50;

for X:=-320 to 320 do
    begin
         y:=trunc(k*sin(x/k));
         PutPixel(x0+x,y0-y,clRed);
    end;

x1 := 0.0;
writeln(' x ','     ','y ');
while x1<=6.28 do 
  begin
    y1 := sin(x1);
    writeln(x1:4:2,' | ',y1:4:2);
    x1 := x1 + 0.05;
end;    
TextOut (100,40,'Grafic y=sin x');
end.

[dimka123]

Сообщение от ZX Spectrum-128

program sin_x;
uses graphABC;
var 
  x, y, x0, y0, k:integer;
  x1,y1:real;
begin
  //InitWindow(0,0,900,700,clwhite);
line(20,240,620,240);
line(320,20,320,400);
X0:=320;
Y0:=240;
k:=50;

for X:=-320 to 320 do
    begin
         y:=trunc(k*sin(x/k));
         PutPixel(x0+x,y0-y,clRed);
    end;

x1 := 0.0;
writeln(' x ','     ','y ');
while x1<=6.28 do 
  begin
    y1 := sin(x1);
    writeln(x1:4:2,' | ',y1:4:2);
    x1 := x1 + 0.05;
end;    
TextOut (100,40,'Grafic y=sin x');
end.

а если ,по полученным координатам из 1 кода , построить график? то в цикле for нужно x:=0 to x<=6.28 do ? или как ?)

[ZX Spectrum-128]

http://nabasice.narod.ru/index/0-17
Хорошо и понятно обьясняется.