Помогите нубу

@profid · Регистрация: 22.02.2011

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
S:=0;
 while S<=1 do
 K:= S*S ;
 ListBox1.Items.Add(floatToStr(K));
 S:= S + 0.1;
end;

вот процедура при которой,при нажатии на кнопке запускается цикл и выводит квадраты всех чисел с диапазона [0..1],но у меня когда я жму на кнопку просто всё виснет,в чём проблема?

@ViNew · 26.02.2012, 10:38

profid,

Ты забыл взять в операторные скобки выражение

Delphi

1
2
3

  K:= S*S ;
   ListBox1.Items.Add(floatToStr(K));
   S:= S + 0.1;

Поэтому у тебя все время выполняется строчка

Delphi

K:= S*S ;

А цикл зациклился.
Напиши вот так:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s,k:real;
begin
S:=0;
 while S<=1 do
  begin
   K:= S*S ;
   ListBox1.Items.Add(floatToStr(K));
   S:= S + 0.1;
  end;
end;

@profid · 26.02.2012, 10:41 **[ТС]**

точняк(

@profid 67 / 44 / 5 Регистрация: 22.02.2011 Сообщений: 285
	26.02.2012, 10:41 [ТС]	3
	точняк( 0