[Pascal] Sucet_int - Zdrojovy kod - velmi surne

Axwell

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

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

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

Roberbo

..pre Pascal a ktoru verziu?

stopa27

Ako to myslis?

Svolo

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

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

tlacitko Enter

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

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

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

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

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

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

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

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

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

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

neutronmind

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

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

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

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

diky

toto je to prave :-)

)))

stopa27

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

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

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

V TP7 to ide v pohode.

[Pascal] Sucet_int - Zdrojovy kod - velmi surne

[Pascal] Sucet_int - Zdrojovy kod - velmi surne

Podobné témy

[Pascal] Mocniny - Zdrojovy kod - velmi surne

[Pascal] Cela_cast - zdrojovy kod

Pascal zdrojový kód-Problém

[Pascal] Sinus - zdrojovy kod

[Pascal] desatinna_cast - zdrojovy kod

[Pascal] Pad - zdrojovy kod

[Pascal] BMI - vypocet - zdrojovy kod

[Pascal] Objem_valec - vypocet - zdrojovy kod

[Pascal] Dlzka kruhu - vypocet - zdrojovy kod

[Pascal] sucet_k - zdrojak - velmi surne

[Pascal] Sucet_NC - zdrojak - velmi surne

pascal potrebujem zdrojovy kod na program na vypocet mzdy

Zdrojový kód

zdrojovy kod

zdrojovy php kod stranky

Redakčný systém a zdrojový kód?