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.
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.
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.
SEO Blog | Prati me na Twitteru! | Balkan SEO Forum | Serija video tutorijala na našem jeziku kako zaraditi preko Affiliate Marketinga