Posloupnost, každou hodnotu vypsat pouze jednou – Pascal – Fórum – Programujte.com

Je dán počet hodnot posloupnosti, poté posloupnost čísel a1,...an. Čísla posloupnosti na vstupu nejsou nijak uspořádána, hodnoty se mohou opakovat, na výstupu májí být vypsána čísla této posloupnosti ale žádné z nich v output nesmí být dvakrát. Na pořádí nezáleží.

Např. pro vstup

            4

     8  7  7 4

bude správným výsledkem  posloupnost hodnot

     8 7 4

Potřebuji pomoc, jestli s k takovému to úkolu hodí použití funkce čí procedury. A jestli používat pole. Díky za rady:)

Samozřejmě, že použití funkcí, nebo procedur bude vhodné. Kdyby nic jiného, tak ti pomůžou udělat kód přehlednějším.

Co se použití pole týče ... musíš přeci použít nějakou strukturu, kam budeš hodnoty ze vstupu ukládat, aby jsi s nimi mohl pracovat. Jednou z těchto může být pole.

#2 miHan 

program posl;

const MaxN= 10000;
var posloupnost: array [1..MaxN] of integer;
var i,n: integer;

function Opakovani (X: integer): boolean;
var cislo, predchozi: integer;
begin
cislo := X;
predchozi :=0;
opakovani :=true;

if cislo=predchozi then opakovani:=false;
cislo := predchozi;

end;


begin

writeln ('Zadej pocet cisel, ktere bude posloupnost obsahovat:');
readln (n);
writeln ('Zadej cisla posloupnosti:');
for i:= 1 to n  do
read (posloupnost[i]);
for i:= 1 to n do
if opakovani(posloupnost[i]) then write (posloupnost[i],' ');

end.

Tady je to co sem zatim stvoril, ale potrebuju vychytat aby si ta funkce pamatovala hodnoty z toho pole.

Jdou do funkce nejak dosadit ty hodnoty z pole? Opet se s poli setkavam uplne poprve.

a co takto si vytvorit metodu add(int a), ktora urobi to ze za kazdym prebehne cele pole a ak sa v poli dany prvok nenachadza tak ho supne na k-tu poziciu a k sa posunie o 1 vyssie.

#4 sleepy
O takové metodě jsem ještě neslyšel, takže vůbec nevím jak funguje. Ale zřejmě se nějak zakomponuje do té funkce, ano?

#5 kejta
Metoda funkcia procedura, vsetko je to na jedno kopyto. Co som ti chel naznacit je ze si mas vytvorit funkciu na vkladanie elementou do pola, kde pouzijes jednu globalnu premennu (asi v pascale som neprogramoval uz 7 rokov tak si to vobec nepamatam). Napisem to v nejakom pseudo jazyku:

Integer cursor; // ukazuje poziciu kam sa ma vlozit dany objekt
Integer[] intArray = new Integer[MAX]; // vysledne pole prvkou

function add(Integer element) { // pridava Integer do pola
	Boolean contains = false; // premenna kde ulozis ci dane pole obsahuje alebo neobsahuje dany prvok
	for pos:=0 to cursor-1 { // iterujes po poziciu predosleho prvku
		if(intArray[pos] == element) {
			conatins = true; // ak narazis na rovanky element nastavis conatis na true
			break; // ukoncis cyklus
		}
	}
	if (! contains){ // ak pole neobsahuje dany prvok
		intArray[cursor] = element; // vlozis prvok na koniec tvojho pola
		cursor=cursor+1; // a kurzor zvysis o 1
	}
}

Je to taka zmiesanina vseli coho, ale pascal si uz naozaj nepamatam, ale malo by ti to stacit na pochopenie principu. Je to sice so zlozitostou O(n^2), ale kedze mas iba 10000 prvkove pole, je to uplne jedno.

#6 sleepy
vubec nevim jak neco podobnyho napsat v Pascali

spíš mě napadlo, že si udělám ještě jedno pole a do toho budu ukládet pouze ty hodnoty co chci vypsat, ale nevím jakým způsobem se dají porovnat dvě pole, jestli obsahuji nejakou hodnotu nebo ne.. 

...a ještě bych potřeboval rozluštit tuto chybu - Error: Incompatible types: got "Array[1..10000] Of LongInt" expected "LongInt"

#9 kejta
Mohl by jsi sem hodit kód kde ti to "vyhazuje" tu chybu?

Předpokládám, že se snažíš porovnat pole (místo dané buňky pole pomocí indexu) a proměnou typu LongInt ... ale takhle těžko říct

program posl;

const MaxN= 10000;
var posloupnost: array [1..MaxN] of Integer;
var i,n: integer;

function Opakovani (X: integer): boolean;
var cislo, predchozi_hodnoty: integer;
begin
cislo := X;
predchozi_hodnoty := posloupnost;
opakovani :=true;

if cislo=predchozi_hodnoty then opakovani:=false;

end;


begin

writeln ('Zadej pocet cisel, ktere bude posloupnost obsahovat:');
readln (n);
writeln ('Zadej cisla posloupnosti:');
for i:= 1 to n  do
read (posloupnost[i]);
for i:= 1 to n do
if opakovani(posloupnost[i]) then write (posloupnost[i],' ');

end.
         

opravdu nevim jak nacist to pole do ty funkce..

#11 kejta
tady se pokoušíš do jednoduché proměnné typu integer narvat celé pole 10000 celých čísel:

predchozi_hodnoty := posloupnost;
 

Vždyť ten překladač ti říká, na kterém to je řádku, jen je asi tak zmaten z toho, o co se pokoušíš, že ani neví, jak by ti tu chybu popsal...

#11 kejta
Tohle nevím jak myslíš:

opravdu nevim jak nacist to pole do ty funkce..

To snad ani nepotřebuješ nijak "načítat", máš přece globální proměnnou pole, která je v té funkci dostupná...

Spíš si lépe promysli, co bys v té funkci chtěl dělat. Já bych to viděl třeba takhle - předáš do ní pozici zkoumaného čísla a ta funkce zjistí, jestli na všech předchozích pozících v poli to zkoumané číslo už není...

function Opakovani (pozice : integer): boolean;
var zkoumame: integer;
begin
  opakovani :=true;
  for zkoumame:=1 to pozice-1 do
    if posloupnost[pozice]= posloupnost[zkoumame] then opakovani:=false;
end;

#13 JoDiK
Diky za pomoc, sice jsem na konecne reseni uplne neprisel ale treba dostanu aspon nejake body

Ještě doplním jednu docela elegantní možnost: množiny.

var UzByla:set of integer;
...
UzByla:=[]; {nastavime na prazdnou mnozinu - zatim nebylo nic}
for i:=1 to pocet do
 begin
 ...nacti cislo...
 if not (cislo in UzByla) then begin {jestli tohle cislo v mnozine neni}
                               ...vypis cislo...
                               UzByla:=UzByla+cislo; {vloz cislo do mnoziny}
                               end;
 end;

Jenom nevím, jestli to bude stačit na číselný typ, který používáš - množiny mají omezený rozsah prvků. Záleží na překladači.