Autor |
Wiadomość |
zezik |
Wysłany: Sob 1:21, 24 Mar 2007 Temat postu: wiecej mi sie nie chce juz pisac bo to caly czas to samo :) |
|
w trzecim w sumie nie bedzie wielu zmian, za spawdzanie czy jest literka w stringu mozna uzyc pos
narta i do jura :) |
|
|
zezik |
|
|
zezik |
Wysłany: Sob 0:56, 24 Mar 2007 Temat postu: zadanie 1 |
|
Witam,
sorki ze tak pozno :) ale dopiero z scianki wrocilem i nie bardzo mi sie juz chcialo to pisac:
http://zajac.org.pl/studia/collection1.pas.html
tutaj macie zadanie 1, zadanie 2 jest analogiczne tylko trzeba by zmienic inta na longa czy tam longinta (jak mi sie bedzie chcialo to zmienie i wrzuce) |
|
|
Gość |
Wysłany: Pią 23:47, 23 Mar 2007 Temat postu: |
|
Racja! if(A.moc<=B.moc) jest słuszną uwagą... pośpiech nigdy nie popłaca!
No i w końcu coś się na forum ruszyło. |
|
|
zajka |
Wysłany: Pią 10:13, 23 Mar 2007 Temat postu: |
|
Nie tyle co by odpadlo ale mysle ze stwierdzenie ze
if (A.moc <>B.moc)
moze byc tutaj mocno bledne
gdyz zbior B.moc moze byc wiekszy od zbioru A.moc
wtedy A dalej moze sie zawierac w B
piszac tak odrazu zakladamy ze jesli zbiory nie sa tej samej mnogosci to sie niezawiera! |
|
|
mapu |
Wysłany: Czw 10:10, 22 Mar 2007 Temat postu: |
|
Przez brak wciec czyta sie to koszmarnie...
Przeciez mozna:
Kod: |
function zawiera(var A:zbior;var B:zbior):boolean;
var
i,j:integer;
zap:boolean;
kp1:boolean;
kp2:boolean;
begin
end
|
Ok, teraz jedno pytanie: Czemu masz na poczatku rozne (<> - to jest rozne w pascalu prawda?):
nie lepiej dac zakladajac ze A ma zawierac sie w B? Wydaje sie ze odpadl by jeden warunek pozniej? |
|
|
Fear |
Wysłany: Wto 21:38, 20 Mar 2007 Temat postu: |
|
type
zbior = record
moc:integer;
dane:array[1...MAX] of string;
end;
function zawiera(var A:zbior;var B:zbior):boolean;
var
i,j:integer;
zap:boolean;
kp1:boolean;
kp2:boolean;
begin
kp1:=false;
kp2:=false;
zap:=false;
i:=0;
j:=0;
if(A.moc<>B.moc)then
begin
zawiera:=false;
end
else
begin
while((i<=A.moc) and (kp<>true))do
begin
i:=i+1;
while((j<B.moc) and (kp<>true))do
begin
j:=j+1;
if(A.dane[i]=B.dane[j])then
begin
kp2:=true;
kp1:=false;
zap:=true;
end else
begin
kp2:=false;
end;
if(kp2=false)then
begin
kp1:=true;
zap:=false;
end;
end;
end;
end;
zawiera:=zap;
end;
Funkcja zawiera na zbiorze stringów. Jak macie jakieś lepsze rozwiązanie, to piszcie(i ewentualne błędy). Inne funkcje też rzucajcie na forum bo kolos tuż tuż |
|
|
Fear |
Wysłany: Wto 20:30, 20 Mar 2007 Temat postu: |
|
wszystkie informacje dotyczące zadań jakie robimy na ASD umieszczajcie tutaj.
Może udało by się "zmusić" do ożywienia to biedne forum! Wystarczy, że ktoś rzuci tu jakiś program lub coś podobnego z ASD i - miejmy nadzieję- tym samym wywoła dyskusję nad POPRAWNYM rozwiązaniem danego zagadnienia.
Wtedy "słabsi"(czyt. mniej obyci z programowaniem) będą mieli na czym się oprzeć przy piasani kolosów, a "weterani"... no cóż |
|
|
Fear |
Wysłany: Wto 20:17, 20 Mar 2007 Temat postu: ASD |
|
zadania |
|
|