if pos(decimalseparator,Cells[Col,Row])<>0 then
Лабораторная работа 4
Обработка одномерных массивов
Цель работы: формирование первичных умений в разработке простых циклических программ с использованием массивов.
Что нужно знать для выполнения работы
1. Структуру цикла, назначение и порядок следования его отдельных частей.
2. Структуры: цикл-пока и цикл-повторить.
3. Операторы цикла for …to (downto) … do.
4. Описание и использование массивов.
Примеры выполнения задания лабораторной работы
Пример 1. Составьте программу нахождения суммы элементов данного массива а, состоящего из n элементов.
Решение. Основная часть цикла – добавление очередного элемента к накапливаемой сумме. Для нахождения суммы всех элементов достаточно повторить цикл, изменяя номер элемента массива от 1 до n с шагом 1 (рис. 4.1).
На данной схеме вывод исходных данных и вывод результата записаны в одном блоке, так как алгоритм вывода элементов массива аналогичен циклу ввода.
 |
Рис. 4.1. Схема алгоритма программы
Текст программы
program lr4_1_1;
{Сумма элементов массива.}
{$APPTYPE CONSOLE}
Uses
SysUtils;
Const
maxn=100;{Максимальное количество элементов массива}
Var
n,i:integer;
s:real;
a:array[1..maxn] of real;
Begin
write('n= ');
readln(n);{Ввод реального количества элементов массива}
writeln('Vvedite elementi massiva a ');
for i:=1 to n do
Begin
write('a[',i,']= ');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln('Исходный массив a, состоящий из',n:4,' элементов');
for i:=1 to n do
write(a[i]:8:2);
writeln;
writeln('S = ',s:8:2);
readln;
end.
Как и в лабораторной работе 3 в данной работе можно считать заданиями повышенной сложности (второго уровня) задания, выполненные с использованием компонентов Delphi.
Для отображения элементов массивов целесообразно использовать компоненты StringGrid. Для ввода элементов массива в ячейки таблицы необходимо свойство Options(goEditing) положить равным true.
Для рассмотренного примера форма приложения может быть как показано на рис. 4.1.
Рис. 4.1 Форма приложения примера 4_1
Текст Unit-a
unit Unit1;
//нахождение суммы элементов массива
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, Buttons;
Type
TForm1 = class(TForm)
lbl1: TLabel;
lbledt1: TLabeledEdit;
btn1: TButton;
sd: TStringGrid;
btn2: TBitBtn;
lbl2: TLabel;
procedure lbledt1KeyPress(Sender: TObject; var Key: Char);
procedure btn1Click(Sender: TObject);
procedure sdKeyPress(Sender: TObject; var Key: Char);
Private
{ Private declarations }
Public
{ Public declarations }
end;
Var
Form1: TForm1;
Implementation
{$R *.dfm}
Var
n:Integer;
a:array[0..10] of Real;
s:Real;
procedure TForm1.lbledt1KeyPress(Sender: TObject; var Key: Char);
//Разрешено вводить только цифры и нажимать клавиши
//Backspace и Enter
Var
i:Integer;
Begin
Case Key of
'0'..'9',#8:;
#13:begin
//Задание свойств компонента StringGrid
sd.ColCount:=strtoint(lbledt1.Text);
n:=sd.ColCount;
sd.Options:=sd.Options+[goEditing];
sd.Width:=n*(sd.DefaultColWidth+2);
for i:=0 to n-1 do
sd.Cells[i,0]:='Элемент '+inttostr(i);
sd.SetFocus;
End
Else
key:=#0;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
Var
i:Integer;
Begin
for i:=0 to n-1 do
a[i]:= strtofloat(sd.Cells[i,1]);
s:=0;
for i:=0 to n-1 do
s:=s+a[i];
sd.ColCount:=sd.ColCount+1;
sd.Width:=(n+1)*(sd.DefaultColWidth+2);
sd.Cells[n,0]:='Сумма ';
sd.Cells[n,1]:=FloatToStrF(s,ffFixed,8,3);
end;
procedure TForm1.sdKeyPress(Sender: TObject; var Key: Char);
//обработка нажатых клавиш в ячейках StringGrid
Begin
With sd do
Case Key of
'0'..'9',#8:;
'-':begin
if (Cells[Col,Row]='') then
key:='-'
Else
if (Cells[Col,Row]<>'') and ((copy(Cells[Col,Row],length(Cells[Col,Row]),1)='E') or
(copy(Cells[Col,Row],length(Cells[Col,Row]),1)='e'))then
key:='-'
Else
key:=#0;
end;
'+':begin
if (Cells[Col,Row]='') then
key:='+'
Else
if (Cells[Col,Row]<>'') and ((copy(Cells[Col,Row],length(Cells[Col,Row]),1)='E') or
(copy(Cells[Col,Row],length(Cells[Col,Row]),1)='e'))then
key:='+'
Else
key:=#0;
end;
',','.':begin
key:=decimalseparator;
if pos(decimalseparator,Cells[Col,Row])<>0 then
key:=#0
end;
'E','e':begin
key:='E';
if ((pos('E',Cells[Col,Row])<>0) or (pos('e',Cells[Col,Row])<>0))
or ((length(Cells[Col,Row])=1)
and ((copy(Cells[Col,Row],1,1)='-') or
(copy(Cells[Col,Row],1,1)='+'))) or
((length(Cells[Col,Row])=0)
And
((pos('E',Cells[Col,Row])=0) or (pos('e',Cells[Col,Row])=0))) then
key:=#0;
end;
#13: if col<colcount-1 then
col:=col+1;
Else
key:=#0;
end;
end;
end.