» 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

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

Rekordy počasí: V Česku to ještě jde, skutečné extrémy zažívají jinde

** Teplotní extrémy dokážou překvapit. Seznamte se s rekordy v Česku i ve světě ** Rekordní hodnoty jsou mnohdy až k neuvěření ** Zjistěte, kdy ke bylo největší horko, zima, déšť či vítr

Karel Kilián | 7

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

Apple: naše mapy budou nejlepší na světě. Tajně jsme na nich pracovali několik let

** Apple odhalil své plány na zcela nové mapy ** Několik let pracuje na nových mapách, které by měly předběhnout konkurenci ** Objeví se s příchodem iOS 12 pro vybrané státy

Karel Javůrek | 50


Aktuální číslo časopisu Computer

Velký test 18 bezdrátových sluchátek

Vše o přechodu na DVB-T2

Procesory AMD opět porážejí Intel

7 NVMe M.2 SSD v přímém souboji