Results 1 to 2 of 2

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè