Pascaluv trojuhelnik – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Pascaluv trojuhelnik – Delphi – Fórum – Programujte.comPascaluv trojuhelnik – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
karel
~ Anonymní uživatel
121 příspěvků
25. 5. 2012   #1
-
0
-

Zdravim všechny.

Potřeboval bych vysvětlit pár řádek z mého programu.

Z části jsem ho vymyslel, ale pár podmínek jsem našel na netu potřeboval bych je trošičku popsat, díky.

Jedná se o program, který má vykreslit pascaluv trojuhelnik.

Zatim moje řešeni. Budu vděčnej za každý náznak nevim si rady od toho for cyklu. 

const Max = 15;
      FF  = 10;
  type troj = array [1..Max] of integer;
  var I,J : integer;
      A : troj;
      n : integer;
  begin
  repeat
   writeln('zadej rad trojuhelniku');
   readln(n);
   until (n>=1) and (n<=max);
   for I:=1 to n do begin
        A[1]:=1;
        A[I]:=1;
        for J:=I-1 downto 2 do
        A[J]:=A[j-1]+A[J];
        write('':5*(n-I));
        for J:=1 to I do
        write (A[J]:FF);
        writeln;
      end;
  readln;
  end.

Nahlásit jako SPAM
IP: 90.177.64.–
Reklama
Reklama
Honzc0
Stálý člen
26. 5. 2012   #2
-
0
-

const Max = 15;
      FF  = 6;
  type troj = array [1..Max] of integer;
  var I,J : integer;
      A : troj;
      n : integer;
begin
  repeat
    writeln('zadej rad trojuhelniku');
    readln(n);
  until (n>=1) and (n<=max);  //Tady je pole A (dlouhe Max) naplnene nulami
  for I:=1 to n do //cyklus pro propostupne zvysovani I od 1 do n (n=rad P.t.)
  begin
    A[1]:=1;  //prvnimu clenu pole se priradi jednicka
    A[I]:=1;  //i-temu (v te chvili poslednimu) clenu  pole se priradi jednicka
    for J:=I-1 downto 2 do //cyklus od i-1 clenu do 2 clenu A
      A[J]:=A[j-1]+A[J]; //vnitrni cleny jsou souctem dvou clenu v radku nad nim
    write('':3*(n-I)); //udelani mezer aby cisla pod byla mezi temi nad nimi
    for J:=1 to I do //cyklus pro vypis radku P.t.
      write (A[J]:FF); //vypise prislusne cislo v radku P.t. z pole A
    writeln; //skok na dalsi radek vypisu
  end;
  readln;
  //Poznamka: pole A (delky n) je neustale prepisovano hodnotami prislusneho radku P.t.
end.

Tak jak je to napsáno to podle mě to vypisuje P.t. do řádu n-1.

P.t. začíná totiž řádkem pro n=0

Jak bys to opravil:

Pole troj bys nadefinoval type troj = array [1..Max+1] of integer;

a n bys po jeho přečtení zvětšil o 1. Tedy za řádek until (n>=1) and (n<=max); bys napsal n := n+1;

Nahlásit jako SPAM
IP: 93.181.78.–
karel
~ Anonymní uživatel
121 příspěvků
26. 5. 2012   #3
-
0
-

Díky moc, hodně si mi pomohl.

Nahlásit jako SPAM
IP: 90.177.64.–
karel
~ Anonymní uživatel
121 příspěvků
29. 5. 2012   #4
-
0
-

   

Myslíte si že je správně ?? Nejsem si jistej.

Díky za odpovědi.

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

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×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, 17 hostů

Podobná vlákna

Trojuhelnik — založil Malirka

Sierpinski trojúhelník — založil Siggi

Java - trojuhelnik — založil keet

Rovnoramenny trojuhelnik — založil Jakub

 

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