Pascal(!)

#1 23.12.2005. u 17:02

Eh ovako
Primjenom petlje unijeti 6 brojeva pod oznakom a
ako je a0(nula) sabrati pozitivne brojeve pod oznakom Spp+a
ako je a0(nula) sabrati negativne brojeve Sn:=Sn+a
x je oznaka za varijeblu petlje

Program ide ovako

PROGRAM PETLJA
USES WINCRT
VAR X,Sp,Sn,a:INTIGER
BEGIN
FOR X:1 TO 6 DO
BEGIN
READLN (a);
IF a0 THEN Sp:=Sp+A
IF a0 THEN Sn:=Sn+A
WRITELN ('Sp=',Sp)
WRITELN('Sn=',Sn)
END;
END.

Eh sad meni treba na osnovu ovog programa napisati programe koji ce:
1.odrediti najveći i najmanji broj
2. poredati brojeve po velicini
3.ispisati sve parne brojeve
4.ispisati sve negativne brojeve
Za svaki ovaj posebno
U pascalu

unaprijed hvala!

#2 23.12.2005. u 18:11

Ajd ti to malo bolje objasni.
Onaj ti je program pun gresaka i uvijek izbacuje rezultat 0.

Prvo mi reci sta je a0?

#3 23.12.2005. u 18:17

da program ti je prepun gresaka i ne bi cak ni 0 izbacivao jednostavno ne bi ga mogao ni pokrenuti

a vako moje upute

prvo definisi najmanji sa min i onda za svaki broj ide if a<min then min=a

tako ih i po velicini redas na isiti fol koristis si polaznu tacku bilo koji broj i uporedzujes ih

a za parne brojeve ti je najlake po nizovima rijesiti a naredba ti je if a mod 2 = 0
a negativni if a>0 i to ti je to sad ti malo skontaj sta hoces a da ti radim zadatak citav nemam volje imas www.dir.hr tamo imas dosta uputstava o pascalu

#4 23.12.2005. u 19:06

OMG nisam odavno radio pascal ali previse je greski momak...
Ispravi malo kod

#5 23.12.2005. u 20:17

pitaj gC on je razvaljivao u msets(pitajte hastora on sve zna )

#6 23.12.2005. u 23:16

ama nisam ja ovo uopste pisao

profesor nam dao program ovo ko fol nes pojasnio a ustvari niko nista nije skontao
i sad mi ko' trebamo da napisemo na osnovu ovoga te ostale programe

Ako moze da neko fino to napise ...

#7 23.12.2005. u 23:27

huhu ala je ovo konfuzno pa ni text ti nema bas neke veze valjda ako je a vece od nule onda sabrat pozitivne brojeve i ako je a manje od nule sabrat negativne ?

nikako nemogu da skontam text ovog zadatka da ima neke logike ...

#8 23.12.2005. u 23:39

               The`Crow je napisao/la:

huhu ala je ovo konfuzno pa ni text ti nema bas neke veze valjda ako je a vece od nule onda sabrat pozitivne brojeve i ako je a manje od nule sabrat negativne ? nikako nemogu da skontam text ovog zadatka da ima neke logike ...

zato sam i stavio...nadam se da ce neko skontati posto ja nisam

#9 24.12.2005. u 12:18

reci ti svom profesoru nek prvo fino napise zadatak pa onda da fino kaze sta hoces da uradite

#10 30.12.2005. u 16:21 Rješenje

var
n,i,j,min,max,temp:integer;
niz:array[1..100] of integer;

begin


{UNOS PODATAKA I PRORACUN:}

write('Koliko brojeva zelite: '); readln(n);
if n>100 then n:=100;
for i:=1 to n do
begin
write('#',i,' Unesite broj:'); readln(niz);
end;

for i:=1 to n-1 do {sortiranje}
for j:=i+1 to n do
if niz<niz[j] then
begin
temp:=niz;
niz:=niz[j];
niz[j]:=temp;
end;


{ISPIS PO POTREBI:}

writeln;
writeln('Najveci broj je: ',niz[1]);
writeln('Najmanji broj je: ',niz[n]);


writeln('Parni brojevi: ');
for i:=n downto 1 do if niz mod 2 = 0 then writeln(niz);


writeln('Negativni brojevi: ');
for i:=1 to n do if niz<0 then writeln(niz);

readln;
end.


dl:
www.geocities.com/gc_an0/gamers.pas

'hf

Post dobio aplauz od xE0N