Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
"While" or "Repeat ... Until"
Как переобразоватъ етот код чтобы был изполъзован цыкл "While" or "Repeat ... Until"?

Kод:

Code

procedure TForm2.Button1Click(Sender: TObject);
var s:string;
i,count:integer;
begin
s:=edit1.Text;
count:=0;
if Pos('111111', Edit1.Text) <> 0 then
label2.caption:='Ir 6 vieninieki pēc kārtas!'
else
label2.caption:='Nav 6 vieninieki pēc kārtas!';
end;

Cпасибо !

1 | Автор: snuppy | 2008-11-26, 10:27   |  Репутация: [ + 0 ]
Code
var
i,s:integer;
Flag:bool;
begin
   i:=1;S:=0;
   Flag:=false;
   while(i<=Length(Edit1.Text)) do
   begin
     if(Edit1.Text[i]='1') then
     inc(S)
     else
     S:=0;
     if(S=6) then
     begin
       Flag:=true;
       break;
     end;
     inc(i);
   end;
   if(Flag) then
   Label1.caption:='Ir 6 vieninieki pec kartas!'
   else
   label1.caption:='Nav 6 vieninieki pec kartas!';
end;


Насколько проще была бы жизнь если бы она была в исходниках
2 | Автор: LofD | 2008-11-26, 19:43   |  Репутация: [ + 14 ]
  • Страница 1 из 1
  • 1
Поиск: