Составление простейших программ с использованием процедур пользователя, страница 2

Программа

Program Smirnov;

const nmax=4;

type vect=array[1..nmax] of real;

var a,b:vect;

n :integer;

min,rez,x,y:real;

procedure vvod_v(var x:vect;n:integer);

var i:integer;

begin

for i:=1 to n do read (x[i])

end;

Procedure vyvod_v(x:vect;n:integer);

var i:integer;

begin

writeln;

for i:=1 to n do

writeln(x[i]:8:4);

Writeln

end;

procedure sum(x:vect;n:integer;var s:real);

var i:integer;

begin

s:=0;

for i:=1 to n do

s:=s+sqr(x[i]);

end;

begin

Writeln('vvedute vector a');

vvod_v(a,3);

writeln('eto vector a');

vyvod_v(a,3);

writeln('vvedite vector b');

vvod_v(b,4);

writeln('eto vector b');

vyvod_v(b,4);

sum(a,3,x);

sum(b,4,y);

rez:=x-y;

Writeln('результат выражения равен',rez:8:4)

end.

Результат

vvedute vector a

2.4 -3.5 0

eto vector a

  2.4000

 -3.5000

  0.0000

vvedite vector b

3.2 -0.2 0.3 0.4

eto vector b

  3.2000

 -0.2000

  0.3000

  0.4000

результат выражения равен  7.4800

Задание 3

Вычислить и вывести на печать два вектора. Вычисление всех искомых величин оформить в виде процедуры. Данные матрицы А_2,3;В_2,2 искомые векторы X₂;Y₂ значения элементов вектора

Программа

program Smirnov;

type vect=array[1..3] of real;

matr=array [1..2,1..3] of real;

stroka=string[30];

var a,b,c:matr;x,y:vect;

f,fout:text;

NameFile,NameFileOut:string [30];

Procedure Mult(c:matr;m,n:integer;var z:vect);

var i,j:integer;s:real;

Begin

s:=0;

for i:=1 to m do

for j:=1 to n do begin

s:=s+c[i,j];

z[i]:=s;