program na vypocet ceny jazdy taxikom

zeto750 · Napísal **zeto750**: 13.05.2011 14:28

Zdravim, mam tu taky jednoduchy program , ale mam otazku ktore z dvohc rieseni je spravnejsie?
funguju obe ale mne sa viac paci moje...(ako inak

)

+ mam otazku preco pri premennej typu real nemozem pouzit and ? (to som tam mal povodne namiesto toto if then if ktore viem ze by mohlo robit problem ak by tam bolo aj else)

MOJE

Kód:

program taxi;
uses crt;
var s,suma:real;
begin
clrscr;
writeln ('zadaj prejdenu vzdialenost taxikom [km] ');
readln (s);
if s<0 then halt;
if s<=19 then  suma:= s*1;
if s>19 then if s<=39 then suma:=s*0.9;
if s>39 then if s<=59 then suma:=s*0.7;
if s>59 then suma:=s*0.5;
writeln ('za prejdenu vzdialenost taxikom zaplatite: ',suma:6:2,'eur');
readln;
end.

Z ineho zdroja

Kód:

program TAXI;
var sadzba,draha:real;
begin

        writeln ('Zadaj prejdenu drahu');
        readln (draha);
        if draha<0 then begin writeln ('Nie je mozne prejst zapornu drahu');
        exit;
        end;
        case trunc(draha) of 0..19:sadzba:=1;
                             20..39:sadzba:=0.9;
                             40..59:sadzba:=0.7;
                              else sadzba:=0.5;
                              end;
                writeln;
                writeln('za: ',draha:0:2,'kilometrov zaplatime: ',(draha*sadzba):0:2,' EUR');
                readln;
                end.

killer · Napísal **killer**: 13.05.2011 15:08

ty si pouzil vetvenie pomocou if a then a kazdu podmienku mas definovanu samostatne
"iny zdroj" pouzil riesenie cez case (viacnasobne vetvenie)
spravnejsie riesenie? myslel si prehladnejsie? pretoze ak obidva programy dojdu pri rovnakych parametroch na spravne riesenie potom su obidva spravne ty si to robil po svojom (tiez by som to tak robil)

btw. v tvojom rieseni by som este osetril zaokruhlenie (kedze pocitas s real cislami) aby ti tam nevypisovalo zbytocne velke mnozstvo desatinnych miest

Bajzik · Napísal **Bajzik**: 13.05.2011 15:28

Nás osobne učili že case je prehľadnejší, rýchlejší pre spracovanie, a rovnako v prípade že niekomu budeš predávať program, určite CASE využije viac ako 15 IF podmienok. Takže tak, u mňa vyhráva to druhé

zeto750 · Napísal autor témy **zeto750**: 13.05.2011 18:09

plus mohli by ste zoadpovedat toto?: dakujem

reco pri premennej typu real nemozem pouzit and ? (to som tam mal povodne namiesto toto if then if ktore viem ze by mohlo robit problem ak by tam bolo aj else).

Viem ze som to uz niekde cital ale....

Inak dakujem za rady , asi si to vezmem k srdcu a lepsie si nastudujem ten druhy pripad....

Ďuri · Napísal **Ďuri**: 13.05.2011 19:27

A preco by si chcel pouzivat operator and pre premenne typu real? Co presne chces urobit? Operator and medzi dvoma celymi cislami pracuje ako bitovy operator, ak si zelas takuto funkcionalitu (co velmi pochybujem), niektore jazyky zvyknu odrezavat desatinnu cast, v takom pripade mozes pouzit trunc(x) and trunc(y), ale naozaj nerozumiem, naco ti to bude, a uz duplom pri vypocte ceny jazdy taxikom.
Pises ako hotentot, citaj po sebe, polovica tvojich prispevkov je nezrozumitelna.

zeto750 · Napísal autor témy **zeto750**: 13.05.2011 19:31

Mal som v tom trosku bordel, dakujem za vysvetlenie... a sorry za blbe otazky ale....

program na vypocet ceny jazdy taxikom

Podobné témy