Paskal pocetnicki problem

Paskal pocetnicki problem 30.12.2008. u 17:07 · pre 217 meseci #1

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?

Potpis

D4n!L0

Re: Paskal pocetnicki problem 30.12.2008. u 18:09 · pre 217 meseci #2

Code:
halt;

Ovako prekidas program.

Znaci
if mat<2 then halt;

Re: Paskal pocetnicki problem 30.12.2008. u 18:26 · pre 217 meseci #3

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

Potpis

D4n!L0

Re: Paskal pocetnicki problem 30.12.2008. u 18:34 · pre 217 meseci #4

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;

Potpis

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

Re: Paskal pocetnicki problem 06.01.2009. u 13:26 · pre 216 meseci #5

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.

Re: Paskal pocetnicki problem 11.03.2009. u 14:33 · pre 214 meseci #6

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.

Potpis

D4n!L0

Re: Paskal pocetnicki problem 11.03.2009. u 15:19 · pre 214 meseci #7

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

Potpis

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

Re: Paskal pocetnicki problem 11.03.2009. u 15:39 · pre 214 meseci #8

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

Potpis

D4n!L0

Re: Paskal pocetnicki problem 11.03.2009. u 17:21 · pre 214 meseci #9

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

Potpis

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

Re: Paskal pocetnicki problem 11.03.2009. u 17:25 · pre 214 meseci #10

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.

Re: Paskal pocetnicki problem 13.03.2009. u 13:42 · pre 214 meseci #11

Gresku mi prijavljuje kod tog Delay-a...

Potpis

D4n!L0

Re: Paskal pocetnicki problem 13.03.2009. u 16:53 · pre 214 meseci #12

Koju gresku?

Da li si na pocetku programa stavio

Code:
uses crt;

Re: Paskal pocetnicki problem 14.03.2009. u 17:03 · pre 214 meseci #13

wincrt; stoji, a kad stavim crt; prijavljuje gresku.

Potpis

D4n!L0

Re: Paskal pocetnicki problem 15.03.2009. u 00:39 · pre 214 meseci #14

Verovatno koristis TPW 1.5. Bolje idi na freepascal.org i skini Free Pascal. Mnogo je bolji od TPW-a, barem se meni tako cini...

Forum kao aplikacija na telefonu

Srodne teme