Найти три числа, произведение которых будет максимальным.

@maSt · Регистрация: 28.02.2010

Author24 — интернет-сервис помощи студентам

Дан файл, который состоит из чисел real.Найти среди них три числа, произведение которых будет максимальным.

Delphi

program Project3;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
type Tmas=array[1..100, 1..100] of real;
 
Procedure Input_Mas (var Mas:Tmas; a,b:word);
var f1:textfile; i,j:word;
begin
assignfile(f1, 'Inputf.txt');
reset (f1);
for i:=1 to a do
for j:=1 to b do
read(Mas[i,j]);
closefile(f1);
end;
 
var f1,f2:textfile; Mas:Tmas; max,max1,max2,max3:real; n,m,j,i:word;
begin
Input_Mas (Mas,n,m);
assignfile(f2, 'Outputf.txt');
rewrite(f2);
max1:=Mas[1,1];
max2:=Mas[1,1];
max3:=Mas[1,1];
for i:=1 to n do
for j:=1 to m do
if Mas[i,j]>max1
then max1:=Mas[i,j];
for i:=1 to n do
for j:=1 to m do
if (Mas[i,j]>max2) and (Mas[i,j]<max1)
then max2:=Mas[i,j];
for i:=1 to n do
for j:=1 to m do
if (Mas[i,j]>max3) and (Mas[i,j]<max2)
then max3:=Mas[i,j];
max:=max1*max2*max3;
writeln (f2,max:8:2);
closefile(f2);
end.

в исходный файл выдает нули.Подскажите, в чем ошибка?

@Puporev · 29.10.2011, 18:59

Вообще-то с файлами в подпрограммах работают так.

Pascal

Procedure Input_Mas (var f1:textfile; var Mas:Tmas; a,b:word);
var  i,j:word;
begin
assignfile(f1, 'Inputf.txt');
reset (f1);
for i:=1 to a do
for j:=1 to b do
read(Mas[i,j]);
closefile(f1);
end;

	29.10.2011, 18:59

Опции темы

Найти три числа, произведение которых будет максимальным.

Решение