Paskal - Uholnik – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

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

 
Hledat
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno
Pergoly a střechy Brno

doma22
~ Anonymní uživatel
94 příspěvků
6. 2. 2021   #1
-
0
-

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.

Nahlásit jako SPAM
IP: 178.143.117.–
doma22
~ Anonymní uživatel
94 příspěvků
6. 2. 2021   #2
-
0
-

#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

Nahlásit jako SPAM
IP: 178.143.117.–
gna
~ Anonymní uživatel
1419 příspěvků
6. 2. 2021   #3
-
0
-

   

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.
Nahlásit jako SPAM
IP: 213.211.51.–
doma22
~ Anonymní uživatel
94 příspěvků
6. 2. 2021   #4
-
0
-

#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?

Nahlásit jako SPAM
IP: 178.143.117.–
gna
~ Anonymní uživatel
1419 příspěvků
6. 2. 2021   #5
-
0
-

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

Nahlásit jako SPAM
IP: 213.211.51.–
doma22
~ Anonymní uživatel
94 příspěvků
6. 2. 2021   #6
-
0
-

#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ú

Nahlásit jako SPAM
IP: 178.143.117.–
doma22
~ Anonymní uživatel
94 příspěvků
6. 2. 2021   #7
-
0
-

#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

Nahlásit jako SPAM
IP: 178.143.117.–
doma22
~ Anonymní uživatel
94 příspěvků
6. 2. 2021   #8
-
0
-

#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

Nahlásit jako SPAM
IP: 178.143.117.–
doma22
~ Anonymní uživatel
94 příspěvků
7. 2. 2021   #9
-
0
-

#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ť?

Nahlásit jako SPAM
IP: 178.143.117.–
gna
~ Anonymní uživatel
1419 příspěvků
7. 2. 2021   #10
-
0
-

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

Nahlásit jako SPAM
IP: 213.211.51.–
Zjistit počet nových příspěvků

Přidej příspěvek

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 2 hosté

Podobná vlákna

Paskal - Mnoziny — založil doma22

Paskal - Polygon — založil doma22

Paskal - Kreslenie — založil doma22

Prosím pomozte s paskalem — založil mr.mistr

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý