![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Люди.Ну, не сильна я в программировании, согласна уже как месяц не могу написать комментарии к 5 строчкам.Ночами не сплю, весь интернет перелыла
![]() Помогите, пожаааалуйста. procedure TForm1.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; Заранее спасибо от глупой студентки 2 курсницы... |