MyCity » Pascal » Zadatak

Zadatak

Napisano na dan: 17.12.2011
2

Zadatak
Pagination Prethodna strana

Idi na vrh

Poslao: 20 Dec 2011 09:48
Idi na vrh
offline
  • Més que un club
  • Glavni vokal @ Harpun
  • Pridružio: 27 Feb 2009
  • Poruke: 3898
  • Gde živiš: Novi Sad,Klisa

a kada bih unosio sve ocene,kako bi to izgledalo...nemam ideju Confused



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 21 Dec 2011 14:08
Idi na vrh
offline
  • Pridružio: 04 Jul 2011
  • Poruke: 5424

program Project2; {$APPTYPE CONSOLE} uses   SysUtils;   var odgovor,o1:char;       predmet:string;       ocena,zbir,n,i:integer;       prosek:real; begin n:=0; zbir:=0; REPEAT   Writeln('Unosite ocenu iz?');   readln(predmet);   writeln('Unesite ocene iz matematike ',predmet);     REPEAT     readln(ocena);     zbir:=zbir+ocena;     n:=n+1;     writeln('Jos?');     readln(o1);     UNTIL (o1='n') or (o1='n');   writeln('Zelite da unesete ocenu iz jos nekog predmeta?(D/N)');   readln(odgovor); UNTIL (odgovor='n') or (odgovor='N'); prosek:=zbir/n; writeln(prosek:0:2); i := ROUND(10*prosek);   CASE i OF   0..14:Writeln('nedovoljan');   15..24:Writeln('dovoljan');   25..34:Writeln('dobar');   35..44:Writeln('vrlo dobar');   45..50:Writeln('odlican');   end; readln end.
Nisam ogranicavao ocene ok 1..5, tako da ako kotisnik unese pogresno, program nastavlja... Potrebna je po jedna if naredba u repeat-u.



MyCity » Pascal » Zadatak

Ko je trenutno na forumu
 

Ukupno su 2508 korisnika na forumu :: 65 registrovanih, 4 sakrivenih i 2439 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, _Rade, ALEXV, Andrija357, Besudna, bog sunca, BORUTUS, CHARLIE JA., Cirkon, Citalac, cojapop, cole77, crazydkure, croato, DeerHunter, DezurniOperativni, Djota1, Dragan1998, dragoljub11987, Drugard72, Dungorth, dushan, efektiva, ekipo26, Feller, FileFinder, Great White, igorkozar83, Imperator_Aleksandr_lll, Jonbonjovi, JOntra, Kajzer Soze, ladro, Luka Blažević, markovich, MarkTven, mat, Medojed, mercedesamg, mica6335, Milan A. Nikolic, mile.ilic75, milenko crazy north, Miler88, miljannis, monomah, Mrav Obrad, nekdo, Pantaaa, pein, Pekman, procesor, raster12, Regrut Boskica, ruma, saputnik plavetnila, Smiljkovich, Sonic, strelac07, suton, tubular, VJ, Vlada78, VNVK, zemljanin