Przykłady algorytmów klasycznych

program Euklides;
uses crt;
var a,b:integer;
begin
  clrscr;
  writeln('Podaj a i b');
  readln(a,b);
  while a<>b do
  begin
    if a>b then a:=a-b else b:=b-a;
  end;
  writeln('NWD = ',a);
  readkey;
end.


program spirala_Archimedesa;
uses crt,graph;
var s,t:integer;
    c:real;r:real;
    xp,yp:integer;
    x,y:integer;
    fi:integer;

begin
  initgraph(s,t,'');
  xp:=getmaxx div 2; yp:=getmaxy div 2;
  c:=0.125;
  for fi:=0 to 1440 do
  begin
    r:=c*fi;
    x:=round(r*cos (fi*pi/180));
    y:=round(r*sin (fi*pi/180));
    putpixel(xp+x,yp+y,yellow)
  end;
  readkey;
  closegraph;
end.