2 odpowiedzi w tym temacie

[proquest]

Jak jest wzór, algorytm, potrzebne do napisania programu. Widziałem tu taki temat, ale link był już nieaktywny.

[bartifka]

Sprawdź czy nie ma błędów, ale nie powinno być. Masz gotowca, daj do pascala i skompiluj.

program smok;
var
m,n,licznik,liczba : integer;
tablica : array [1..5001, 1..3] of Extended;
xp1,xp2,yp1,yp2: integer;
uklad,ukladx,uklady: smallint;
xlos, ylos : integer;
xwylosowany,ywylosowany : real;
x,y:Extended;
begin
randomize;
licznik:=0;
{LOSOWANIE 50000 liczb i dodawanie ich do tablicy}
repeat
  inc(licznik);
  tablica[licznik,1]:=licznik;
  uklad:=1+random(2);
  ukladx:=uklad;
  uklady:=uklad;
  xlos:=random(101);
  xwylosowany:=xlos;
  ylos:=random(101);
  ywylosowany:=ylos;
    case ukladx of
      1 : x:=-0.4*xwylosowany-1;
      2 : x:=0.76*xwylosowany-0.4*ywylosowany;
      else writeln('blad');
    end;
    case uklady of
     1 : y:= 0.4*ywylosowany+0.1;
     2 : y:= 0.4*xwylosowany+0.76*ywylosowany;
      else writeln('blad');
    end;
  tablica[licznik,2]:=x;
  tablica[licznik,3]:=y;
until tablica[licznik,1]=5000;
{Wyswietlanie i zapisywanie liczb w pliku zadaniex.txt}
licznik:=0;
repeat
  inc(licznik);
  write(tablica[licznik,2]);
  writeln(tablica[licznik,3]);
until licznik=5000;
readln;
end.

[proquest]

a jak zrobić, zeby to narysował w trybie graph?