[es] - Paskal pocetnicki problem

danilche123
Nemam
Nis

Član broj: 174215
Poruke: 33
*.dynamic.sbb.rs.

Profil

^{30.12.2008. u 16:07 - pre 186 meseci}

Pozdrav. Zadatak je sledeci, treba napisati program koji racuna prosek ocena. Predmeti idu redom:matematika, srpski...

....begin
write ('Matematika ');
read (mat);
if mat>5 then begin write ('Ocena iz matematike ne moze biti veca od 5, upisite je ponovo: '); read (mat);
if mat>5 then write ('Ocena iz matematike ne moze biti veca od 5, upisite je ponovo:') ; read (mat);
if mat>5 then write ('Ocena iz matematike ne moze biti veca od 5, upisite je ponovo:') ; read (mat);
if mat>5 then write ('Ocena iz matematike ne moze biti veca od 5, upisite je ponovo:') ; read (mat); end;
if mat<2 then write ('Tvoj uspeh je nedovoljan, ocena ne sme biti jedinica');

write ('Srpski ');
read (srp);....

E sad problem je u tome sto kad se upise jedinica on posle ovoga, da ocena ne sme da bude jedinica i da je uspeh nedovoljan pita za ocenu iz srpskog. Sta treba da se uradi da ako je ocena iz matematike manja od dvojke program ne ide dalje?

D4n!L0

Odgovor na temu

Picsel
Beograd

Član broj: 39817
Poruke: 440
*.dyn.ravangrad.net.

+7 Profil

Re: Paskal pocetnicki problem

^{30.12.2008. u 17:09 - pre 186 meseci}

Code:
halt;

Ovako prekidas program.

Znaci
if mat<2 then halt;

Odgovor na temu

danilche123
Nemam
Nis

Član broj: 174215
Poruke: 33
*.dynamic.sbb.rs.

Profil

Re: Paskal pocetnicki problem

^{30.12.2008. u 17:26 - pre 186 meseci}

Hvala. Zanima me jos nesto. Ima li nekog drugog nacina da se ogranici da ne moze da upise vise od 5, posto ovako ako upise 6 vise od 3-4 puta on nastavlja dalje...

D4n!L0

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Paskal pocetnicki problem

^{30.12.2008. u 17:34 - pre 186 meseci}

Ako želiš da se program "blokira" sve dok se ne unese ispravna ocena, jednostavno se vrtiš u petlji, ovako otprilike:

Code:

var
  Ocena: Integer;
begin
  repeat
    Read(Ocena);
    if Ocena < 2 then
      WriteLn('Ocena ne moze biti manja od 2')
    else
      if Ocena > 5 then
        WriteLn('Ocena ne moze biti veca od 5')
      else
        Break;
  until False;
end;

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

LSDCracker
Obrisan Profil

Član broj: 161168
Poruke: 62

Profil

Re: Paskal pocetnicki problem

^{06.01.2009. u 12:26 - pre 186 meseci}

Zar nije bilo bolje ovako?

Code:

program brrrr;

var ocena:integer;
begin

repeat

read(ocena);

if ocena>5 then writeln('Ocena ne sme biti veca od 5');
if ocena<2 then writeln('Ocena ne moze biti manja od 2');

until (ocena>=2) and (ocena<=5);

{...}

end.

Pozdrav.

Odgovor na temu

danilche123
Nemam
Nis

Član broj: 174215
Poruke: 33
*.dynamic.sbb.rs.

Profil

Re: Paskal pocetnicki problem

^{11.03.2009. u 13:33 - pre 183 meseci}

Imam jos jedno pitanje pa bih ga ovde postavio da ne otvaram novu temu. Kako moze i da li moze uopste da se namesti da odredjenu operaciju uradi za neko vreme, a ne sve odmah? Primer, da sabere 2 broja a rezultat da ispise za 5 sekundi? Unapred hvala.

D4n!L0

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Paskal pocetnicki problem

^{11.03.2009. u 14:19 - pre 183 meseci}

> Kako moze i da li moze uopste da se namesti da odredjenu operaciju uradi za neko vreme, a ne sve odmah? Primer, da sabere 2 broja a rezultat
> da ispise za 5 sekundi? Unapred hvala.

Ako radiš u Delphiu možeš koristiti TTimer sa intervalom od 5000ms. Ako radiš u čistom paskalu napravi podrutinu koja će na početku učitati tekuće vreme i vrteti se u petlji dok ne istekne željeno vreme.

Odgovor na temu

danilche123
Nemam
Nis

Član broj: 174215
Poruke: 33
*.dynamic.sbb.rs.

Profil

Re: Paskal pocetnicki problem

^{11.03.2009. u 14:39 - pre 183 meseci}

Jel mozes da mi das primer za to? Sta je to podrutina?

D4n!L0

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Paskal pocetnicki problem

^{11.03.2009. u 16:21 - pre 183 meseci}

> Jel mozes da mi das primer za to?

Bilo je dosta primera za upotrebu TTimera, ako pitaš za čist pascal, ne sećam se koje funkcije se koriste za dobijanje vremena.

> Sta je to podrutina?

Pomoćna funkcija ili procedura koja se poziva iz glavnog dela i obavlja određeni zadatak.

Odgovor na temu

Picsel
Beograd

Član broj: 39817
Poruke: 440
*.dyn.ravangrad.net.

+7 Profil

Re: Paskal pocetnicki problem

^{11.03.2009. u 16:25 - pre 183 meseci}

Ili ako ispisujes na ekran, onda ovako... primer:

Code:
uses crt;
var a,b,c:integer;
begin
  write('Unesi prvi broj: ');
  readln(a);
  write('Unesi drugi broj: ');
  readln(b);
  c:=a+b;
  delay(5000);
  writeln(c);
end.

Odgovor na temu

danilche123
Nemam
Nis

Član broj: 174215
Poruke: 33
*.dynamic.sbb.rs.

Profil

Re: Paskal pocetnicki problem

^{13.03.2009. u 12:42 - pre 183 meseci}

Gresku mi prijavljuje kod tog Delay-a...

D4n!L0

Odgovor na temu

Picsel
Beograd

Član broj: 39817
Poruke: 440
*.dyn.ravangrad.net.

+7 Profil

Re: Paskal pocetnicki problem

^{13.03.2009. u 15:53 - pre 183 meseci}

Koju gresku?

Da li si na pocetku programa stavio

Code:
uses crt;