Лабораторная работа - файл n1.doc

Лабораторная работа
Скачать все файлы (8.8 kb.)

Доступные файлы (1):
n1.doc56kb.15.01.2009 02:04скачать

n1.doc

Федеральное агентство по образованию

Уфимский государственный авиационный технический университет

Кафедра экономической информатики


Лабораторная работа №4
Реализация программ, использующих

процедуры и функции пользователя

Выполнила:

студентка группы

Иванова А.М.

Проверила:

Иванов О.В.


Уфа, 200
Вариант №2


  1. Задача: Сформировать матрицы (двухмерный массив) {aij}n,m , {bij}k,l , где i<=(n,k), j<=(m,l) , элементы которых определяются случайно из диапазона вещественных чисел от 0 до 1. Фактическое число строк (n,k) и столбцов (m,l) каждой матрицы вводить с клавиатуры. Создать процедуру, определяющую одномерный массив (вектор), состоящий из сумм каждого столбца матрицы. Причем суммируются элементы 0? aij?0.5. Вывести на экран исходные и результирующие массивы.





Program Proc;

Uses crt;

Var

a,b:array[1..10,1..10] of real;

u:array[1..10] of real;

n,m,i,j,k,l:integer;

v,r,y:real;

Procedure step(m, n:integer; v:real; a:array[1..10,1..10] of real; u:array[1..10] of real);

Var

i,j:integer;

Begin

For i:=1 to m do begin

For j:=1 to n do begin

v:=0;

If (0<=a[i,j]) and (a[i,j]<=0.5) then v:=v+a[i,j];

If i=m then write(' ', v:3:3);

End;

End;

End;

Begin

Clrscr;

v:=0;

Writeln ('Vvedite chisla n,m,k,l');

Readln (n,m,k,l);

For i:=1 to n do begin

For j:=1 to m do begin

Writeln;

Writeln ('Vvedite elementi massiva a[',i,',',j,'] yslovie 0
Readln (a[i,j]);

End;

End;

For i:=1 to k do begin

For j:=1 to l do begin

Writeln;

Writeln ('Vvedite elementi massiva b[',i,',',j,'] yslovie 0
Readln (b[i,j]);

End;

End;

Writeln ('***1 matrica*** ');

For i:=1 to n do begin

For j:=1 to m do begin

Write (a[i,j]:4:4,' ');

End;

End;

Writeln;

Step (m, n, v, a, u);

Writeln;

Writeln ('***2 matrica***');

For i:=1 to k do begin

For j:=1 to l do begin

Write (b[i,j]:4:4,' ');

End;

End;

Writeln;

Step (l, k ,r, b, u);

End.
Учебный текст
© perviydoc.ru
При копировании укажите ссылку.
обратиться к администрации