По теме- Работа с массивами Выполнил-
Работа добавлена на сайт samzan.net:
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
АВТОТРАКТОРНЫЙ ФАКУЛЬТЕТ
КАФЕДРА: ТРАКТОРЫ
Отчёт о лабораторной работе №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.
2. 2013 р
3. ПКибкало Познай свое лицо
4. продаже насчитывает более ста статей.
5. Происхождение и начальное развитие жизни на Земле
6. Петербург 2000 Методическое пособие для вожатого Особенности технологии моделирования и конструирования
7. Які елементи містить робочий стіл Windows 1
8. Работая в одно время телеграфистом он обнаружил что из Англии в Данию можно передавать телеграммы в два раз
9. Экономика и управление на предприятии городское хозяйство Э
10. Муниципальные выборы в механизме формирования публичной власти
11. Много тысяч лет тому назад увидел Бог что множатся пороки людей и решил помочь им
12. Hiking Trvel brodens the mind
13. 1привет это офис Вани Hi is this vny~s office нет это не так
14. Курсовая работа- Проблемы молодой семьи
15. Российский государственный профессиональнопедагогический университет Институт психологии Кафедра
16. вакцинопрофилактику такие большие суммы из бюджетных средств значит она безусловно полезнаА так ли это.html
17. Эпоха Средневековья в философско-исторических работах ЛПКарсавина
18. вариант ответа В XV ~ XVII веках в Российском государстве действовало делопроизводство - приказное - к
19. Каждая отрасль имеет свой своеобразный отличающийся от других отраслей права предмет регулирования
20. Если в таблице задающей подстановку переставить столбцы то новая таблица задает ту же подстановку