Potřebuji tento diagram zapsat do Pascalu

[nuubix]

Zdravím, potřeboval bych podle tohoto diagramu sestavit program a tak se ptám, zda by se tu nenašel někdo ochotný, předem děkuji.

[CZechBoY]

nějak ti tam chybí podmínky

jaktože nezvládáš takovýhle jednoduchý úkol?

[nuubix]

Já idiot.

true: (x MOD 2)=0
(x MOD2)<>0
x=0
false: (x MOD 2)<>0
(x MOD 2)=0
x<>0

Sám nevím, dlouho jsem chyběl a teď v tom mám celkem zmatky...

[faraon]

Tohle ale vypadá spíš jako zjišťování sudá/lichá

Já bych na to porovnávání šel takhle:

Kód: Vybrat vše

if a=b then
   (shoda)
else
   if a>b then
      (a)
   else
      (b)

[nuubix]

Je to porovnávání dvou čísel, vůbec nevím, jak na to...

[faraon]

Tak si ještě jednou pořádně přečti tu mojí předchozí odpověď a podmínky z ní si vepiš do příslušných kosočtverců v tom vývojovém diagramu.
Pak už ti stačí jen přidat readln, writeln a getchar...
Když po něm pojedeš prstem shora dolů, tak ti vyplyne i správné pořadí v jakém ty příkazy zapsat

[nuubix]

Diagram mám hotovej a teď to zkouším, ale nejde mi to, tak sem asi uplně neschopnej..

[faraon]

Vlož sem kód, koukneme se co tam máš špatně
Kolik prográmků už jsi vytvořil?

[nuubix]

Nemá cenu sem ani vkládat kód, je to uplná blbost..

[domitea]

I úplná blbost může poučit geeka

[nuubix]

Je prozatím tento postup správný nebo mi tam chybí ještě něco nadefinovat?.. (Konstanty apod...)?

Kód: Vybrat vše

program PorovnaniDvouCisel;
uses Crt;

var zadavane_cislo : Integer;


begin
  Clrscr;


WriteLn('******Program, ktery porovna dve cisla******');

WriteLn();

Write('Zadejte cele cislo: ');
ReadLn(zadavane_cislo);


















WriteLn();
WriteLn('Program ukoncite stiskem libovolne klavesy...');



readkey;
end.

[faraon]

Zatím dobré, akorát si tam nadeklaruj dvě proměnné, můžeš použít i ta písmena a a b z diagramu:

Kód: Vybrat vše

var a,b:integer;

A bylo by vhodné infomovat uživatele kolikáté číslo zadává, aby si třeba nemyslel, když dostane dvakrát za sebou stejnou hlášku, že v programu se vyskytl nějaký problém.
Nebo požadovat vstup dvou čísel najednou a načíst je jedním příkazem:

Kód: Vybrat vše

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

Pro přehlednost bys mohl udělat to odsazení u všech řádků mezi begin a end, stejně jako to máš u clrscr, časem přijdeš na to jak hodně užitečná věc to je
A stejně tak ho dělat u všech cyklů u větvení, aby se v tom dalo vyznat na první pohled...