Лабораторная работа № 8 Работа с процедурами, функциями и файлами
Цель работы: изучить основы работы с процедурами, функциями и файлами
Содержание: разработка приложения для работы с функциями, процедурами и файлами
13. Дана вещественная матрица А (6,5). Вычислить произведение всех элементов матрицы, расположенных ниже главной диагонали. Вычисление этого произведения оформить в виде функции.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
procedure Button1Click(Sender: TObject);
function sumer_1 (w,l: integer): Integer;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,f,u:integer;
e:string;
a:array [1..6,1..5]of integer;
test:TextFile;
begin
k:=0;
f:=1;
AssignFile(test,'test.txt');
Reset(test);//открывает файл для чтения лежит в корне
for j := 1 to 6 do
begin
e:='';
for i:=1 to 5 do
begin
read(test,a[j,i]);
e:=e+' '+ IntToStr(a[j,i]);
end;
Memo2.Lines.add(e);
end;
for j := 2 to 6 do
begin
k:=k+1;
for i := 1 to k do
begin
u:=f;
//f:=a[j,i]+f;
f:=a[j,i] * f ;
// Memo1.Lines.add(IntToSTR(sumer_1(a[j,i],f)));
//f:=sumer_1(1,2) ;
//Memo1.Lines.add(Inttostr(a[j,i])) ;
end;
end;
Memo1.Lines.add(IntToSTR(f));
end;
// Функция умножения.
function TForm1.sumer_1(w, l: integer): Integer;
var
q:integer;
begin
q:=w * l;
Memo1.Lines.add(Inttostr(q))
//return q;
end;
end.
