|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
присвойте каждому элементу массива его порядковый номер, вот таким образом
Код:
procedure TForm1.FormCreate(Sender: TObject); begin for I := 1 to 10 a[i] := i; end; что бы чуть-чуть понять эту кухню |
#17
|
||||
|
||||
Оффтоп:
Это только для теста |
#18
|
|||
|
|||
Просто ввожу числа в ячейки при запуске проги, нажимаю кнопку и все.
|
#19
|
||||
|
||||
Цитата:
|
#20
|
|||
|
|||
Вот, теперь работает первая часть, работаю над вторым вопросом в задании.
Код:
unit lab; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var a:array[1..10] of real; summ:real; summd:real; i,l,m:integer; const n=10; begin for i:= 1 to n do if Length(StringGrid1.Cells[i-1, 0]) <>0 then a[i]:= StrToFloat(StringGrid1.Cells[i-1,0]) else a[i]:= 0; summ:=0; for i:=1 to n do if i mod 2<>0 then summ:= summ + a[i]; Label1.Caption:='Сумма1: ' + FloatToStr(summ); l:=0; m:=0; for i:=1 to n do if a[i]<0 then begin m:=i; break; end; for i:=n downto m do if a[i]<0 then begin l:=i; break; end; summd:=0; for i:=l+1 to m-1 do summd:=summd + a[i]; Label2.Caption:='Сумма2: ' + FloatToStr(summd); end; end. теперь вторая сумма выводит "0" |
#21
|
||||
|
||||
Цитата:
На форуме уже обсуждали задание: вычислить сумму четных/нечетных элементов. Поищи... |
#22
|
||||
|
||||
Цитата:
а если в массиве отсутствуют отрицательные элементы, а если в массиве только один отрицательный элемент, а если два отрицательных элемента идут друг за другом. а если есть отрицательный элемент массива и он по списку - последний???? ЧТО ДЕЛАТЬ ТОГДА |