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

Программирование в среде Turbo Pascal 7.0

Лабораторная работа №7

Вариант 2

Выполнил: студент группы ТО-07

Магомедов Г. С.

Проверил: доц. каф. ИКТ Журов Г.Н.

Дата: 12.05.08

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

Задание 1:Найти два вектора исходные векторы    А=(2.1;-3.5;0);В=(3.2;-0.2;0.3;0.4)  и вычисляемые векторы X,Y элементы вычисляемых векторов по отношению к элементам исходных  Модуль элемента .

Программа

program Smirnov;

const nmax=4;

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

var a,b,x,z,y:vect; n:integer;

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

var i:integer;

begin

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

end;

procedure vyvod_v(c:vect;n:integer);

var i:integer;

begin

writeln;

for i:=1 to n do

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

writeln

end;

procedure NewVect (c:vect;n:integer;var z:vect);

var i:integer;

begin

for i:=1 to n do

z[i]:=abs(c[i]);

end;

begin

writeln ('vvedite vektor a');

vvod_v (a,3);

writeln (' eto vector a:');

vyvod_v(a,3);

writeln ('vvedite vektor b');

vvod_v (b,4);

writeln (' eto vector b:');

vyvod_v(b,4);

NewVect (a,3,x);

writeln (' eto vector x');

vyvod_v (x,3);

NewVect (b,4,y);

writeln (' eto vector y');

vyvod_v (y,4);

end.

Результат:

Vvedite vector a

2.1 –3.5 0

  2.1000

-3.5000

  0.0000

vvedite vektor b

3.2 -0.2 0.3 0.4

 eto vector b:

  3.2000

 -0.2000

  0.3000

  0.4000

 eto vector x

  2.1000

  3.5000

  0.0000

 eto vector y

  3.2000

  0.2000

  0.3000

  0.4000

Задание 2 Вычислить значения выражений данных векторов  выражения X-Y значения X и Y в выражений соответственно сумма квадратов элементов вектора А и В