» Poradna » Programy

Pascal - problém s kodem

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 4/4
 |   |  Microsoft Windows 7 Opera 9.80  |  [89.102.255.---]

Dobrý den, mám tento problém, můj program pracuje jen s přirozenými čísly a ja potřebuju abypokud někdo zadal např. -8, tak aby program hned neskončil ale aby napsal ''chyba, zapište to znovu''. Muj problém:write (''zadejte prirozene cislo a: '');read (a);if a<0 or a<>integer thenwrite (''cislo a musi byt prirozene, zadejte ho znovu'')Hází mi to hlášení: Error.Incompatible types: got boolean expected Int64Díky moc za pomoc

Odpovědi na otázku

 |   |  Microsoft Windows 7 Chrome 23.0.1271.97  |  [78.80.65.---]

To a<>integer je špatně, a je proměnná, integer je typ, to nelze porovnávat.v deklaraci ...var a:longint; do integer lze myslím dát pouze čísla do 32535, proto typ longinta pak v programu ...repeat write (''zadejte prirozene cislo a: ''); readln (a); if a<0 then writeln ("Cislo musi byt prirozene, zadejte znovu...");until a>=0;

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 23.0.1271.97  |  [78.80.65.---]

vysvětlivky k jednotlivým řádkům:repeat ..... začátek cyklu, sem to skočí z toho řádku until, když podmínka není splněnáwrite .... vypíše text a neodřátkujereadln .... čeká na zadání čísla a odřádkuje, aby ten další text nebyl nalepen na toif .... jestliže a<0 tak vypíše textuntil .... jestliže a>=0 tak pokračuj dále v programu, jinak skoč nazpět na until a opakuj řádky po until znovu

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Opera 9.80  |  [89.102.255.---]

aha, moc děkuju.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 23.0.1271.97  |  [78.80.65.---]

Ale pozor, program čeká na vstup čísla, tzn. pokud zadáte písmena nebo desetinná čísla, tak spadneTo by se musel načítat řetězec a pak v programu analyzovat a přetypovat. Ale jestli je to něco do školy na výuku Pascalu, tak to asi nebude potřeba.

Souhlasím  |  Nesouhlasím  |  Odpovědět



Určitě si přečtěte


Čína vyvíjí ohromná hejna tisícovek malých dronů

Čína vyvíjí ohromná hejna tisícovek malých dronů

** Vývoj hejnové inteligence pro drony v Číně nabírá na rychlosti ** Velká hejna dronů mají podle odborníků značný potenciál pro vojenské využití i pro bezpečnostní aplikace ** Číňané se navíc s drony neomezuje jenom na zemský povrch a okolí, ale poohlížejí se i po vesmíru

11.  1.  2018 | Stanislav Mihulka | 3

Genetika a příjmení: Unikátní možnost získat test Y-DNA zdarma a dozvědět se o svých předcích

Genetika a příjmení: Unikátní možnost získat test Y-DNA zdarma a dozvědět se o svých předcích

** Projekt Genetika a příjmení hledá shody mezi osobami se stejným příjmením ** Využívá k tomu testování DNA na chromozomu Y ** Výsledky testu můžete účastí v projektu získat zdarma

11.  1.  2018 | Marek Lutonský | 2


Aktuální číslo časopisu Computer

Zachraňte nefunkční Windows

Jak nakupovat a prodávat kryptoměny

Otestovali jsme konvertibilní notebooky

Velký test 14 herních myší