Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
АВТОТРАКТОРНЫЙ ФАКУЛЬТЕТ
КАФЕДРА: ТРАКТОРЫ
Отчёт о лабораторной работе №8 по информатике
По теме: «Работа с массивами»
Выполнил: студент группы №10109112
Стреж Евгений Александрович
Принял: доцент кафедры тракторы
Коваль Виталий Александрович
Минск-2013
Цель:Знакомство с компонентом StringGrid. Программирование с использованием массивов.
Ход работы: Создаём интерфейс программы при помощи компонентов StringGrid, Label, Button, Edit.
Интерфейс представлен на рисунке 1.
Рисунок 1 Интерфейс приложения.
Для кнопки «Поиск минимального числа» пишем следующий код:
Для кнопки «Поиск заданного» пишем следующий код:
Для кнопки «Вычислить» пишем следующий код:
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ComCtrls, XPMan;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Button3: TButton;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..5]of integer;
summ:integer;
sr:real;
i:integer;
begin
for i:=1 to 5 do
if Length(StringGrid1.Cells[i-1,0])<>0
then a[i]:=strtoint (StringGrid1.Cells[i-1,0])
else a[i]:=0;
summ:=0;
for i:=1 to 5 do
summ:=summ+a[i];
sr:=summ/5;
Label1.Caption:='Сумма элементов ='+ inttostr(summ)+#13+'Среднее арифметическое ='+floattostr(sr);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
a:array[1..5]of integer;
min:integer;
i:integer;
begin
for i:=1 to 5 do
a[i]:=strtoint(StringGrid1.Cells[i-1,0]);
min:=1;
for i:=2 to 5 do
if a[i]<a[min] then min:=i;
Label2.Caption:='Минимальный элемент массива ='+inttostr(a[min]);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
a:array[1..5]of integer;
i:integer;
found:boolean;
obr:integer;
begin
for i:=1 to 5 do
a[i]:=strtoint(StringGrid1.Cells[i-1,0]);
obr:=strtoint(Edit1.Text);
found:=false;
i:=1;
repeat
if a[i]=obr
then found:=true
else i:=i+1;
until(i>5)or(found = true);
if found
then ShowMessage('Совпадение с элеменом номер '+inttostr(i)+#13+'Поиск завершён.')
else ShowMessage('Совпадений с образцом нет.');
end;
end.