close

Вход

Забыли?

вход по аккаунту

?

lab6(2.2.2.3)

код для вставкиСкачать
Лабораторная работа №6
Гончаров Виктор, ИМ-07-12
№ 2.2.2.3. Создание оконных приложений в среде Delphi. Простая обработка матриц в кратном цикле.
Дана матрица A из n строк и m столбцов. Найти среднее арифметическое элементов матрицы, меньших заданного значения.
Состав данных:
ИмяСмыслТипСтруктураИсходные данныеnКоличество строкЦелыйПростая переменнаяmКоличество столбцовЦелыйПростая переменнаяxЗадаваемое значение ВещественныйПростая переменнаяpИсходная матрицаВещественныйДвумерный массивПромежуточные данныеkСчётчик элементов, меньших заданного значения xЦелыйПростая переменнаяsСумма элементов, меньших заданного числа xВещественныйПростая переменнаяВыходные данныеsaСреднее арифметическое элементов, меньших xВещественныйПростая переменная
Эскиз основной формы приложения: Программный код основных обработчиков:
var
Form1: TForm1;
n,m,k:integer;
procedure TForm1.Button1Click(Sender: TObject); {Обрабатывает ввод нажатия "Ввод n,m"}
var i:integer;
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
for i:=1 to n do
StringGrid1.Cells[0,i]:=IntToStr(i);
for i:=1 to m do
StringGrid1.Cells[i,0]:=IntToStr(i);
end;
procedure TForm1.Button2Click(Sender: TObject); {Обрабатывает ввод нажатия "Вычисление"}
var i,j,k:integer;
A:array of array of real;
x,s,sa:real;
begin
{ввод}
SetLength(A,n,m);
for i:=1 to n do
for j:=1 to m do
A[i-1,j-1]:=StrToFloat(StringGrid1.Cells[j,i]);
{конец ввода}
{обработка}
x:=StrToInt(Edit3.Text);
s:=0;
k:=0;
for j:=0 to m-1 do
begin
for i:=0 to n-1 do
if A[i,j]<x then
begin
s:=s+A[i,j];
k:=k+1;
end;
end;
if k<=0 then Edit4.Text:=' нет элементов меньше x' else
begin
sa:=s/k;
Edit4.Text:=FloatToStr(sa);
end;
{закончена обработка}
end;
Тесты:
1. Пример.
Матрица A:
123411247253294312126Среднее арифметическое элементов матрицы, меньших x: 2. Аномальная ситуация: в матрице А нет элементов меньше заданного значения x.
Матрица A:
1234167551125987434375488Среднее арифметическое элементов матрицы, меньших x: 
Документ
Категория
Рефераты
Просмотров
8
Размер файла
58 Кб
Теги
lab6
1/--страниц
Пожаловаться на содержимое документа