Pascal Cyklus While chyba

[faraon]

V tomhle řádku žádnou chybu nevidím. Nechybí ti zase něco v předchozím?

[Akrej]

v předchozim je tohle

Kód: Vybrat vše

ClrScr;
          writeln('Vytvorit test [1]');
     writeln('Spustit test test [2]');
     readln(volba);
     end
     else
          writeln('Program bude ukoncen');
          end

[faraon]

K čemu je tam ten druhý end, nemá za ním být středník? V Pascalu totiž středník odděluje jednotlivé příkazy, na rozdíl třeba od C, kde je ukončuje.

[Akrej]

už neni problem ale stale to neukaže po každe odpovědi spravně nebo špatně

Kód: Vybrat vše

program Tester;

uses Crt;
var volba:integer;
var ot1,ot2,ot3,ot4,ot5,odpo1,odpo2,odpo3,odpo4,odpo5,a,b,c,d,f:string;
begin

        writeln('Tester:');
       readln();
     ClrScr;
     writeln('Vytvorit test [1]');
     writeln('Spustit test test [2]');
     readln(volba);

     if (volba = 1) then
     begin
      ClrScr;
     writeln('Napis prvni otazku:  ');
     readln(ot1);
     writeln('Napis druhou otazku:  ');
     readln(ot2);
     writeln('Napis treti otazku:  ');
     readln(ot3);
     writeln('Napis cvrtou otazku:  ');
     readln(ot4);
     writeln('Napis patou otazku:  ');
     readln(ot5);
     clrscr;
     writeln('Napis spravnou odpoved na:', ot1);
     readln(odpo1);
      writeln('Napis spravnou odpoved na:', ot2);
     readln(odpo2);
      writeln('Napis spravnou odpoved na:', ot3);
     readln(odpo3);
      writeln('Napis spravnou odpoved na:', ot4);
     readln(odpo4);
      writeln('Napis spravnou odpoved na:',ot5);
     readln(odpo5);
     writeln('Ulozit test a vratit se do menu [3]');
     readln(volba);
     end;

      if (volba = 3) then
     begin
          ClrScr;
          writeln('Vytvorit test [1]');
     writeln('Spustit test test [2]');
     readln(volba);
     end
     else
          writeln('Program bude ukoncen');





      if (volba = 2) then
     begin
      ClrScr;
     writeln(ot1);
     readln(a);
      writeln('-----------------------');
     writeln(ot2);
     readln(b);
     writeln('-----------------------');
     writeln(ot3);
     readln(c);
     writeln('-----------------------');
     writeln(ot4);
     readln(d);
     writeln('-----------------------');
     writeln(ot5);
     readln(f);
     writeln('-----------------------');
     end;


     if (a = odpo1) then
   begin
   writeln('je spravne');
   readln();
   end
else
   begin
   writeln('neni spravne');
   readln();

   
     if (odpo2 = b) then
   begin
   writeln('je spravne');
   readln();
   end
else
   begin
   writeln('neni spravne');
   readln();
   
     if (odpo3 = c) then
   begin
   writeln('je spravne');
   readln();
   end
else
   begin
   writeln('neni spravne');
   readln();
   
     if (odpo4 = d) then
   begin
   writeln('je spravne');
   readln();
   end
else
   begin
   writeln('neni spravne');
   readln();
   end;
     if (odpo5 = f) then
   begin
   writeln('je spravne');
   readln();
   end
else
   begin
   writeln('neni spravne');
   readln();

   writeln('Test dokoncen');
   writeln('[EXIT] = Enter');
   readln();




       end;
       end;
       end;
       end;
       end.

[faraon]

Samozřejmě že neukáže, protože máš šílený čubinec v odsazování a nepoznáš kde ti který složený příkaz končí, takže každou další odpověď vyhodnocuješ jen pokud ta předchozí byla špatně! Prostě jsi je vnořil do sebe, místo abys je seřadil za sebe. Ty end co máš na konci musíš přemístit tam kam patří. Podívej se co jsi tam napáchal, trochu jsem ti to zformátoval:

Kód: Vybrat vše

if (a = odpo1) then
   begin
   end
else
   begin
   
   if (odpo2 = b) then
      begin
      end
   else
      begin
   
      if (odpo3 = c) then
         begin
         end
      else
         begin
   
         if (odpo4 = d) then
            begin
            end
         else
            begin
            end;

         if (odpo5 = f) then
            begin
            end
         else
            begin
 
            writeln('Test dokoncen');
            writeln('[EXIT] = Enter');
            readln();

            end;
         end;
      end;
   end;

Z těch pěti testů máš dobře napsaný jediný, ten odpo4, všechno ostatní je blbě. Prostuduj si tohle: http://cs.wikipedia.org/wiki/Styl_z%C3%A1pisu_programu a tohle: http://en.wikipedia.org/wiki/Indent_style

[Akrej]

Stale nefunguje člověk se vrhne na věčí projekt a nefunguje tak jak si myslel

--- Doplnění předchozího příspěvku (07 Kvě 2014 14:03) ---

Ještě jsem se chtěl zeptat jde pojmenovat ten cmd jak máš na hoře kde si to otevřel že by tam třeba bylo Kalkulačka?

[faraon]

A co ti na tom ještě nefunguje, udělal jsi to co jsem ti psal?

Tohle je špatně:

Kód: Vybrat vše

if (a = odpo1) then
   begin
   end
else
   begin

Tohle je dobře:

Kód: Vybrat vše

if (odpo4 = d) then
   begin
   end
else
   begin
   end;

Vidíš ten rozdíl?
Mezi ty begin a end přijde tvůj kód, vynechal jsem ho aby to bylo přehlednější.

Jestli tomuhle říkáš větší projekt, tak si stáhni a pročti zdrojáky jádra Linuxu. Ty mají přes deset milionů řádků

Myslíš pojmenování okna na horní liště? To by mohlo jít měnit přes nějakou funkci ve windowsí knihovně, ale netuším jakou. Až to zkompiluješ a spustíš přímo, tak by se ti tam měl zobrazovat název programu, dřív to tak fungovalo.

[Akrej]

Ne neni to mu tak a dik mrkn na ten kod,Pro mě je to věčí projekt protože jsem nic tak vice řadkového nedělal