4.3.1 модульная ( ИЗ 7 ) (1272627)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

3

ИЗ №7 Вар 16 (N*+1) // 4.3.1

Паскаль программа модульной структуры 4.3.1

UNIT ABC;

INTERFACE

TYPE matr=array [1..5,1..5] of real;

vec=array [1..5] of real;

var A:matr;

X:vec;

S:real;

i,j:integer;

fp1,fp2:text;

IMPLEMENTATION

BEGIN

assign(fp1,'TEST*.pas'); { * - номер теста }

assign(fp2,'OUTTEST*.pas'); { * - номер теста }

reset(fp1);

rewrite(fp2);

END.

UNIT F1;

INTERFACE

USES ABC;

procedure FX(var M:matr; var SR:vec);

IMPLEMENTATION

procedure FX;

var i,j:integer;

SS:real;

begin

for i:=1 to 5 do

begin

SS:=0;

for j:=1 to 5 do

SS:=SS+M[i,j];

SR[i]:=SS/5;

end;

end;

END.

UNIT F2;

INTERFACE

USES ABC;

function FS(var M:matr):real;

IMPLEMENTATION

function FS;

var i:integer;

SP:real;

begin

SP:=0;

For i:=1 to 5 do

SP:=SP+M[i,5];

FS:=SP;

end;

end.

PROGRAM IZ7;

USES ABC,F1,F2;

BEGIN

for i:=1 to 5 do

for j:=1 to 5 do

read(fp1,A[i,j]);

writeln(fp2,' ':2,'RESULTS');

S:=FS(A);

if S>0 then

begin

FX(A,X);

for i:=1 to 5 do

write(fp2,' ',X[i]);

writeln(fp2);

end

else

writeln(fp2,'Сумма элементов последнего столбца отрицательна');

Close(fp1);

Close(fp2);

END.

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов ответов (шпаргалок)