tak ked si sa to pokusal robit tak sem hod zdrojak a pozreme sa ti na to, ved je to celkom lahky program a kolega nadomnou ty to perfektne navrhol...mala by to byt hrackamacik16 napísal:Potrebujem prosím pomôcť so zdrojakom vypisuje mi to stále chybu a nefunguje to ako to má díki moc.
bolo treba pomoct aj mne tu pomohli...Kód: Vybrať všetko
program hej;
uses crt;
var i,a,e:integer;
pole:array [1..10] of integer;
begin
clrscr;
write('Zadaj mi 10 cisel z intevalu od 0 po 20: ');
i:=0;
{naplnenie pola}
repeat
readln(a);
if (a<=20)and(a>=0) then begin
i:=i+1;
pole[i]:=a;
end
else write('to je blbe cislo, zadaj ho znova: ');
until i=10;
{bublinkova metoda}
for i:=1 to 9 do begin
for a:=1 to 9 do if pole[a]>pole[a+1] then begin
e:=pole[a+1];
pole[a+1]:=pole[a];
pole[a]:=e;
end;
end;
e:=0;
for i:=1 to 9 do if pole[i+1]-pole[i]<>1 then begin
writeln('cislo ',pole[i+1],' nesplna podmienku postupnosti a lisia sa o ',pole[i+1]-pole[i]);
e:=e+1;
end;
writeln;
write('pocet cisel ktore nesplnaju podmienku postupnosti: ',e);
readln;
end.
netreba sa s tym babrat...
mirak2 napísal:ak som dobre pochopil zadanie tak treba:
1. zotriedit pole
2. skontrolovat ci rozdiel medzi najvyssim a najnizsim je 10
ak ano vec vyriesena, vyhovujuca
ak nie ist od zaciatku pola a vypisat cislo v pripade ze rozdiel medzi nim a predchadzajucim je iny ako 1..a bude este pocitat pocet cisiel kedy sa to pokazi...
algoritmus mas, program kodit v TP sa mi nechce
tak pre moznost ked je rozdiel prveho a posledneho 10 ci je tam inc(1)...dajak sa nakodi...strasny bugneutronmind napísal:mirak2:
No ma to vsak jeden bug - co ak su zadane dve rovnake cisla? Ja osobne by som to riesil inak.
Mozno poslem aj kod ak sa mi bude chciet.
