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

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

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

Тема – процедуры пользователя.

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

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

Шапочкин А.С.

Проверил: Журов Г.Н.

Дата: 5.05.08.

В – 9

Задача 1. Задан вектор  размерности 3 и вектор   размерности 2. Построить вектор  размерности 2, у которого каждый элемент есть косинус соответствующего элемента вектора . Построить вектор размерности 3, у которого каждый элемент есть косинус соответствующего элемента вектора .

Дано:

;

Решение.

Программа:

Program DemoProc;

Const nmax=3;

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

Var a,f,v,r:vect; n:integer;

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 NewVect(x:vect;n:integer;var y:vect);

var i:integer;

begin

for i:=1 to n do

y[i]:=cos(x[i])

end;

begin

WriteLn('Vvedite f');

vvod_v(f,2);

WriteLn('  eto vector f:');

vyvod_v(f,2);

WriteLn('Vvedite a');

vvod_v(a,3);

WriteLn('  eto vector a:');

vyvod_v(a,3);

NewVect(f,2,v);

WriteLn('  eto vector v:');

vyvod_v(v,2);

NewVect(a,3,r);

WriteLn('  eto vector r:');

vyvod_v(r,3);

end.

Вид печати:

Vvedite f

3.1 -2.0

  eto vector f:

  3.1000

 -2.0000

Vvedite a

2.1 -3.5 0

  eto vector a:

  2.1000

 -3.5000

  0.0000

  eto vector v:

 -0.9991

 -0.4161

  eto vector r:

 -0.5048

 -0.9365

  1.0000

Задача 2. Задан вектор , вектор . Вычислить значение выражения , где  есть произведение всех элементов, больших двух, вектора , - произведение всех элементов, больших двух, вектора .

Решение.

Программа:

Program DemoProc;

Const nmax=3;

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

var a,d: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;