Smješan školski zadatak

[ ||NeX|| @ 02.06.2004. 10:52 ] @

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.

[ skijash @ 02.06.2004. 11:16 ] @

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.

[ noviKorisnik @ 02.06.2004. 12:11 ] @

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.