algorytmy

ďťż

algorytmy

Ewa - Nie Kwi 11, 2010 10:20 am
ma ktos to co mamy zrobic z algorytmów?

Olguś :D - Nie Kwi 11, 2010 9:34 pm
W niedziele???? Na środe?! ;p

Francik - Nie Kwi 11, 2010 11:16 pm
a co mamy zrobic ?

Stalker - Pon Kwi 12, 2010 8:31 am
Program, który działa tak. Najpierw deklaruje się liczbę. Następnie ta liczba jest wyszukiwana w zbiorze. Jeśli jej nie ma w zbiorze nie dzieje się nic. Jeśli jest to po niej wstawiamy rekord z taką samą liczbą. Np. mamy ciąg 2 4 5 1 7 i zadeklarowana liczba to 5 to po wykonaniu programu wyglądać ma to tak 2 4 5 5 7. W sumie mam coś podobnego na dysku ale trzeba to przerobić nieco.

PS
Oczywiście to ma być na wskaźnikach.

Kod: Zaznacz wszystkoprogram z73(input,output);

uses Crt;

type
ref=^element;
element=record
dane : integer;
nastepny : ref;
end;

var
z, p, q, r : ref;
k, n, i : integer;
a : array[1..10] of integer;

begin
a[1]:=3; a[2]:=7;
a[3]:=8; a[4]:=10;
a[5]:=12; a[6]:=29;
a[7]:=4; a[8]:=35;
a[9]:=33; a[10]:=14;

writeln('wpisz gdzie ma byc rekord');
read(n);

z:=nil;
for i:=10 downto 1 do
begin
new(p);
p^.nastepny:=z;
z:=p;
p^.dane:=a[i];
writeln(p^.dane);
if i=n then
begin
q:=p;
{new(r);
r:=p^.nastepny;
p:=r;}
end;
end;
writeln;
writeln('----');
writeln(q^.dane);
writeln;
{writeln(r^.dane);}
writeln('-------------');
readln(k);
for i:=n to 9 do
begin
q:=q^.nastepny;
writeln(q^.dane);
if q^.dane=k then
writeln('few!');
end;
for i:=1 to n-1 do
begin
p:=p^.nastepny;
writeln(p^.dane);
if p^.dane=k then
writeln('few!');
end;
readln(n);

end.

To trzeba nieco po zmieniać. Pierwsze wyświetlenie jest na odwrót to znaczy pozycja nr 1 jest wyświetlona na końcu. Przy drugim wyświetleniu jest normalnie. Trzeba tu dodać wstawianie rekordu po znalezionej liczbie i będzie.

brudek - Pon Kwi 12, 2010 12:14 pm
aha

Stalker - Pon Kwi 12, 2010 1:12 pm
A zapomniałem o tym, że liczba w dodawanym rekordzie ma być k+1. Jak k będzie 5 to ciąg na wejściu w postaci 2 4 5 1 7 na wyjściu ma wyglądać tak 2 4 5 6 1 7

Cabe - Pon Kwi 12, 2010 2:04 pm
nooo i on ma racje (chyba)

jestes dobry z komputerow!

Evolter - Pon Kwi 12, 2010 2:09 pm
a on czasem nie mówił, że ma podwajać kolejny rekord?
2,3,4,5 - podajemy 3 i mamy 2,3,4,4,5 ??

devO - Pon Kwi 12, 2010 2:29 pm
robilem ten program na kolku tylko nie wiem komu

Diab - Pon Kwi 12, 2010 2:40 pm

jestes dobry z komputerow!

Stalker - Pon Kwi 12, 2010 3:12 pm
@Evolter
Sam dobrze nie pamietam jak to zadanie ma wyglądać. Ale wydaje mi się, że tak jak ja podałem. Malik tak samo pamięta to polecenie zadania. Więc będę się tej wersji trzymał.

Mam naiwne pytanie czy ktoś zanotował polecenie zadania domowego

Francik - Pon Kwi 12, 2010 6:39 pm
ja mam zanotowane i brzmi ono tak :

"zaprogramuj algorytm i idz na piwo "

tak ze milego zadania domowego

Stalker - Pon Kwi 12, 2010 7:30 pm
Na Tobie zawsze można polegać

Evolter - Pon Kwi 12, 2010 9:19 pm
w moim algorytmie jest coś takiego:
Kod: Zaznacz wszystkoProcedure sroda;
begin
start:='8:00';
www:='9:30';
while not piwo do begin
inc(szukaj);
if knajpka[szukaj]=true then piwo:=true
end;
if godzina < 14:30 then execute(algorytmy);
later(run-error); {unknown identifier}
...%&#???@%#*...
end;
Ktoś ma coś podobnego?

Francik - Wto Kwi 13, 2010 9:07 pm
ja mialem podobnie ale cos takiego

Kod: Zaznacz wszystkorepeat piwo
until faja

ale obie wersje sa dobre ;]

brudek - Pon Maj 10, 2010 12:26 pm
kochana grupo, moglby mi ktos powiedziec z jakich dokladnie slajdow z wykladow bedzie ten kolos w sr? aaa, no i jak brzmi w ogole tresc zadania domowego? ;] z gory dankuje

Cabe - Pon Maj 10, 2010 4:57 pm
my mielismy z Folta niezapowiedzianego kolosa i trzeba bylo w wordzie na kompie napisac program w pascalualbo zaprojektowac tzn.opisac co i jak i jakie rodzaje struktur danych ble ble... i tak 1 grupa miala cos o podwojnym czyms (ale ponoc chodzilo o listy na rekordach) a 2 grupa miala zaprojektowac drzewo trinarne (takie samo jak binarne tylko o 1 galaz wiecej wychodzi tzn zamiast na 2 rozdziela sie na 3) ale czy macie z Folta i czy bedziecie mieli takie cus to nie wiem

brudek - Śro Maj 12, 2010 9:36 pm
dziekuje Cabe, ale za pozno ;p w sumie jak to mowia: lepiej pozno niz wcale to sie liczy

Cabe - Czw Maj 13, 2010 5:20 pm
jak za pozno pisalem jak bylo wolne QQ

brudek - Czw Maj 13, 2010 7:32 pm
no tak, ale ja za pozno to obczailam ;]

Darmowy hosting zapewnia PRV.PL