Ako použiť case v pascale ak mám intervaly ohraničené desat.číslom? – Pascal – Fórum – Programujte.com

#1 Student
zdravím,

môžte mi prosím poradiť?

1.úlohu riešiť pomocou case v pascale ak mám výraz real a hodnoty (intervaly ohraničené desatinným číslom)?

2. úloha, mám použiť case ak chcem aby mi po načítaní dátumu vypísalo aké som znamenie? teda aj deň aj mesiac rozhoduje.

ďakujem, už včera bolo neskoro

1) v case jde pouzit jen ordinalni typy - ne real neni ordinalni typ - nikdy nevis presne jaka je hodnota nasledovnika nebo predchudce (tj. neda se pouzit ani inc/dec)

2) na mesice klidne a dny se pak uz rozdeli pres if...  nebo prepocitat na pocet dni od zacatku roku a jen pres case

#2 KIIV
Vďaka, viem, že real nemôžem použiť  v CASE...

a asi to budem musieť obíjsť... Chcela som cez case riešiť, aby sa vypísalo či mám normálnu váhu, nadvahu...a ďalej bla bla bla...ak vypočítam BMI index ako podiel hmotnosťi a druhej mocniny výšky v metroch... tie intervaly sú tam Od 18,5 do 30..a tak nejak... hm?

2. napadlo ma pole, ale to ešte nemôžem použiť... tak to skúsim poroešiť a môžem potom poslať zdriják? Na kontrolu efektívnosti, resp. ak nebudem vedieť zlepiť?

Vďaka veľká!!!

#3 jjdan
na bmi je snadnejsi pouzit nekolik ifu...  pokud je mensi nez normalni, pokud je vetsi nez normalni a jinak vypsat normalni

#4 KIIV
cez ify to mám vyriešené...beží to v pohode...

Taky se dá použít technika "fixed point". To znamená, že si čísla interně vynásobíš třeba deseti a zaokrouhlíš. Takže třeba někdo zadá 18.31, ty si to přepočítáš na 183 a bereš to jako ordinální číslo. Když chceš přesnost na 2 desetinná místa, násobíš 100, na tři tisícem atd.

#6 Mircosoft
hm...takže sa to tak dá aj "oficiálne":-) teda volá sa to "fixed point"...budem si to pamatať...intuitívne som si myslela, či by som to akože tak "neoklamala", že by som to prehodila na integer a tie vyhodnotila...

ďakujem

ten druhý mi ale nebeži cez case...

takto to asi nepojde, že?

var den, mesiac: integer;
begin
writeln (' Zadaj den a mesiac narodenia ako cele cislo');
readln(den, mesiac);
case mesiac of
     1..2: begin
           If (den>=21 and den<=29) and (den >=1 and den <=19)
           then writeln (' si znamenie vodnar');
           end;
     2..3: begin
           If (den>=20 and den<=30) and (den >=1 and den <=20)
           then writeln (' si znamenie ryby');
           end;

end;

end.

Když se jedno znamení táhne přes dva měsíce, nedá se číslo měsíce použít jako první rozlišovací podmínka. Resp. dá, ale musela bys potom v každé větvi toho case ještě přes if/else rozvětvit do dvou znamení podle dne a tím by se to celé zkomplikovalo.

Asi nejelegantnější by bylo převést si datum do juliánského formátu. To znamená, že se dny počítají na celý rok lineárně od 1 do 365 (přestupné roky se u znamení neřeší) a o měsíce se nestaráme. Pak by ti pro každé znamení stačil jednoduchý interval.

Nebo úplně nejpřímočařejší řešení by byla tabulka, do které by se kouklo na řádek odpovídající číslu měsíce a sloupec odpovídající dni a tam by se rovnou našlo znamení. To je sice rychlé a jednoduché, ale relativně náročné na paměť (372 B) a ruční datlování konstant a asi to není úplně přesně podle zadání :-).

#8 Mircosoft
hm, tiež ma to napadlo,tak som už začala..ale neviem, čo takto je to ok... a potom výpis? a ešte cez If ošetriť tie intervaly zverokruhu?

case mesiac of
    1: begin
            x:=31;
            pocet:=den+x;
       end;
    2: begin
            x:=31+28;
            pocet:=den+x;
       end;
    3: begin
            x:=2.31+28;
            pocet:=den+x;
       end;
    4:begin

Základní myšlenka je dobře, ale máš tam pár chybiček. Řádek x:=2.31+28 je špatně - násobí se hvězdičkou (*), tečka funguje jako desetinná čárka. Potom pozor, že to máš o měsíc posunuté - počet dní v lednu musíš přičítat až k únoru, x pro leden je 0. Tu okliku přes x bych asi zrušil (tj. např. pocet:=31+28+den), ale chyba to není.

Pak už to bude jednoduché: case pocet of 100..129:znameni:='rak'; atd. (tohle jsem jen tak plácnul, intervaly si musíš spočítat).

#10 Mircosoft
oj, jasné, to som písala v textovom editore...násobenie hviezdička...

hm, asi je to X navyše...vďaka..

dopočítať to natvrdo, alebo je niečo krajšie?

d

No, jediná trochu elegantnější možnost, co mě napadá, je vytvořit si jako konstantu pole dvanácti čísel s počty dnů v jednotlivých měsících a v nějakém dalším poli je pak nějakým cyklem vhodně posčítat.

#12 Mircosoft
hm..polia...tie sa ešte nebrali....

ale evidujem ako elegantnejšie riešenie tejto časti....

možno ak sa budú brať, tak sa to ukáže aj týmto spôsobom...