Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Paskal pocetnicki problem

[es] :: Pascal / Delphi / Kylix :: Paskal pocetnicki problem

[ Pregleda: 3853 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

danilche123
Nemam
Nis

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



Profil

icon Paskal pocetnicki problem30.12.2008. u 16:07 - pre 155 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

icon Re: Paskal pocetnicki problem30.12.2008. u 17:09 - pre 155 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

icon Re: Paskal pocetnicki problem30.12.2008. u 17:26 - pre 155 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: 2667



+73 Profil

icon Re: Paskal pocetnicki problem30.12.2008. u 17:34 - pre 155 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;

 
Odgovor na temu

LSDCracker
Obrisan Profil

Član broj: 161168
Poruke: 62



Profil

icon Re: Paskal pocetnicki problem06.01.2009. u 12:26 - pre 154 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

icon Re: Paskal pocetnicki problem11.03.2009. u 13:33 - pre 152 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: 2667



+73 Profil

icon Re: Paskal pocetnicki problem11.03.2009. u 14:19 - pre 152 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

icon Re: Paskal pocetnicki problem11.03.2009. u 14:39 - pre 152 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: 2667



+73 Profil

icon Re: Paskal pocetnicki problem11.03.2009. u 16:21 - pre 152 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

icon Re: Paskal pocetnicki problem11.03.2009. u 16:25 - pre 152 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

icon Re: Paskal pocetnicki problem13.03.2009. u 12:42 - pre 152 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

icon Re: Paskal pocetnicki problem13.03.2009. u 15:53 - pre 152 meseci
Koju gresku?

Da li si na pocetku programa stavio
Code:
uses crt;

 
Odgovor na temu

danilche123
Nemam
Nis

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



Profil

icon Re: Paskal pocetnicki problem14.03.2009. u 16:03 - pre 152 meseci
wincrt; stoji, a kad stavim crt; prijavljuje gresku.
D4n!L0
 
Odgovor na temu

Nikolavlasotince
Nikola Stojiljkovic
Vlasotince/Beograd

Član broj: 139391
Poruke: 109
*.ADSL.neobee.net.



+1 Profil

icon Re: Paskal pocetnicki problem14.03.2009. u 23:39 - pre 152 meseci
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...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Paskal pocetnicki problem

[ Pregleda: 3853 | Odgovora: 13 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.