"While" or "Repeat ... Until" - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 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 ]

"While" or "Repeat ... Until"

Страница 1 из 1
1

прикладная математика