program na zaliczenie

kolek

niech każdy wpisuje tu co znalazł albo co ma gotowe ;D
ja mam początek (wypełnia stringgrid losowo z zakresu 0..49)

var I,J:INTEGER;
BEGIN
FOR I:=0 TO STRINGGRID1.ROWCOUNT-1 DO
FOR J:=0 TO STRINGGRID1.COLCOUNT-1 DO
STRINGGIRD1.CELLS[I,J]:=INTTOSTR(RANDOM(50))
END;

yeah_bunny

jak wartości minusowe to po random(50) trzeba wziąć bodaj -10 :

STRINGGIRD1.CELLS[I,J]:=INTTOSTR(RANDOM(50)-10)

kolek

[link widoczny dla zalogowanych]

mam coś takiego, może się przydać

Woody

A może ktoś to sprawdzić bo ja nie mogę coś tego turbo delphi odpalić ;/

Sloners · Dołączył: 24 Paź 2010 Posty: 95 Przeczytał: 0 tematów

ja moge dac koncowke
end;
end.

poczatek i koniec mamy ;d

jak ktos ma jakis kod napisany i chciałby go sprawdzic , moge to zrobic ;d
czekam na propozycje ;d

WujekKoper · Dołączył: 27 Paź 2010 Posty: 34 Przeczytał: 0 tematów

trafiles na konkretnego czlowieka, ja pisalem dwa razy w rozny sposob i trafialem na zjebow... mysle, ze jezeli bedziemy mieli tyle co mamy to nam zaliczy Smile

Daumian · Dołączył: 16 Paź 2010 Posty: 89 Przeczytał: 0 tematów

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
modulo : Integer;
i : integer;
j : integer;
rand : integer;
parzyste : integer;
nieparzyste : integer;
begin
i :=0;
j:=0;
modulo:=0;
parzyste := 0;
nieparzyste:= 0;

for i:=0 to 4 do
begin
for j :=0 to 4 do
begin
randomize;
rand := random(100);
StringGrid1.Cells[i,j] := IntToStr(rand);
modulo := rand mod 2;
if (modulo=0) then parzyste := parzyste + 1
else nieparzyste := nieparzyste + 1;

end;

end;

Edit1.Text := IntToStr(parzyste);
Edit2.Text := IntToStr(nieparzyste);

end;

end.

Daumian · Dołączył: 16 Paź 2010 Posty: 89 Przeczytał: 0 tematów

moze ktos powiedziec czy to dziala?

Sloners · Dołączył: 24 Paź 2010 Posty: 95 Przeczytał: 0 tematów

Działa , tylko randomuje liczby przy kazdym kliknieciu na button a nie przy pojawianiu sie programu ,

To jest moj program :
procedure TForm1.FormShow(Sender: TObject);
var i,j:integer;
begin
for i:=0 to stringgrid1.rowcount-1 do
for j:=0 to stringgrid1.ColCount-1 do
stringgrid1.cells[i,j]:=inttostr(random(50));
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,x,y:integer;
begin
x:=0;
y:=0;
for i:=0 to stringgrid1.rowcount-1 do
begin
for j:=0 to stringgrid1.colcount-1 do
if strtoint(stringgrid1.cells[i,j]) mod 2=0 then
begin
x:=x+1;
edit1.Text:=inttostr(x);
end
else if strtoint(stringgrid1.cells[i,j]) mod 2=1 then
begin
y:=y+1;
edit2.Text:=inttostr(y);
end;
end;
end;
end.

Nalewa · Dołączył: 16 Paź 2010 Posty: 12 Przeczytał: 0 tematów

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j,x,y:integer;
begin
x:=0;
y:=0;
for i:=0 to stringgrid1.rowcount-1 do
begin
for j:=0 to stringgrid1.colcount-1 do
if strtoint(stringgrid1.cells[i,j]) mod 2=0 then
begin
x:=x+1;
edit1.Text:=inttostr(x);
end
else if strtoint(stringgrid1.cells[i,j]) mod 2=1 then
begin
y:=y+1;
edit2.Text:=inttostr(y);
end;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
var i,j:integer;
begin
for i:=0 to stringgrid1.rowcount-1 do
for j:=0 to stringgrid1.ColCount-1 do
stringgrid1.cells[i,j]:=inttostr(random(50));
end;
end.

nesh

wpis z informatyki, dziekuje, dobranoc.

Jimmy

gratki ! Smutny powiedzial ze jak nam wpisze 3 to bedzie go gryzło sumienie i nie bedzie mogl spac...

Slawek

i bedzie jeszcze bardziej smutny...

WujekKoper · Dołączył: 27 Paź 2010 Posty: 34 Przeczytał: 0 tematów

Podziękowania dla tych, którzy zauważyli jednak to, że staraliśmy się szukać opcji wszędzie na zrobienie tego programu i nam pomogli.

Dla poniektórych osób, które się na nas wypięły może kupimy koszulki z napisem I LOVE ACTA skoro tak bardzo chronią własność intelektualną? Wink

yeah_bunny

Haha racja, racja Very Happy