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

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

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

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

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

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

от 25%

Подписываем

договор

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

Скидка 25% при заказе до 8.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. Лабораторная работа 11 решение системы уравнений Инвертирующий сумматор Инвертирующий сумматор с
4. Захист продуктів від радіоактивних і отруйних речовин
5. А одна из самых распространенных моделей рекламного обращения
6. Доклад Якудза японская мафия
7. реферату- Астрономія від спостережень до теоріїРозділ- Астрономія авіація космонавтика Астрономія від сп
8. Организация и управление на предприятиях для студентов технических специальностей заочного факультет
9. Контрольная работа- Присвоение квалификационных категорий и оплата сверхурочных работ
10. Контрольная работа- Обстоятельства, смягчающие наказание