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 857 korisnika na forumu :: 47 registrovanih, 7 sakrivenih i 803 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: ajo baba, babaroga, bato, Battlehammer, Bobrock1, Bojan5150, brundo65, dankisha, darkojbn, doktor123, doktor1964, DonRumataEstorski, GORDI, Istman, ivicasimo, Joja, kikisp, Kriglord, kybonacci, Lazarus, mačković, mgolub, Mi lao shu, mile23, milenko crazy north, MiroslavD, nemkea71, nextyamb, NoOneEver Dreams, opt1, pacika, Panter, panzerwaffe, saputnik plavetnila, Sićko, Srle993, theNedjeljko, Tvrtko I, vaso1, vlad4, Vlada1389, vobo, Wrangler, xaver, zlaya011, Žrnov, šumar bk2