Ставим мы тут пингвина в школе,и детишкам нужно програмировать на любимом паскале, для этого дела поставили консольный fp но народ туго осваевает, если у кого-то опыт?
>да и нету там graph под linux
% ls /usr/lib/fpc/2.2.0/units/i386-linux/graph 21:00 pts/2
Package.fpc ggigraph.o ggigraph.ppu graph.o graph.ppu libpggigraph.a libpgraph.a
это разве не оно?
>это разве не оно?
program pr8;
uses graph;
const dx=1e-1;
var x:real;
i:integer;
procedure Init;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
end;
begin
init;
x:=0;
i:=1;
while(i<=100) do
begin
circle(i*5,trunc(240-sin(x)*100),3);
x:=x+dx;
inc(i);
end;
readln;
closegraph;
end.
check this... когда-то эта прога что-то делала...