| | |
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Autor | Správa |
---|
Registrovaný: 18.04.07 Prihlásený: 02.05.07 Príspevky: 5 Témy: 2 | Napísal erase: 30.04.2007 18:11 | |
|
zdarvim prosim mohol by mi niekto pomoct z ulohou?
znie :
uzivatel zada dve postupnosti, pociatc ich zoradi vzostupne a urobi z nich tretiu ktora je tiez zadana vzostupne a je prienikom tych dvoch predchadzajkucich za vsteky postrečhy dakujem
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
v akom jazyku? aké triedenie treba použiť? dokedy?
|
|
Registrovaný: 18.04.07 Prihlásený: 02.05.07 Príspevky: 5 Témy: 2 | Napísal autor témy erase: 01.05.2007 12:37 | |
|
no na zajtra to potrebujem takze dneska mi to treba a ma ot byt v pascale a ma to vyzerat napr takto :
nypiste pocet prvkov postupnosti ja napisem ze chcem co ja viem 5
potom ich po jdnom povpisujem to cez polia sa ma robit comp ich zoradi vzostupne a to iste urobime este raz lebo maju byt dve postupnosti no a potom urobi z tych postupnosti tretiu ktora je ich prienikom napr zadam cisla
postupnost 1 : 1 ,36,2,6,9
postupnost 2: 6,8,4,9,12
a vyhodi postupnost ktora bude 6 a 9
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
Kód: program Polia;
var pole1,pole2,prienik:array of integer; I,J:integer;
procedure zorad(var vstup:array of integer); begin for i:=low(vstup) to high(vstup) do begin for j:=low(vstup) to i do begin if vstup[j]>vstup[i] then begin vstup[i]:=vstup[i]+vstup[j]; vstup[j]:=vstup[i]-vstup[j]; vstup[i]:=vstup[i]-vstup[j]; end; end; end; end;
procedure najdiprienik(a,b:array of integer); var n:integer; begin n:=1; for I:=low(a) to high(a) do begin for J:=low(b) to high(b) do begin if a[i]=b[j] then begin setlength(prienik,n); prienik[n-1]:=a[i]; inc(n); end; end; end; end;
begin writeln('Zadaj velkost pola 1: '); read(I); setlength(pole1,I); writeln('Zadaj velkost pola 2: '); read(I); setlength(pole2,I); for I:=low(pole1) to high(pole1) do begin write('Zadaj hodnotu do 1. pola: '); read(pole1[i]); end; for I:=low(pole2) to high(pole2) do begin write('Zadaj hodnotu do 2. pola: '); read(pole2[i]); end; zorad(pole1); zorad(pole2); najdiprienik(pole1,pole2); zorad(prienik); writeln; writeln; write('Pole 1: '); for I:=low(pole1) to high(pole1) do write(pole1[i],' '); writeln; write('Pole 2: '); for I:=low(pole2) to high(pole2) do write(pole2[i],' '); writeln; write('Prienik: '); for I:=low(prienik) to high(prienik) do write(prienik[i],' '); writeln; end.
|
|
Registrovaný: 18.04.07 Prihlásený: 02.05.07 Príspevky: 5 Témy: 2 | Napísal autor témy erase: 01.05.2007 15:24 | |
|
diki moc idem to hned skusit velmi si mi pomohol
|
|
Registrovaný: 18.04.07 Prihlásený: 02.05.07 Príspevky: 5 Témy: 2 | Napísal autor témy erase: 01.05.2007 19:01 | |
|
zdravim potrebujem este funkciu na zoradenie prvkov pola neklesajuco v pascale je to dost urgentne
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
šak som ti tam poslal procedúru na zotriedenie, tak si to prerob. Omg, to si už čo za lamu? Vymeníš tam jedno znamienko nerovnosti
|
|
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| pascal pole - do utriedenej postupnosti vlozte x v Assembler, C, C++, Pascal, Java | 1 | 349 | 06.02.2011 17:06 juho | | Assembler, min, max v postupnosti v Assembler, C, C++, Pascal, Java | 6 | 924 | 22.12.2008 22:21 Logik | | Free Pascal a Turbo Pascal v Assembler, C, C++, Pascal, Java | 0 | 381 | 19.12.2014 13:18 Styracoz | | Polia v Assembler, C, C++, Pascal, Java | 12 | 495 | 29.12.2014 13:24 chrono | | Polia v Delphi, Visual Basic | 2 | 677 | 03.05.2009 14:59 ricco24 | | viacrozmerne polia v PHP, ASP | 4 | 691 | 04.08.2009 18:39 pilná lama glama | | c++polia v Assembler, C, C++, Pascal, Java | 3 | 515 | 10.07.2014 12:56 marian_r | | Dropdown - schova polia v JavaScript, VBScript, Ajax | 3 | 378 | 14.01.2013 18:47 shaggy | | vyber prvkov - POLIA v PHP, ASP | 5 | 493 | 23.04.2010 10:48 stenley | | Polia , príkaz foreach v PHP, ASP | 4 | 861 | 30.12.2011 11:51 shaggy | | Objekty ako polia v PHP, ASP | 7 | 684 | 03.01.2010 12:49 stenley | | 2rozmerne polia v jave v Assembler, C, C++, Pascal, Java | 8 | 601 | 29.03.2015 9:37 Lessik | | Polia - lazarus programovanie pomoooc v Delphi, Visual Basic | 3 | 742 | 28.11.2012 14:00 BX | | dve polia & foreach v PHP, ASP | 8 | 679 | 08.07.2009 16:03 Snacker | | PHP... konk.: arrays (polia) v PHP, ASP | 2 | 595 | 11.03.2007 19:46 qacer | | objekty a polia v SESSION v PHP, ASP | 2 | 513 | 24.08.2009 10:15 tomast7 |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|