Решаем задачи Абрамян на Паскале. File74

File74. Даны два целых числа $$I$$, $$J$$ и файл вещественных чисел, содержащий элементы квадратной матрицы (по строкам). Вывести элемент матрицы, расположенный в $$I$$-й строке и $$J$$-м столбце (строки и столбцы нумеруются от $$1$$). Если требуемый элемент отсутствует, то вывести $$0$$.

Решение:

program File74;
var
 F: file of Real;
 Cell:Real;
 I,J,i2,len:integer;
 Name:String;

begin
 Write('File: ');
 Readln(Name);

 Write('I: ');
 Readln(I);

 Write('J: ');
 Readln(J);

 Assign(F,Name);
 Reset(F);
 len:=0;
 While (not eof(F)) do
  begin
   Read(F,Cell);
   inc(len);
  end;

 len:= trunc(sqrt(len));
 Close(F);
 Reset(F);
 for i2:=1 to len*(i-1)+j do Read(F,Cell);
 Writeln(Cell);

 Close(F);
end.

program File74;

var

F: file of Real;

Cell:Real;

I,J,i2,len:integer;

Name:String;

begin

Write('File: ');

Readln(Name);

Write('I: ');

Readln(I);

Write('J: ');

Readln(J);

Assign(F,Name);

Reset(F);

len:=0;

While (not eof(F)) do

begin

Read(F,Cell);

inc(len);

end;

len:= trunc(sqrt(len));

Close(F);

Reset(F);

for i2:=1 to len*(i-1)+j do Read(F,Cell);

Writeln(Cell);

Close(F);

end.

Другие задачи из раздела File можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. File74

Комментарии:

Добавить комментарий Отменить ответ