Stránka: 1 z 1
| [ Príspevkov: 9 ] | |
Autor | Správa |
---|
Registrovaný: 02.03.11 Prihlásený: 10.06.11 Príspevky: 5 Témy: 2 | 2 |
vzdy my vyhadzuje, ze je tam nejaka chyba, no skusil som uz aj za premenne okrem intergeru aj ine no stale vypisuje, ze Type mismatch - chem vypocitat rozmer tretej strany
Kód: program jedna_zo_stran; uses crt; var a,b,c,v:integer; begin writeln('vloz rozmer prvej strany');readln(a); writeln('vloz rozmer druhej strany');readln(b); writeln('vloz objem kvadra');readln(v); c:=v/a*b; writeln('hladana strana ma rozmery = ',c); readln; end.
kde je chyba?
|
|
Registrovaný: 11.08.07 Príspevky: 4088 Témy: 34 | 34 Bydlisko: Brno |
Operator delenia "/" vracia vysledok ako racionalne cislo, nie cele. Zadefinuj c ako real, nie integer, alebo pouzi operator div.
|
|
Registrovaný: 02.03.11 Prihlásený: 10.06.11 Príspevky: 5 Témy: 2 | 2 |
a dakujem ti Duri.
To bola len 1/3 ulohy, ktoru som nevedel. Lebo mam napisat program , kde na zaciatku mam vybrat ci chcem vypocitat objem, povrch alebo jednu zo stran v kvadri. Vzorce a ostatne uz mam- uz som to urobil.
Ale neviem ako mam urobit, ze ked spustim program tak ten sa ma spyta ci chcem pocitat objem, povrch alebo jednu zo stran- vytvorit menu do ktoreho sa da potom vratit a je tam moznost ze ci chcem dalej pokracovat alebo skoncit program.
To je mojim najvecsim kamenom urazu.
|
|
Registrovaný: 11.08.07 Príspevky: 4088 Témy: 34 | 34 Bydlisko: Brno |
Vyuzi nejaky cyklus s neurcenym poctom opakovani.
|
|
Registrovaný: 02.03.11 Prihlásený: 10.06.11 Príspevky: 5 Témy: 2 | 2 |
ale ja absolutne neviem ako to mam urobit, jednoduchu pracu zvladam ale nieco take co mam urobit absolutne necham ako mam vytvorit take mini menu . Jednotlive casti uloh som zvladol ale toto nemam ani sancu vediet ako na to. Skus mi pomoct
|
|
Registrovaný: 11.08.07 Príspevky: 4088 Témy: 34 | 34 Bydlisko: Brno |
Povedzme, ze pouzivatel bude zadavat volby 1, 2, 3 pre jednu z veci, ktore treba pocitat, alebo 0 pre ukoncenie programu. Algoritmus bude vyzerat napriklad takto:
Citácia: (zaciatok cyklu) nacitaj volba volba = 1 => urob toto volba = 2 => urob tamto volba = 3 => urob hento volba <> 0 => vrat sa na zaciatok cyklu
That's all Klucove slova - repeat...until a pre zjednodusenie programu case...of.
|
|
Registrovaný: 01.12.09 Prihlásený: 20.04.19 Príspevky: 862 Témy: 26 | 26 Bydlisko: Žilina |
Tak ako napisal duri. najprv repeat until premenna !=0, do toho case, a priradis cislam moznosti. pokial bude zadavat cisla ine ako 0, program bude bezat a po vykonani sa vrati na zaciatok repeat. a ked zadas 0 skonci
_________________ PC :ASUSTeK M2A-VM, AMD Phenom X3 8650 AM2 @ 2,3 Ghz, 4 GB RAM DDR2 1800 MHz, SAPPHIRE HD 6770 VAPOR-X 1GB DDR5, 400W Zdroj, 500 GB HDD, Windows Vista 64 bit
Notebook : Asus EEEPC 1201NL, intel Atom N270 512 KB L2 Cache 533 MHz FSB @ 1,6 Ghz, 1 GB DDR2 RAM, nVidia ION, 320 GB HDD, Windows XP 32 bit
Iná technika : LG P500 (806 Mhz, Android 2.3.3 Gingerbread, root, JIT), Koss Pathfinder, kedysi iPhone =( |
|
Registrovaný: 23.12.10 Prihlásený: 10.09.22 Príspevky: 1056 Témy: 157 | 157 Bydlisko: KK/PP/BA |
ok ja ti tiez ukazem jednu moznost
Kód: uses crt; var a,b,c,s,o: integer; p: char; begin clrscr; writeln ('zadaj 1. stranu kvadra'); readln (a); writeln ('zadaj 2. stranu kvadra'); readln (b); writeln ('zadaj 3. stranu kvadra'); readln (c); writeln; writeln ('pre vypocet povrchu stlac S'); writeln ('pre vypocet objemu stlac O'); readln (p); if p='s' then writeln ('povrch kvadra je: ', a*b*c); if p='o' then writeln ('objem kvadra je: ',2*(a*b+b*c+a*c)) else writeln ('sorry, ale uhlopriecku strany hranola ti nevyratam, pretoze neviem ako sa v pascale pocita odmocnina :) '); readln; end.
mozes to robit cez case of, alebo cez if je plno moznosti.
ak ma dakto cas, tak by mohol dat zdrojak, ako sa to robi cez case, pretoze navody som aj ja cital, ale nejak som to nepochopil
|
|
Registrovaný: 02.03.11 Prihlásený: 10.06.11 Príspevky: 5 Témy: 2 | 2 |
dakujem vsetkym za pomoc a povazujte tuto temu za uzatvorenu.
|
|
Stránka: 1 z 1
| [ Príspevkov: 9 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v Assembler, C, C++, Pascal, Java | 9 | 2241 | 11.03.2024 7:41 tatko Tom | | v Assembler, C, C++, Pascal, Java | 17 | 838 | 18.02.2012 23:06 fubu | | v Assembler, C, C++, Pascal, Java | 4 | 728 | 15.12.2008 17:35 quatermain | | v Assembler, C, C++, Pascal, Java | 2 | 424 | 12.05.2012 9:53 Kroncisko | | v Assembler, C, C++, Pascal, Java | 5 | 520 | 12.11.2016 19:15 BX | | v Operačné systémy Microsoft | 3 | 411 | 29.11.2009 10:22 mack0 | | [ Choď na stránku: 1, 2 ] v ATI/AMD grafické karty | 34 | 1244 | 18.07.2010 12:30 djfreeman | | v PHP, ASP | 8 | 649 | 26.11.2008 19:55 rooobertek | | v Notebooky a netbooky | 3 | 318 | 07.04.2013 17:12 walther | | v Intel - Integrated Electronics | 3 | 561 | 03.10.2008 23:53 Jaro | | v Notebooky a netbooky | 17 | 748 | 29.07.2012 13:56 tonky51 | | v HTML, XHTML, XML, CSS | 10 | 656 | 07.01.2009 21:34 rooobertek | | v Databázy | 11 | 835 | 11.05.2008 20:19 waresko18 | | v Optické zariadenia | 6 | 698 | 07.07.2009 15:56 shiro | | v PHP, ASP | 21 | 1739 | 29.08.2006 19:57 Alyx_Vance | | v Intel čipové sady | 2 | 558 | 27.03.2009 18:53 zajo301 |
|