» 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


Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

** Tesla představila elektrický kamion ** Má obdivuhodný výkon i dojezd ** Prodávat by se měl už za dva roky

17.  11.  2017 | Vojtěch Malý | 157

30 počítačových brzd, které vám zpomalí Windows

30 počítačových brzd, které vám zpomalí Windows

Na webu najdete hromadu rad, jak zrychlit počítač a Windows. My jsme na to šli opačně a naopak jsme hledali činnosti, které ho nejvíce zpomalují. Toto je třicítka těch základních.

12.  11.  2017 | Jakub Čížek | 90

Elektronika, která nepotřebuje kabel ani baterii. Živí se rádiovým šumem

Elektronika, která nepotřebuje kabel ani baterii. Živí se rádiovým šumem

** Každá elektrická krabička má konektor pro napájení nebo baterii ** Jenže pozor, jednou by to tak nemuselo být ** Drobná elektronika se může živit rádiovými vlnami

14.  11.  2017 | Jakub Čížek | 15

Nejlepší notebooky do 10 tisíc, které si teď můžete koupit

Nejlepší notebooky do 10 tisíc, které si teď můžete koupit

** I pod hranicí desíti tisíc korun existují dobře použitelné notebooky ** Mohou plnit roli pracovního stroje i zařízení pro zábavu ** Nejlevnější použitelný notebook koupíte za pět a půl tisíce

16.  11.  2017 | Stanislav Janů | 52

Do 20 let nebude nikdo vlastnit auta, říká zkušený šéf několika automobilek

Do 20 let nebude nikdo vlastnit auta, říká zkušený šéf několika automobilek

** Bývalý šéf a expert z několika velkých automobilek se vyjádřil k budoucnosti tohoto průmyslu ** Do 20 let „nikdo“ nebude vlastnit auta ** Veškerá doprava bude řešená pomocí velkých logistických platforem

15.  11.  2017 | Karel Javůrek | 74