[Pascal] Sucet_int - Zdrojovy kod - velmi surne

Axwell · Napísal **Axwell**: 06.05.2008 20:28

Sucet_int

Z klávesnice bude postupne zadaných N celých číselných hodnôt. Vytvorte program,
ktorý spočíta iba čísla z intervalu <a,b>. Hranice intervalu budú tiež zadané z klávesnice.

potrebujem surne zdrojovy kod

stopa27 · Napísal **stopa27**: 07.05.2008 10:57

Uses crt;
Var b:array[0..100] of integer;
i,j,k,l,m,h1,h2,n,p:integer;
Begin
Repeat
L:=0;
Inc(n);
Readln(m);
For i:=1 to n do
Begin
If b[i]>m then
For j:=n downto i do
Begin
B[j]:=b[j-1];
L:=1;
End;
If l=1 then break;
End;
b[i]:=m;
Until m=30000;
Writeln('zadaj hranice');
Readln(h1,h2);
L:=0;
For i:=1 to n do
If b[i]>=h1 then
Begin
P:=i;
Repeat
L:=l+b[p];
Inc(p);
Until b[p]>h2;
Break;
End;
Wri

stopa27 · Napísal **stopa27**: 07.05.2008 11:00

Teln(l);
Readln;
End.
Musel som to rozseknut-mobil nepodporuje tak dlhe spravy

Roberbo · Napísal **Roberbo**: 08.05.2008 2:37

..pre Pascal a ktoru verziu?

stopa27 · Napísal **stopa27**: 08.05.2008 11:36

Ako to myslis?

Svolo · Napísal **Svolo**: 08.05.2008 11:38

Inak casto sa tu stava, ze vysokoskolaci ziadaju zdrojove kody pre Pascal, Java, C atd. Mam taku otazku. K comu sa vlastne ty vysokoskolaci ucia tie jazyky a za co dostavaju tituly, ked im kody robite tu?

stopa27 · Napísal **stopa27**: 08.05.2008 16:06

Skor mam z toho pocit maturitnej otazky. A s tou sa patri pomoct.

tlacitko Enter · Napísal **tlacitko Enter**: 08.05.2008 16:30

Chmolo píše:

Inak casto sa tu stava, ze vysokoskolaci ziadaju zdrojove kody pre Pascal, Java, C atd. Mam taku otazku. K comu sa vlastne ty vysokoskolaci ucia tie jazyky a za co dostavaju tituly, ked im kody robite tu?

Casto na roznych strojarskych (a inych technickych neinformatickych) skolach maju moznost si dat programovanie, alebo niekde dokonca musia - spoluziak z gympla chodi na VUT do brna, bude z neho strojar a musel spravit nejaky lahky predmet kde robili v delphi - a on nikdy nic neprogramoval takze nemal sancu sam spravit zapoctovy priklad bez toho aby tyzden pri tom stravil...

Ine je ked si niekto zvoli ze bude maturovat z informatiky alebo ked je na informatickej VS - by sa hodilo aby si tie programy sami pisali...

Axwell · Napísal autor témy **Axwell**: 10.05.2008 19:31

takze zdrojovy kod, ktore je vyssie sa sice da skompilovat v Dev-Pascal ale hned padne ked ho otvorim. Tento priklad je pre prvaka na strednej :-)

neutronmind · Napísal **neutronmind**: 10.05.2008 22:45

stopa27 hmm no mne to vyslo trochu kratsie :oops:

Kód:

program sucetcisel;

var
  Pole: array[1..200] of integer;
  A,B,X,I,Sucet: integer;

begin
Sucet:=0;
X:=1;
writeln('Program na vypocet suctu cisel zadanych z klavesnice,');
writeln('ktore sa nachadzaju v urcitom intervale.');
writeln('Pre ukoncenie zadavania cisel, napise cislo 12345');

repeat
  write('Napiste cislo: ');
  readln(Pole[X]);
  X:=X+1;
until Pole[X-1]=12345;

write('Napiste interval: ');
readln(A,B);

for I:=1 to X-1 do
  begin
    if (Pole[I]>=A) and (Pole[I]<=B) then
    Sucet:=Sucet+Pole[I];
  end;

