Показать сообщение отдельно
  #1  
Старый 30.11.2007, 21:38
Ольга Ольга вне форума
Прохожий
 
Регистрация: 30.11.2007
Сообщения: 2
Репутация: 10
Печаль Будьте людьми, помогите пожалуйста...

дело в том что ну не могу в элементарных вещах разобраться.Помогите,пожалуйста.
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure FormActivate(Sender: TObject);
Как мне коментарий к этой хрени написать.

А еще не могу блок схему составить на элементарную программку.

var
i,j,k:integer;
n3,n4,n5: real;
begin
i:=1;
for i:=1 to 20 do begin
n3:=(i*(i+1))/2;
Label5.Caption:=Label5.Caption+IntToStr(i)+'-e = '+FloatToStr(n3)+#13;
n4:=sqr(i);
Label6.Caption:=Label6.Caption+IntToStr(i)+'-e = '+FloatToStr(n4)+#13;
n5:=(i*(3*i-1))/2;
Label7.Caption:=Label7.Caption+IntToStr(i)+'-e = '+FloatToStr(n5)+#13;
end;

Help!Пожалуйста (((((
Ответить с цитированием