Informatyka zaoczna eaie

Fear · Wysłany: Wto 20:17, 20 Mar 2007 Temat postu: ASD

zadania

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 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ż

mapu · Wysłany: Czw 10:10, 22 Mar 2007 Temat postu:

Przez brak wciec czyta sie to koszmarnie...
Przeciez mozna:

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!

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.

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:

[link widoczny dla zalogowanych]

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)

zezik · Wysłany: Sob 1:17, 24 Mar 2007 Temat postu: zadanie 2

[link widoczny dla zalogowanych]

zezik

w trzecim w sumie nie bedzie wielu zmian, za spawdzanie czy jest literka w stringu mozna uzyc pos

narta i do jura :)