» Poradna » Programy

Pascal - problém s kodem

 |   |  Microsoft Windows 7 Opera 9.80

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

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

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

aha, moc děkuju.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 23.0.1271.97

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

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

** Apple dnes představuje nové produkty v čele s novými iPhony ** Nemusí zůstat jen u telefonů, čekají se i další novinky ** Úvodní přednáška začíná v 19:00 našeho času

David Polesný | 57

ELONOVINKY: Druhá strana popularity – servisy Tesly jsou přeplněné a nestíhají

ELONOVINKY: Druhá strana popularity – servisy Tesly jsou přeplněné a nestíhají

** Automobilka Tesla neustále zvyšuje prodeje svých vozů ** S kvapně rostoucím počtem nových majitelů Tesel ale stoupá i počet zákazníků servisů ** Servisy Tesly nestíhají, firma proto řeší další akutní problém

Petr Melechin, Karel Dlabač | 73

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

** Microsoft se opět snaží spojit telefony a počítače. ** Místo velkých novinek se zaměřil spíše na drobná vylepšení. ** Vyhledávání je konečně použitelné a hledá téměř všude.

Vladislav Kluska | 78

Pojďme programovat elektroniku: Když už vás ten chumel součástek prostě nebaví

Pojďme programovat elektroniku: Když už vás ten chumel součástek prostě nebaví

** Levné cetky z Asie stojí dolar ** Postavíte s nimi skoro vše od teploměru po spínač zavlažování ** Má to ale jeden háček. Bude to ošklivé a povětšinou nekvalitní

Jakub Čížek | 22

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

** Yoga C930 nabídne revoluční reproduktor v kloubu displeje ** Yoga Book C930 představuje zdařilý reparát podivného Yoga Booku ** ThinkPad X1 Extreme se může pochlubit extrémní výbavou v tenkém těle

Tomáš Holčík | 16


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku