|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Одномерные массивы
Доброго времени суток.
Есть задание по лабам: В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) сумму элементов массива с нечетными номерами; 2)сумму элементов массива, расположенных между первым и последним отрицательными элементами. Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце массива элементы заполнить нулями. Вот что пока что сделал: Код:
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:integer; const n=10; begin summ:=0; summd:=0; for i:=1 to 10 do if i mod 2<>0 then summ:= summ + a[i]; Label1.Caption:='Сумма нечетных элементов: ' + FloatToStr(summ); end; end. компилируется нормально, но при вычислении выходит число, к-е не может быть результатом вычисления. Последний раз редактировалось Rinat41, 02.06.2011 в 21:53. |