Results 1 to 2 of 2
Thread: Delphi .
Hybrid View
-
13th January 2010 20:52 #1Registered User
Join Date: Jun:2009
Location: Bulgaria
Posts: 7
Delphi .
1 0. , , 1 1
, (16) :
1. - .
2. - .
Code:var s:integer; m1:array[1..16] of integer; begin for s:= 1 to 16 do m1[s]:=strtoint(stringgrid1.cells[s,1]); s:=strtoint(edit1.text); If (s<1) or (s>16) then label3.Caption:='iaei?aeoia noieiino' else if m1[s]>0 then label3.Caption:='?eneioi a iiei?eoaeii' else label3.Caption:='?eneioi ia a iiei?eoaeii'; end; procedure TForm1.Button2Click(Sender: TObject); var k:integer; m1:array[1..16] of integer; begin for k:= 1 to 16 m1[k]:=strtoint(stringgrid1.cells[k,1]); k:=strtoint(edit2.text); if (k<1) or (k>16) then label3.caption:='Iaei?aeoia Noieiino' else if not(odd(m1[k])) then label3.Caption:='?eneioi a ?aoii' else label3.caption:='?eneioi a ia?aoii'; end;
-
14th January 2010 21:34 #2
Join Date: Sep:2005
Location: Sofia
Posts: 18,517
. .




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in