Potřebuji tento diagram zapsat do Pascalu Vyřešeno

[nuubix]

Udělal jsem to tak, jak říkáš, ale bohužel nevím, jaké tam zapsat podmínky. Tak jsem teda pod vstup pro načtení zadaného čísla zkusil zapsat tuto první podmínku takhle, ovšem nevím, zda je to správná podmínka a hlavně správně zapsaná. Jde o tu shodu áčka s béčkem.

Kód: Vybrat vše

if (a,b=0) then
    begin
      WriteLn('Zadane cislo ', a,b, ' je shodne.');
    end;

[Reklama]

[faraon]

Kód: Vybrat vše

if (a=b) then
...

Podívej se na můj první příspěvek.

[nuubix]

Jo takhle, ale já myslel že var a,b : Integer; , tak jsem myslel, že a,b.
...
No pokud to udělám, tak, když to spustím a zadám tam ty dvě čísla, tak se mi zobrazí tohle...

[faraon]

Oprava:

Kód: Vybrat vše

write('Zadej dvě celá čísla oddělená mezerou: ');
readln(a,b);

Čárkou se oddělovalo v BASICu, i na takovéhle drobnosti je třeba uživatele upozornit, a případně ošetřit výskyt chyb, protože se určitě najde blbec který si to ani nepřečte a udělá to po svém, on to přeci ví líp...
Ale to přijde později, až budeš znát základy.

V čem to vytváříš? Tohle nevypadá jako starý Turbo Pascal co znám já.

[nuubix]

Dělám to v Lazarusu, to jsem zapomněl říct a po téhle opravě to jde a zobrazí to tohle, je to zatím správné?

[faraon]

Program proběhl a skončil normálně, ještě si můžeš pro kontrolu jak se čísla načetla přidat řádek s writeln(), který ti je vypíše na obrazovku. Až to vyzkoušíš a nebudeš výpis už potřebovat, tak ho můžeš zase smazat nebo zakomentovat.

[nuubix]

Zkusil jsem tam zapsat ty podmínky takto, ale něco je tam špatně...

Kód: Vybrat vše

if (a=b) then
    begin
      WriteLn('Zadane cislo ', a=b, ' je shodne.');

    end
  else
    begin
      if (a>b) then
        WriteLn('Zadane cislo ', a>b, ' a je vetsi nez b.');
      end
    else
        WriteLn('Zadane cislo ', a>b, ' b je mensi nez a.');

    end;     

[Ellrohir]

myslím, že ti tam přebývá jedno end...zkus takhle:

Kód: Vybrat vše

if (a=b) then
  begin
    WriteLn('Zadane cislo ', a=b, ' je shodne.');
  end
else
  begin
    if (a>b) then
      WriteLn('Zadane cislo ', a>b, ' a je vetsi nez b.');
    else
      WriteLn('Zadane cislo ', a>b, ' b je mensi nez a.');
  end;


[nuubix]

Vyskytla se tato chyba, kterou nechápu, navíc vůbec nevím zda je to správně dle toho vývojového diagramu, ale zřejmě ano.

[faraon]

Před else nepatří středník, ten funguje jako oddělovač jednotlivých příkazů v bloku, a tady máš jen jeden příkaz, takže za tím středníkem kompilátor marně hledá nějaký další.

Jsi si jistý že v těch writeln() chceš vypsat výsledek logického výrazu a=b nebo a>b? Řekl bych že tam by mělo být něco jiného.

[nuubix]

No já právě nevím, co by tam mělo patřit.

[faraon]

Já bych napsal něco takového:

writeln('Čísla ',a,' a ',b,' jsou stejná.')

Řetězcové konstanty jsou podtržené, číselné proměnné jsou tučně, místo nich ti to vypíše zadané čísla. Další dvě zprávy můžeš upravit podobně, ať mají jednotný vzhled.