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

Smješan školski zadatak

[es] :: Pascal / Delphi / Kylix :: Smješan školski zadatak

[ Pregleda: 2984 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

||NeX||
Nedim Šabić
Vlasnik SEO.ba
BiH

Član broj: 1430
Poruke: 1733
*.as53.tr.bih.net.ba.



+4 Profil

icon Smješan školski zadatak02.06.2004. u 10:52 - pre 213 meseci
Evo mi ortak donjeo neki zadatak, a pošto ja to ne baćkam, samo popravite gdje treba.

Treba neka tri broja poredati od min do max.

On je ovako uradio:
Code:
PROGRAM Redosljed;
VAR min,sr,max,x,y,z:integer;
BEGIN
WRITE('Unesi prvi broj za x=');
READLN(x);
WRITE('Unesi drugi broj za y=');
READLN(y);
WRITE('Unesi reci broj za z=');
READLN(z);
IF min=x THEN BEGIN
IF y<min THEN min:=y;
IF z<min THEN min:=z;
END;
IF sr=x THEN BEGIN
IF min<y THEN sr:=y;
IF min<z THEN sr:=z;
END;
IF max=x THEN BEGIN
IF max<x THEN max:=y;
IF max<z THEN max:=z;
END;
WRITELN('Redosljed tri broja od najmanjeg do najveceg je slijedeci',min,sr,max);
END.

Ali nešto ne štima.

Ja sam logikom pokušao to ovako, ali pošto nemam Pascala nisam mogao probati jel to to:
Code:
PROGRAM Redosljed;
VAR min,sr,max,x,y,z:integer;
BEGIN
WRITE('Unesi prvi broj za x=');
READLN(x);
WRITE('Unesi drugi broj za y=');
READLN(y);
WRITE('Unesi reci broj za z=');
READLN(z);
IF min=x GO TO -
IF min=y GO TO -
IF min=z GO TO -
END;
IF sr=x GO TO -
IF sr=y GO TO -
IF sr=z GO TO -
END;
IF max=x GO TO -
IF max=y GO TO -
IF max=z GO TO -
END;
WRITELN('Redosljed tri broja od najmanjeg do najveceg je slijedeci',min,sr,max);
END.

 
Odgovor na temu

skijash
Nikola Petrović
Software engineer, Vast.com
BG

Član broj: 8511
Poruke: 344
*.201.eunet.yu

Sajt: www.mafiamotorsport.org


+2 Profil

icon Re: Smješan školski zadatak02.06.2004. u 11:16 - pre 213 meseci
Code:
PROGRAM Max_tri_broja;
VAR
    a,b,c,max:real;
BEGIN
    writeln('Unesite tri broja odvojena razmacima');
    read(a,b,c);
    max:=a;
    if max<b then max:=b;
    if max<c then max:=c;
    writeln('Max broj je:',max:1:2)
END.

...:::|skijash|:::...
www.beoprint.rs ::: www.mafiamotorsport.org
 
Odgovor na temu

noviKorisnik
Dejan Katašić
Novi Sad

Član broj: 13216
Poruke: 4533
194.247.222.*

Sajt: www.novikorisnik.net


+5 Profil

icon Re: Smješan školski zadatak02.06.2004. u 12:11 - pre 213 meseci
Citat:
Treba neka tri broja poredati od min do max.

Code:
PROGRAM Redosljed;
VAR min,sr,max,x,y,z:integer;
BEGIN
WRITE('Unesi prvi broj za x=');
READLN(x);
WRITE('Unesi drugi broj za y=');
READLN(y);
WRITE('Unesi reci broj za z=');
READLN(z);

min := x;
IF y < min THEN BEGIN sr := min; min := y END
ELSE sr := y;
IF z < min THEN BEGIN max := sr; sr := min; min := z END
ELSE IF z < sr THEN BEGIN max := sr; sr := z END
     ELSE max := z;

WRITELN('Redosljed tri broja od najmanjeg do najveceg je slijedeci',min,sr,max);
END.

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Smješan školski zadatak

[ Pregleda: 2984 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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