Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

tarife program u Pascal-u

[es] :: Pascal / Delphi / Kylix :: tarife program u Pascal-u

[ Pregleda: 2324 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dalmasica
Slučajna prolaznica
Croatia

Član broj: 107777
Poruke: 35
*.cmu.carnet.hr.



Profil

icon tarife program u Pascal-u04.03.2007. u 15:39 - pre 185 meseci
1. Tvrtka VH se bavi telefonijom. U svrhu što bolje suradnje s korisnicima tvrtka im šalje detaljne ispise svih njihovih poziva, zajedno s vremenom trajanja i cijenama. Za svaki razgovor zapisuje se sat, minuta i sekunda početka i kraja razgovora, te prve tri znamenke zvanog broja. Dan je podijeljen na ukupno dvije vremenske tarife o kojima, između ostaloga, ovise cijene. Tablica cijena ima sljedeći oblik:

Tarifa/vrijeme----- 07-19 sati-------- 19-07 sati
098/091---------- 1.60 kn----------- 0.80 kn
099-------------- 0.62 kn----------- 0.31 kn
Nacionalna tarifa-- 0.23 kn----------- 0.115 kn

Napišite program koji će unositi vrijeme početka i završetka razgovora, te prve tri znamenke biranog broja. Program treba ispisivati cijenu razgovora (ako je vrijeme razgovora trajalo više od pune minute, vrijeme se zaokružuje na prvu veću minutu).

Ja sam pokušala na slijedeći način, ali što ako razgovor traje od 6:30 do 7:30...?

PROGRAM tarife;
VAR h1,h2,m1,m2,s1,s2,broj:INTEGER;
t:REAL;
BEGIN
WRITE('Upišite početak h1:m1:s1- ');READLN(h1);READLN(m1);READLN(s1);
WRITE('Upišite završetak h2:m2:s2- ');READLN(h2);READLN(m2);READLN(s2);
t:=(h2-h1)*60+(m2-m1)+(s2-s1)/60;
WRITE('Upišite prve 3 znamenke biranog broja: ');READLN(broj);
IF (h1>7) AND (h1<19) AND (h2>7) AND (h2<19) THEN
BEGIN
CASE broj OF
098,091: WRITELN (round(t)*1,6);
099: WRITELN (round(t)*0,62);
021: WRITELN (round(t)*0,23);
ELSE
CASE broj OF
098,091: WRITELN (round(t)*0,8);
099: WRITELN (round(t)*0,31);
021: WRITELN (round(t)*0,115);
END;
READLN
END.

Blago onome ko zna da ne zna, a hoće da zna
 
Odgovor na temu

Vladica Savić
Software Developer
Toronto, Canada

Član broj: 26699
Poruke: 654



+5 Profil

icon Re: tarife program u Pascal-u05.03.2007. u 12:23 - pre 185 meseci
Ovo mi lici na domaci, pa zato i nema odgovora (po dogovoru da se ovde ne rade domaci zadaci) ... cini mi se ...
 
Odgovor na temu

Milos D
Beograd

Član broj: 5621
Poruke: 280
*.smin.sezampro.yu.



+1 Profil

icon Re: tarife program u Pascal-u05.03.2007. u 18:13 - pre 185 meseci
Razdvoji trajanje razgovora u t1 i t2, po tarifama.

npr.

if h1<7 then t1 = 7*60-(h1*60 + m1 + s1/60)

i na slicni nacin obradi ostale mogucnosti.


U CASE saberi oba vremena

CASE broj OF
098,091: WRITELN (round(t1)*1,6 + round(t2)*0.8);
...

Pretpostavljam da vreme razgovora moze da bude i 23:30 -> 0:30 pa i to moras uzeti u obzir.

 
Odgovor na temu

zarkodj

Član broj: 16125
Poruke: 14
*.dynamic.sbb.co.yu.

ICQ: 19815260


Profil

icon Re: tarife program u Pascal-u14.03.2007. u 08:56 - pre 184 meseci
nema veze sto razgovor prelazi iz jedne tarife u drugu..bitno je kad je zapocet...to mozes da izdvojis u posebnom brojacu...cisto ideja..
Zarkodj
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: tarife program u Pascal-u

[ Pregleda: 2324 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.