Results 1 to 2 of 2

Thread: Delphi .

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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;

  2. #2

    Join Date: Sep:2005
    Location: Sofia
    Posts: 18,517
    . .

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |