Program u Pascal-u

firee

nap

208 postova

#1 13.03.2011.

#1 13.03.2011. u 16:31

Pozdrav Gameri!

Nisam nikad otvarao teme u vezi skole ali sada moram prinuden sam! Treba mi program u Pascalu. U programu treba da korisnik unese tri broja! A zatim da se ta tri broja poredaju po velicini.

Unaprijed hvala! Ako je malo bodova bit ce jos!

nuX

nap

706 postova

#2 13.03.2011.

#2 13.03.2011. u 16:55 Rješenje

PROGRAM skola;
uses wincrt;
var a,b,c,max,min,sred:integer;
begin
writeln ('Unesite 3 broja');
readln (a,b,c);
max:=a;
if b > max then max:=b;
if c > max then max:=c;
min:=c;
if b < min then min:=b;
if a < min then min:=a;
if (a<max) and (a>min) then sred:=a;
if (b<max) and (b>min) then sred:=b;
if (c<max) and (c>min) then sred:=c;
writeln ('Poredani brojevi ',max,' ',sred,' ',min);
end.

firee

nap

208 postova

#3 13.03.2011.

#3 13.03.2011. u 18:13

nuX je napisao/la:

PROGRAM skola;
uses wincrt;
var a,b,c,max,min,sred:integer;
begin
writeln ('Unesite 3 broja');
readln (a,b,c);
max:=a;
if b > max then max:=b;
if c > max then max:=c;
min:=c;
if b < min then min:=b;
if a < min then min:=a;
if (a<max) and (a>min) then sred:=a;
if (b<max) and (b>min) then sred:=b;
if (c<max) and (c>min) then sred:=c;
writeln ('Poredani brojevi ',max,' ',sred,' ',min);
end.

Hvala kume!