Konkursni zadatak iz racunarstva br.110(za 5 i 6 razred)

1

Konkursni zadatak iz racunarstva br.110(za 5 i 6 razred)

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.
offline
  • pixxel  Male
  • 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...



offline
  • 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...

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

offline
  • 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

offline
  • Pridružio: 22 Nov 2007
  • Poruke: 17
  • Gde živiš: u CPU

Nemoj bas QBASIC,moze obican BASIC.

offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

Nema velike razlike, samo po potrebi dodaj brojeve ispred

10 cls
20 ...
....

offline
  • Pridružio: 22 Nov 2007
  • Poruke: 17
  • Gde živiš: u CPU

izvini sto te mucim al mozes opet kod,jer bi ga kopirao.

offline
  • 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

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.

Ko je trenutno na forumu
 

Ukupno su 750 korisnika na forumu :: 5 registrovanih, 1 sakriven i 744 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: avijacija, Bluper, Boris90, Koridor, S-lash