Poslao: 22 Nov 2007 11:42
|
offline
- Pridružio: 22 Nov 2007
- Poruke: 17
- Gde živiš: u CPU
|
Kako da resim ovaj zadatak
Mladog patuljka Turgona patuljacki kovaci magicnih runa poslali su u susedan patuljacki grad.Po obavljenom zadatku Turgon,obzirom da zuri nazad,kocijom se vraca nazad u grad.On zna tacan sat i minut polaska kocije,kao i koliko minuta kocija putuje,ali mu je potrebna pomoc za odredzivanje sata i minuta kada kocija stize u grad.Napisati program koji za unete cele brojeve H(0<ili jednako M< ili jednako 23,sat polaska kocije),M(0<ili jednako M<ili jednako 59,minut polaska kocije) i T(1<ili jednako T<ili jednako 200,vreme trajanja puta) ispisuje vreme u formatu K:T,pri cemu K predstavlja sat,a T minut stizanja kocije,ako se zna da kocija polazi i stize u istom danu.
Primer.Ulaz:H=8 M=30 T=45 Izlaz:9:15
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
Poslao: 22 Nov 2007 15:05
|
offline
- pixxel
- Legendarni građanin
- Pridružio: 21 Jun 2005
- Poruke: 9091
- Gde živiš: Tu i tamo...
|
Koji programski jezik?
Inace,program je strasno lak, jedna if petlja u while petlji, (dok god je m+t>60 (ako je m+t>60 h=h+1, m=t-m))... mislim da je to to...
|
|
|
|
Poslao: 22 Nov 2007 18:35
|
offline
- Riddler
- Elitni građanin
- Pridružio: 16 Jun 2005
- Poruke: 2392
- Gde živiš: Beograd
|
M=M+T
dok je M>59: H=H+1, M=M-60
i ispises H i M i to je to... Sve zavisi od jezika kako ces tacno to da zapises...
|
|
|
|
Poslao: 22 Nov 2007 18:55
|
offline
- Pridružio: 22 Nov 2007
- Poruke: 17
- Gde živiš: u CPU
|
Programski jezik BASIC.
Dopuna: 22 Nov 2007 18:40
Inace nov sam,ali moram zadatak resiti u BASIC,a je znam samo u PASCAL.
Dopuna: 22 Nov 2007 18:55
Treba mi hitan odgovor
|
|
|
|
Poslao: 22 Nov 2007 19:05
|
offline
- karlos
- Građanin
- Pridružio: 25 Maj 2007
- Poruke: 114
- Gde živiš: Novi Sad, Sombor
|
Qbasic
CLS
DO
INPUT "Sati polaska:", h
LOOP UNTIL h >= 0 AND h <= 23
DO
INPUT "Minuti polaska:", m
LOOP UNTIL m >= 0 AND m <= 59
DO
INPUT "trajanje putovanja:", t
LOOP UNTIL t >= 0 AND t <= 200
m = m + t
SELECT CASE m
CASE 60 TO 119: h = h + 1: m = m - 60
CASE 120 TO 179: h = h + 2: m = m - 120
CASE 180 TO 239: h = h + 3: m = m - 180
CASE 239 TO 260: h = h + 4: m = m - 240
CASE ELSE
END SELECT
IF h > 23 THEN
PRINT "Stize sutra u "; h - 24; ":"; m
ELSE
PRINT "Stize "; h; ":"; m
END IF
|
|
|
|
|
Poslao: 22 Nov 2007 19:27
|
offline
- karlos
- Građanin
- Pridružio: 25 Maj 2007
- Poruke: 114
- Gde živiš: Novi Sad, Sombor
|
Nema velike razlike, samo po potrebi dodaj brojeve ispred
10 cls
20 ...
....
|
|
|
|
Poslao: 22 Nov 2007 19:29
|
offline
- Pridružio: 22 Nov 2007
- Poruke: 17
- Gde živiš: u CPU
|
izvini sto te mucim al mozes opet kod,jer bi ga kopirao.
|
|
|
|
Poslao: 22 Nov 2007 19:38
|
offline
- karlos
- Građanin
- Pridružio: 25 Maj 2007
- Poruke: 114
- Gde živiš: Novi Sad, Sombor
|
10 CLS
20 DO
30 INPUT "Sati polaska:", h
40 LOOP UNTIL h >= 0 AND h <= 23
50 DO
60 INPUT "Minuti polaska:", m
70 LOOP UNTIL m >= 0 AND m <= 59
80 DO
90 INPUT "trajanje putovanja:", t
100 LOOP UNTIL t >= 0 AND t <= 200
110 m = m + t
120 SELECT CASE m
130 CASE 60 TO 119: h = h + 1: m = m - 60
140 CASE 120 TO 179: h = h + 2: m = m - 120
150 CASE 180 TO 239: h = h + 3: m = m - 180
160 CASE 239 TO 260: h = h + 4: m = m - 240
170 CASE ELSE
180 END SELECT
190 IF h > 23 THEN
200 PRINT "Stize sutra u "; h - 24; ":"; m
210 ELSE
220 PRINT "Stize "; h; ":"; m
230 END IF
240 END
Ovo radi i u Qbasic-u i u vecini "ostalih" Basic-a.
Jedino ne radi na Commodore 64 Basic-u
|
|
|
|
Poslao: 25 Nov 2007 15:19
|
offline
- Pridružio: 22 Nov 2007
- Poruke: 17
- Gde živiš: u CPU
|
Hvala! Ti puno
Dopuna: 25 Nov 2007 15:19
A moze na obican BASIC,koji trenutno svi koristimo.
|
|
|
|