Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 7 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 18.04.07
Prihlásený: 02.05.07
Príspevky: 5
Témy: 2
Príspevok NapísalOffline : 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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 30.04.2007 18:16

v akom jazyku? aké triedenie treba použiť? dokedy?


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 18.04.07
Prihlásený: 02.05.07
Príspevky: 5
Témy: 2
Príspevok Napísal autor témyOffline : 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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 01.05.2007 13:43

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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 18.04.07
Prihlásený: 02.05.07
Príspevky: 5
Témy: 2
Príspevok Napísal autor témyOffline : 01.05.2007 15:24

diki moc idem to hned skusit velmi si mi pomohol


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 18.04.07
Prihlásený: 02.05.07
Príspevky: 5
Témy: 2
Príspevok Napísal autor témyOffline : 01.05.2007 19:01

zdravim potrebujem este funkciu na zoradenie prvkov pola neklesajuco v pascale je to dost urgentne


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 01.05.2007 20:40

š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


Odpovedať na tému [ Príspevkov: 7 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. pascal pole - do utriedenej postupnosti vlozte x

v Assembler, C, C++, Pascal, Java

1

349

06.02.2011 17:06

juho Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Assembler, min, max v postupnosti

v Assembler, C, C++, Pascal, Java

6

924

22.12.2008 22:21

Logik Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Free Pascal a Turbo Pascal

v Assembler, C, C++, Pascal, Java

0

381

19.12.2014 13:18

Styracoz Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Polia

v Assembler, C, C++, Pascal, Java

12

495

29.12.2014 13:24

chrono Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Polia

v Delphi, Visual Basic

2

677

03.05.2009 14:59

ricco24 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. viacrozmerne polia

v PHP, ASP

4

691

04.08.2009 18:39

pilná lama glama Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. c++polia

v Assembler, C, C++, Pascal, Java

3

515

10.07.2014 12:56

marian_r Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Dropdown - schova polia

v JavaScript, VBScript, Ajax

3

378

14.01.2013 18:47

shaggy Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. vyber prvkov - POLIA

v PHP, ASP

5

493

23.04.2010 10:48

stenley Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Polia , príkaz foreach

v PHP, ASP

4

861

30.12.2011 11:51

shaggy Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Objekty ako polia

v PHP, ASP

7

684

03.01.2010 12:49

stenley Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. 2rozmerne polia v jave

v Assembler, C, C++, Pascal, Java

8

601

29.03.2015 9:37

Lessik Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Polia - lazarus programovanie pomoooc

v Delphi, Visual Basic

3

742

28.11.2012 14:00

BX Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. dve polia & foreach

v PHP, ASP

8

679

08.07.2009 16:03

Snacker Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. PHP... konk.: arrays (polia)

v PHP, ASP

2

595

11.03.2007 19:46

qacer Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. objekty a polia v SESSION

v PHP, ASP

2

513

24.08.2009 10:15

tomast7 Zobrazenie posledných príspevkov


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

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra