| Autor | Zpráva | ||
|---|---|---|---|
| Werewolf Profil |
#1 · Zasláno: 9. 4. 2009, 19:26:39
(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 |
#2 · Zasláno: 9. 4. 2009, 19:30:17 · Upravil/a: TomášK
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 |
#3 · Zasláno: 9. 4. 2009, 19:34:02
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 |
#4 · Zasláno: 9. 4. 2009, 19:43:15
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 |
#5 · Zasláno: 9. 4. 2009, 19:53:04
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 |
#6 · Zasláno: 9. 4. 2009, 19:54:57
TomášK
Po změnách, které jsi popsal, se mi to ukončuje samo i s tim readln()... |
||
| Philber Profil |
#7 · Zasláno: 9. 4. 2009, 20:28:15
no na zacatek si dej
program Co_je_větší; a nakonec readln; end. to by mělo fungovat! |
||
| imploder Profil |
#8 · Zasláno: 9. 4. 2009, 21:56:13
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é. |
||
|
Časová prodleva: 15 let
|
|||
0