[es] - tarife program u Pascal-u

dalmasica
Slučajna prolaznica
Croatia

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

Profil

^{04.03.2007. u 15:39 - pre 208 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

Re: tarife program u Pascal-u

^{05.03.2007. u 12:23 - pre 208 meseci}

Ovo mi lici na domaci, pa zato i nema odgovora (po dogovoru da se ovde ne rade domaci zadaci)

... cini mi se ...

My IT View Of Life-BrLOG-Delphi for PHP

» LinkedIn

Odgovor na temu

Milos D
Beograd

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

+1 Profil

Re: tarife program u Pascal-u

^{05.03.2007. u 18:13 - pre 208 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

Re: tarife program u Pascal-u

^{14.03.2007. u 08:56 - pre 208 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