writeln('Sucet zadanych cisel v danom intervale je: ',Sucet);
readln;

end.

btw. mne ten kod od stopy27 isiel skompilovat v turbopascale a nepada :roll:

. pre istotu som to vsetko uploadol... su tam zdrojaky aj skompilovane programy odo mna a od stopy...

download

Axwell · Napísal autor témy **Axwell**: 10.05.2008 23:06

takze diky, program tvoj uz mi ide velmi bez chyb a pekne :-)

ale problem je v tom ze, mozme pouzivat iba while do, if then else a ine nic.

arnie16 · Napísal **arnie16**: 11.05.2008 0:54

Axwell píše:

takze diky, program tvoj uz mi ide velmi bez chyb a pekne :-)

ale problem je v tom ze, mozme pouzivat iba while do, if then else a ine nic.

cyklus for nemozes??

stenley · Napísal **stenley**: 11.05.2008 1:04

Chmolo píše:

Inak casto sa tu stava, ze vysokoskolaci ziadaju zdrojove kody pre Pascal, Java, C atd. Mam taku otazku. K comu sa vlastne ty vysokoskolaci ucia tie jazyky a za co dostavaju tituly, ked im kody robite tu?

Tento typ prikladov na vyske asi tazko dostanes, ale nebol by som proti

tam su zadania uz na inej urovni, nedavno som mal napriklad naprogramovat najdenie riesenia (postupnost tahov k cielovemu stavu) lubovolneho n-hlavolamu...

Axwell · Napísal autor témy **Axwell**: 11.05.2008 9:30

cyklus for nie :-( no a takyto program je este lahky hned Vam sem napisem ovela tazsi program ako nejaky n-hlavolam.

http://www.upnito.sk/download.php?dwTok ... aedb4f8832

tam skuste vyriesit priklad 3, mozete vsetko pouzit co je v pascale. je to priklad pre 1-2 na strednej. Nemusite ho vyriesit. Ale tento sucet_int by som potreboval uz od niekoho kto ho ma spraveny cez while do a if then else.

arnie16 · Napísal **arnie16**: 11.05.2008 11:38

Axwell píše:

cyklus for nie :-( no a takyto program je este lahky hned Vam sem napisem ovela tazsi program ako nejaky n-hlavolam.

http://www.upnito.sk/download.php?dwTok ... aedb4f8832

tam skuste vyriesit priklad 3, mozete vsetko pouzit co je v pascale. je to priklad pre 1-2 na strednej. Nemusite ho vyriesit. Ale tento sucet_int by som potreboval uz od niekoho kto ho ma spraveny cez while do a if then else.

kebyze sa moze pouzit cyklus for tak by to bolo jednoduche

neutronmind · Napísal **neutronmind**: 11.05.2008 12:27

njn tu to mas...

Kód:

program sucetcisel;

var 
  Pole: array[1..200] of integer;
  A,B,X,Y,Sucet: integer;

begin 

Sucet:=0;
X:=1;
Y:=1;
writeln('Program na vypocet suctu cisel zadanych z klavesnice,');
writeln('ktore sa nachadzaju v urcitom intervale.');
writeln('Pre ukoncenie zadavania cisel, napise cislo 12345.');

while Pole[X]<>12345 do
  begin
    write('Napiste cislo: ');
    X:=X+1;
    readln(Pole[X]);
  end;

write('Napiste interval: ');
readln(A,B);

while Y<>X do
  begin
    if (Pole[Y]>=A) and (Pole[Y]<=B) then
    Sucet:=Sucet+Pole[Y];
    Y:=Y+1;
  end;

writeln('Sucet zadanych cisel v danom intervale je: ',Sucet);
readln;

end.

Axwell · Napísal autor témy **Axwell**: 11.05.2008 12:54

tak sprav mi to s cyklusom for ale nic viac este mozes if then else pouzit ale nic viac, ziadne polia atd. diky

neutronmind · Napísal **neutronmind**: 11.05.2008 13:53

Axwell píše:

tak sprav mi to s cyklusom for ale nic viac este mozes if then else pouzit ale nic viac, ziadne polia atd. diky

mno ved tam som ti to spravil len s cyklom while - do a podmienkou if-then-else, for-to-do som uplne vynechal... bez pouzitia pola by to imho nebolo mozne, a keby sa dalo, bolo by to velmi zdlhave a zdrojak by bol dost dlhy... maximalne by sa to dalo mozno spravit tak, ze by som pouzil mnozinu, alel riesenie s polom je najefektivnejsie

stenley · Napísal **stenley**: 11.05.2008 15:14

Axwell píše:

no a takyto program je este lahky hned Vam sem napisem ovela tazsi program ako nejaky n-hlavolam.

http://www.upnito.sk/download.php?dwTok ... aedb4f8832

co je prosim ta na tom priklade tazke?

uplne easy...

tlacitko Enter · Napísal **tlacitko Enter**: 11.05.2008 15:51

asi som to nepochopil ale preco tam davate to pole?
1. zadanie intervalu = 2 premenne
2. zadavanie cisel v cykle (1 premenna), porovnanie s intervalom, pripadne pripocitanie (1 premenna)
=> su potrebne 4 ciselne premenne, staci aby bol ako prvy zadany interval a potom az cisla

neutronmind · Napísal **neutronmind**: 11.05.2008 19:09

tlacitko Enter píše:

asi som to nepochopil ale preco tam davate to pole?
1. zadanie intervalu = 2 premenne
2. zadavanie cisel v cykle (1 premenna), porovnanie s intervalom, pripadne pripocitanie (1 premenna)
=> su potrebne 4 ciselne premenne, staci aby bol ako prvy zadany interval a potom az cisla

nj mas pravdu, nad tymto som aj ja uvazoval, ale nechcel som to sem davat, lebo som myslel, ze ten interval mas byt zadany az po precitani tych cisel... ak nie tak by to mohlo byt takto...

Kód:

program sucetcisel;

var
  A,B,X,Sucet: integer;

begin
Sucet:=0;
X:=1;

writeln('Program na vypocet suctu cisel zadanych z klavesnice,');
writeln('ktore sa nachadzaju v urcitom intervale.');
writeln('Pre ukoncenie zadavania cisel, napise cislo 12345.');

write('Napiste interval: ');
readln(A,B);

while X<>12345 do
  begin
    write('Napiste cislo: ');
    readln(X);
    if (X>=A) and (X<=B)then Sucet:=Sucet+X;
  end;

  writeln('Sucet zadanych cisel v danom intervale je: ',Sucet);
readln;
end.

Axwell · Napísal autor témy **Axwell**: 11.05.2008 20:15

diky

toto je to prave :-)

)))

