![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() здравствуйте всем,при работе с делфи появилась проблемка,никак немогу найти откуда растут корни,надеюсь вы откликнитесь...
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Label1: TLabel; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; Memo1: TMemo; procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; n:integer; implementation {$R *.dfm} procedure TForm1.N1Click(Sender: TObject); var a:array[1..5,1..5] of real; b:array[1..100] of real; s:real; s1,s2:string; i,j:integer; begin for i:=1 to 5 do for j:=1 to 5 do a[i,j]:=strtofloat(stringgrid1.cells[j-1,i-1]); s:=0; for i:=1 to 5 do for j:=1 to 5 do if i=j then b[i]:=a[i,j]; str(b[i]:6:2,s1); memo1.Lines.Add('элементы массива - '+s1); for i:=1 to n do s:=s+b[i]; str(s:6:2,s2); memo1.Lines.Add('сумма - '+s2); end; procedure TForm1.N2Click(Sender: TObject); begin memo1.Clear; end; procedure TForm1.N3Click(Sender: TObject); begin form1.close; end; end. |
#2
|
||||
|
||||
![]() Код:
for i:=1 to 5 do for j:=1 to 5 do if i=j then b[i]:=a[i,j]; str(b[i]:6:2,s1); memo1.Lines.Add('элементы массива - '+s1); Ошибка в отсутсвии begin end Код:
for i:=1 to 5 do for j:=1 to 5 do if i=j then begin b[i]:=a[i,j]; str(b[i]:6:2,s1); memo1.Lines.Add('элементы массива - '+s1); end; Код:
for i:=1 to 5 do begin b[i]:=a[i,i]; str(b[i]:6:2,s1); memo1.Lines.Add('элементы массива - '+s1); end; Откуда дальше взялась n ? Код:
for i:=1 to n do s:=s+b[i]; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 20.12.2009 в 13:55. |
#3
|
|||
|
|||
![]() воу,теперь все работает,спасибо что указал на ошибки,весь моск поломал,а оказалось так просто,ещё раз,Страдалецъ,большое человеческое спасибо
![]() |