СРОЧНО ПОМОГИТЕ. МНОГО БАЛЛОВ!!! Переделайте программу так, чтобы данные считывались с...

Question

93 просмотров

СРОЧНО ПОМОГИТЕ. МНОГО БАЛЛОВ!!!
Переделайте программу так, чтобы данные считывались с дискового файла.

program prog_2_6a;
type vx=array[1..10,1..10]of real;
type vy=array[1..10]of real;
var
x:vx;
y:vy;
n,m,i,j:integer;
a:real;
begin
writeln('Введите количество cтрок');
readln(n);
writeln('Введите количество столбцов');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
writeln(j,'-й элемент ',i,'-й строки');
readln(x[I,j])
end;
end;
for j:=1 to m do
begin
a:=0;
a:=a+x[I,j];
y[j]:=a/n;
writeln('Среднее значение по ',j,'-му столбцу');
writeln(y[j]:8:2);
end;
readln;
End.

Данные матрицы находятся в изображении.
P.S покажите как должна будет выглядеть матрица в файле .txt

Информатика VALTIM_zn (792 баллов) 01 Июнь, 18 | 93 просмотров

Дан 1 ответ

Правильный ответ

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadAllLines('input.txt'); // массив строк
var n:=a[0].ToWords.Count; // количество чисел в строке
var x:=new real[a.Length,n]; // создана матрица нужного размера
for var i:=0 to a.Length-1 do
x.SetRow(i,a[i].ToReals); // матрица заполнена значениями
x.Println(5,1); Writeln(a.Length*5*'-'); // вывод матрицы
// получим средние по колонкам, округлим дробную часть до двух знаков
var y:=x.Cols.Select(c->Round(c.Average*100)/100).ToArray;
y.Println; // контрольный вывод средних, можно убрать
WriteAllText('output.txt',y.JoinIntoString(' ')) // вывод в файл
end.

Пример работы
7.9 8.8 1.3 4.2 7.8 -6.2
2.6 -6.6 -6.7 -8.4 1.0 -7.1
4.4 7.0 -4.2 -9.9 -0.1 3.5
4.1 -2.0 -8.5 -8.4 -7.1 -2.3
0.9 6.7 -2.4 0.4 9.0 7.2
9.8 -8.4 -6.9 1.4 4.5 -9.3
------------------------------
4.95 0.92 -4.57 -3.45 2.52 -2.37

Скачать вложение Текст (TXT)

Эникей_zn (150k баллов) 01 Июнь, 18