stopa27 · Napísal **stopa27**: 12.05.2008 8:06

btw. mne ten kod od stopy27
poprosil by som nabuduce "od stopu" - je to zvlastne, ale je to tak.
Si mohol skor povedat, ze interval mozes citat skor ako cisla

neutronmind · Napísal **neutronmind**: 12.05.2008 18:06

stopa27 píše:

btw. mne ten kod od stopy27
poprosil by som nabuduce "od stopu" - je to zvlastne, ale je to tak.
Si mohol skor povedat, ze interval mozes citat skor ako cisla

hhhh vlastne mas pravdu, si chlap, takze skor od stopu :oops:

sorry

Roberbo · Napísal **Roberbo**: 13.05.2008 3:50

stopa27 píše:

Uses crt;
Var b:array[0..100] of integer;
i,j,k,l,m,h1,h2,n,p:integer;
Begin
Repeat
L:=0;
Inc(n);
Readln(m);
For i:=1 to n do
Begin
If b[i]>m then
For j:=n downto i do
Begin
B[j]:=b[j-1];
L:=1;
End;
If l=1 then break;
End;
b[i]:=m;
Until m=30000;
Writeln('zadaj hranice');
Readln(h1,h2);
L:=0;
For i:=1 to n do
If b[i]>=h1 then
Begin
P:=i;
Repeat
L:=l+b[p];
Inc(p);
Until b[p]>h2;
Break;
End;
Wri

Nebude bezat v pascale..

Aj odpoved na:

Ako to myslis?

...

viac chyb + aj break je chyba

stopa27 · Napísal **stopa27**: 14.05.2008 8:00

V TP7 to ide v pohode.

[Pascal] Sucet_int - Zdrojovy kod - velmi surne

Podobné témy