Autor Zpráva
Werewolf
Profil
(sice se to netýká webu, ale.. nevím si rady)
Ahoj, chtěl bych se zeptat, jak udělat to, aby se mi okno mého programu nezavíralo jakmile ho otevřu. Mám kód v Pascalu:

program Co je větší;

var a,b:integer;

begin

    write('Zadejte první číslo: ');
    readln(a);
    write('Zadejte druhé číslo: ');
    readln(b);
    writeln;
    writeln('----------------------');
    writeln;
    if a>b then writeln('První číslo je větší. Je to ',a,'.')
    else if a=b then writeln('Zadal/a jste stejná čísla!')
    else writeln('Druhé číslo je větší. Je to ',b,'.');
	
end


Díky všem za rady, Werewolf
TomášK
Profil
Nejjednodušší řešení je dát na konec
readln();

pak bude program čekat na stisk enteru. Elegantnější je dát tam repeat until keypressed(), ale přesnou syntax bych musel googlit
Werewolf
Profil
TomášK
Bohužel to nejde. Když to tam dám, okno sice běží, ale nic se nevypíše a na stisk klávesy to nereaguje.
TomášK
Profil
Co máš za kompilátor? TurboPascal? Zkoušel jsem to v linuxu freepascalem a ten mi hlásí syntaktické chyby:
- nelíbí se mu diakritika a mezery v nazvu programu, změnil jsem prvn9 řádek na
program porovnani

- na konci by měla být tečka
end.

Pak mi to proběhně dle očekávání a na konci i řeká na klávesu (když tam přidám ten readln).
Alphard
Profil
s keypressed by to mohlo být takhle, z výkonostních důvodů je vhodné dát tam nějaký delay
repeat delay(300) until keypressed;

do hlavičky ale ještě musíte dát
uses crt;
Werewolf
Profil
TomášK
Po změnách, které jsi popsal, se mi to ukončuje samo i s tim readln()...
Philber
Profil
no na zacatek si dej
program Co_je_větší;


a nakonec

readln;
end.


to by mělo fungovat!
imploder
Profil
Werewolf
Pascal sice neznám, ale asi pomůže takový "univerzální" postup: otevřít terminál (takové to okno, jak se do něj napíše příkaz a on se vykoná) a pustit program z něj. Pak nebude vadit že skončí, okno s jeho výstupem zůstane otevřené.

Vaše odpověď


Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm: