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 1850 korisnika na forumu :: 40 registrovanih, 4 sakrivenih i 1806 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5623 - dana 13 Dec 2025 19:56

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, alex71, AMCXXL, Atomski čoban, Azzo, Bickoooo, bojan313, BUDDAR70, Dimitrise93, djonsule, DuškoMraz, eagle.rs, Feller, galijot, gasha, ghoost, Giskard, ivan979, kaskadija, kutija11, Lazarus, maCvele, marsovac 2, Michellefromrezistance, misa1xx, mjovan, nenad81, nsharambasa, Orfanelin, partyzan, redstar011, Solunac na steroidima, Stanlio, Tas011, Vanderx, vathra, Veless, voja64, volimpivuvolimrakiju, vukan0799