[es] - Smješan školski zadatak

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

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

+4 Profil

^{02.06.2004. u 10:52 - pre 242 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.

SEO Blog | Prati me na Twitteru! | Balkan SEO Forum | Serija video tutorijala na našem jeziku kako zaraditi preko Affiliate Marketinga

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

Re: Smješan školski zadatak

^{02.06.2004. u 11:16 - pre 242 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

Re: Smješan školski zadatak

^{02.06.2004. u 12:11 - pre 242 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.

BoxUp
interesantna logička igra
Monty Hall paradoks - interaktivni demo

Odgovor na temu