Paskal - Uholnik – Pascal – Fórum – Programujte.com

Pozrel som si ten link, čo ste mi odporučili pri grafike, a zaujal ma tam príklad na uholník. Príklad som si odkopíroval zdrojový kód, ale čistý zdrojový kód mi paskal nechce kompilovať, lebo stále má problém s posledným end, a ak tam pridám ešte jeden begin, tak nevidím  žiaden uholník, iba čiernu obrazovku. Mohli by ste mi s tým helfnúť? Tu je zdrojový kód po prepise a úprave, aby bol aspoň spustiteľný, ale ako som už písal, po úprave vidím iba čiernu obrazovku.

#1 doma22 

program Uholnik1;

uses  Crt, Graph;

{----------------------------------------------------------------------}
procedure Uholnik (N: Byte; SX, SY: Integer; R: Word);
{----------------------------------------------------------------------}

 var Zoznam : array[Byte] of record            { zoznam vrcholov        }
                              X, Y: Integer
                             end;
     Alfa   : Real;                            { stredovy uhol         }
     I      : Byte;                            { index vrcholu         }

begin
 begin { Uholnik }
  if N > 2 then                                 { minimálne trojuholník }
   begin
    Alfa := 2 * Pi / N;                         { vypocet uhlov          }
    for I := 0 to N - 1 do                      { pre vsetky vrcholy   }
     with Zoznam[I] do
      begin
       X := SX + Round(R * Cos(I * Alfa));      { vypocet súradnic     }
       Y := SY + Round(R * Sin(I * Alfa));
      end;
     end;
    Zoznam[N] := Zoznam[0];                     { uzavreny polygon      }
    DrawPoly(N + 1, Zoznam);                    { kresba                }
    readln;
   end;
 end; { Uhelnik }
  begin
  readln;
  CloseGraph;
end.

pridal som tu ako vidíte begin - readln ....., lebo inak mi paskal nechcel vôbec kompilovať príklad z linku

uses
  crt, graph;

procedure Uholnik(N: Byte; SX, SY: Integer; R: Word);
var
  Zoznam : array[Byte] of record
                            X, Y: Integer
                          end;
  Alfa   : Real;
  I      : Byte;
begin
  if N > 2 then
    begin
      Alfa := 2 * Pi / N;
      for I := 0 to N - 1 do
        with Zoznam[I] do
          begin
            X := SX + Round(R * Cos(I * Alfa));
            Y := SY + Round(R * Sin(I * Alfa));
          end;
      Zoznam[N] := Zoznam[0];
      DrawPoly(N + 1, Zoznam);
    end;
end;


var
  gd, gm: integer;
  error: integer;

begin
  gd := VGA;
  gm := VGAhi; // 640x480x16
  InitGraph(gd, gm, '');
  error := GraphResult;
  if error <> grOk then
  begin
    writeln(GraphErrorMsg(error));
    exit;
  end;

  Uholnik(3, 100, 100, 100);
  Uholnik(8, 400, 100, 100);

  readln;
  CloseGraph;
end.

#3 gna
Aha ďakujem veľmi pekne, takže chybu som urobil v tom, že v podstate som prvý krok urobil ( procedúra ), ale druhý krok ( zadanie ) som úplne vypustil?

To párování begin-end je úplně blbě. Nevím, z čeho jsi vycházel, tak nevím, kde jsi udělal chybu.

#3 gna
Viem, že moje otázky sú pre Vás profikov asi dosť otravné, ale pýtam sa ich hlavne preto, aby som nie len ako sa povie odkopíroval, ale i pochopil, to hlavne preto, aby som, čo najviac eliminoval možné problémy pri tom, ako prejdem úplne na Cečko, aj keď viem, že určite i tam sa nejaké vyskytnú

#5 gna
No išlo mi o to, aby sa to grafické okno, čo vybehne po spustení programu, tak aby sa enterom zavrelo, neviem prečo to blblo, v predchadzajúcich prípadoch ( kde  sme riešili vyplnení kruh ) to fungovalo, proste snažil som sa o to, aby každý begin mal svoj end

#7 doma22
Ako keď sa pozerám na to čo som mal ja a čo ste mi dali Vy, tak to druhé var som úplne vypustil, preto som to pochopil tak, že môj program je ako keby nedokončený, a polovica mu chýba, takže preto som písal, že v podstate som urobil krok A ale už nie krok B

#3 gna
Vyskúšal som niekoľko krát opravený program, ale to close vôbec nefunguje, grafické okno vypnem iba klasicky krížikom, takže môžem to close odstrániť, alebo to tam musí byť?

To je to samé jako u toho polygonu. Prostě ti to visí v readln.