У вас вопросы?
У нас ответы:) SamZan.net

По теме- Работа с массивами Выполнил-

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

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

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

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 29.4.2025

БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

АВТОТРАКТОРНЫЙ ФАКУЛЬТЕТ

КАФЕДРА:  ТРАКТОРЫ

Отчёт о лабораторной работе №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.




1. Нестеренко Евгений Евгеньевич
2. тема к которой обращается автор текста
3. докладно було розглянуто у розділі 6
4. на тему- Эффект Ганна и его использование в диодах работающих в генераторном режиме
5. Лабораторная работа 2 Тема- исследование свойств полупроводникового биполярного транзистора
6. 75 2008 N 25 P 7175 УДК 327477-498 ldquo;312rdquo; УКРАЇНCЬКОРУМУНСЬКІ ВІДНОСИНИ- ПРОБЛЕМИ ТА СУЧАСНИЙ СТАН Оксана
7. Свобода от государства.html
8. Дослідження логічних елементів емітерно-звязаної логіки
9. I.u МЕТА- Керівник відділу протипожежної безпеки; Фахівець з протипожежної безпеки
10. Виберіть рядок з дієсловами І дієвідміни- confic~re hbit~re exprim~re d~re; b coqu~re repell~re induc~re git~re; c inven~re ver~re d.html