Siema siema... pisał do pana Wójtowicza w sprawie tego co będzie na poprawie na 3. I odpisał mi tyle, że możemy się spodziewać zadań podobnych do 1 i 2 koła.
Sądzę więc, że da nam kolokwia z innych grup.
Mam więc taką prośbę...
ma ktoś może polecenia do zadań z 1 i 2 koła ze wszystkich grup?
my na drugim kole mielismy dwa zadania (tresci dokladnie nie pamietam):
zad1.
napisac procedure polegającą na losowaniu 10 liczb z przedziału od 0 do 100 i jak wypadnie parzysta to zeby wypisywalo 0 a jak nieparzysta to 1.
zad2.
Mamy stworzyc baze danych na rekordach imie nazwisko wzrost. Ma zapisywac to do pliku i liczyc sredni wzrost.
Tylko jak to zrobic?
agnieszkaosw
Do³±czy³a: 16 Sie 2009 Posty: 1045 Otrzyma³ 90 piw(a)
procedure TForm1.Button1Click(Sender: TObject);
var
liczby : array[0..10] of Integer;
x,i : integer;
begin
for i:=0 to 10 do
begin
x := random(100);
if(x mod 2 <> 0) then liczby[i] := 1
else
liczby[i] := x;
Memo1.lines.add(inttostr(x));
end;
end;
initialization
{$I unit1.lrs}
end.
_________________ "You know that I adore all the God's creatures and the metaphors they inspire. But these butterflies have got to be murdered!"
Rolf
Do³±czy³: 06 Sie 2009 Posty: 110 Otrzyma³ 25 piw(a)
Wys³any: 2011-01-18, 23:43
yo
Ostatnio zmieniony przez Rolf 2011-01-19, 12:25, w ca³o¶ci zmieniany 1 raz
procedure TForm1.Button1Click(Sender: TObject);
var
liczby : array[0..10] of Integer;
x,i : integer;
begin
for i:=0 to 9 do
begin
x := random(100);
if(x mod 2 <> 0) then liczby[i]:= 1
else
liczby[i]:= 0;
Memo1.lines.add(inttostr(liczby[i]));
end;
end;
Turinio, wszystko fajnie, tylko po co tam na siłę wciskasz tablicę? : )
zad1.
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
for i:=0 to 9 do
begin
if (random(100) mod 2) = 0 then memo1.lines.add('0') else memo1.lines.add('1');
end;
end;
var
Form1: TForm1;
plik: file of TDane;
dane: TDane;
implementation
{ TForm1 }
procedure TForm1.BT_nowy_plikClick(Sender: TObject);
begin
if opendialog1.execute then
begin
assignfile(plik, opendialog1.FileName);
{$I-}rewrite(plik);{$I+}
if IOResult<>0 then begin showmessage('Nie udalo sie utworzyc pliku'); exit; end;
closefile(plik);
end;
end;
procedure TForm1.BT_otworzClick(Sender: TObject);
begin
if opendialog1.execute then
begin
assignfile(plik, opendialog1.FileName);
{$I-}reset(plik);{$I+}
if IOResult<>0 then begin showmessage('Nie udalo sie otworzyc pliku'); exit; end;
closefile(plik);
end;
end;
procedure TForm1.BT_dodaj_wpisClick(Sender: TObject);
begin
if fileexists(opendialog1.filename) then assignfile(plik, opendialog1.filename)
else begin showmessage('Nie otworzono zadnego pliku'); exit; end;
reset(plik);
while not eof(plik) do read(plik, dane);
dane.imie:=ED_imie.text;
dane.nazwisko:=ED_nazwisko.text;
try dane.wiek:=strtoint(ED_wiek.text); except showmessage('blad - pole wiek musi byc liczba calkowita'); closefile(plik); exit; end;
write(plik, dane);
closefile(plik);
end;
procedure TForm1.BT_sredniaClick(Sender: TObject);
var
suma: integer = 0;
ilosc: integer = 0;
begin
if fileexists(opendialog1.filename) then assignfile(plik, opendialog1.filename)
else begin showmessage('Nie otworzono zadnego pliku'); exit; end;
reset(plik);
while not eof(plik) do begin
read(plik, dane);
suma:=suma+dane.wiek;
inc(ilosc);
end;
try showmessage('Srednia wieku: '+floattostr(suma/ilosc)); except showmessage('Brak rekordow w pliku'); end;
closefile(plik);
end;
initialization
{$I unit1.lrs}
end.
edit: 'wiek' sobie zamien na 'wzrost' jak chcesz - zle przeczytalem ; p
Wiek: 35 Do³±czy³: 06 Sie 2009 Posty: 537 Otrzyma³ 21 piw(a) Sk±d: no ze stolca
Wys³any: 2011-01-20, 10:13
wlasnie wrocilem z poprawy i nie wiem czy ktos jeszcze to bedzie pisal, ale jesli tak to dostalismy dwa zadania. jedni musielismy wybrac i zrobic
jedno takie jak tutaj Koordynator wrzucil z tym wiekiem itp a drugie to takie ze trzeba bylo zrobic tablice wylosowac losowe 10 licz z przedzialu od 1 do 100 i jesli wyjdzie parzysta to wpisac 0 a jesli nie to wpisac ta liczbe.siedzialem tam ponad godzine, nie umialem prawie nic ale pomagal, naprowadzal i jak sie dzieki tym jemu naprawde dosadnym podpowiedziom program zrobilo to zaliczal. i jak poszliscie na uslugi a nie umiecie tego zrobic to mu mowcie ze poszliscie gdzies indziej bo o to pyta :D
Nie mo¿esz pisaæ nowych tematów Nie mo¿esz odpowiadaæ w tematach Nie mo¿esz zmieniaæ swoich postów Nie mo¿esz usuwaæ swoich postów Nie mo¿esz g³osowaæ w ankietach Nie mo¿esz za³±czaæ plików na tym forum Mo¿esz ¶ci±gaæ za³±czniki na tym forum
