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

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:=1;

for i:=1 to n do

if x[i]>2 then begin

s:=s*x[i];

end;end;

begin

Writeln('vvedute vector a');

vvod_v(a,3);

writeln('eto vector a');

vyvod_v(a,3);

writeln('vvedite vector d');

vvod_v(d,2);

writeln('eto vector d');

vyvod_v(d,2);

sum(a,3,x);

sum(d,2,y);

rez:=2.5*x-1.5*y;

Writeln('rezultat vyrazenia raven',rez:8:4)

end.

Вид печати:

eto vector a

  2.4000

 -3.5000

  0.0000

eto vector d

  2.1000

 -0.2000

rezultat vyrazenia raven  2.8500

Задача 3. Задан вектор ; вектор. Вычислить и вывести на печать вектор , у которого  и вектор , у которого .

Решение.

Программа:

Program DemoProc;

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

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

stroka=string[30];

var c,e,b:matr;u,y:vect;

NameFile,NameFileOut:string [30];

Procedure Mult(b: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+sin(b[i,j])/cos(b[i,j]);

z[i]:=s;

end;

end;

procedure vvod_m(var b:matr;m,n:integer);

var i,j:integer;

begin

for i:=1 to m do

for j:=1 to n do

read(b[i,j]);

end;

procedure vyvod_m(var b:matr;m,n:integer;nameMatr:stroka);

var

i,j:integer;

begin

writeln ('eto matrica ',nameMatr);

for i:=1 to m do begin

for j:=1 to n do begin

write(b[i,j]:6:2,' ')

end;

writeln;

end;

writeln;

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;

begin

writeln('Введите матрицу c');

vvod_m(c,3,3);

writeLn(' это матрица c');

vyvod_m(c,3,3,'исходная c');

writeln('Введите матрицу e');

vvod_m(e,2,2);

writeln(' это матрица e');

vyvod_m(e,2,2,'исходная e');

mult (c,3,3,u);

vyvod_v(u,3);

mult (e,2,2,y);

vyvod_v(y,2);

end.

Вид печати:

Введите матрицу c

0.1 0.2 0.3

0 1 -1

0 0 1

eto matrica исходная c

  0.10   0.20   0.30

  0.00   1.00  -1.00

  0.00   0.00   1.00

Введите матрицу e

1 -4.3