pascal- kde je chyba?

firefox4 · Napísal **firefox4**: 02.03.2011 10:20

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?

Ďuri · Napísal **Ďuri**: 02.03.2011 10:31

Operator delenia "/" vracia vysledok ako racionalne cislo, nie cele. Zadefinuj c ako real, nie integer, alebo pouzi operator div.

firefox4 · Napísal autor témy **firefox4**: 02.03.2011 10:43

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.

Ďuri · Napísal **Ďuri**: 02.03.2011 12:57

Vyuzi nejaky cyklus s neurcenym poctom opakovani.

firefox4 · Napísal autor témy **firefox4**: 02.03.2011 13:02

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

Ďuri · Napísal **Ďuri**: 02.03.2011 14:34

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 :rolleyes:

Klucove slova - repeat...until a pre zjednodusenie programu case...of.

Bajzik · Napísal **Bajzik**: 02.03.2011 14:59

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

F3RY · Napísal **F3RY**: 02.03.2011 19:05

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 :oops:

firefox4 · Napísal autor témy **firefox4**: 02.03.2011 20:58

dakujem vsetkym za pomoc a povazujte tuto temu za uzatvorenu.

pascal- kde je chyba?

Podobné témy