Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
БАГАТОВИМІРНІ МАСИВИ (МАТРИЦІ
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 5_2
з дисципліни
“Основи програмування ”
Тема: БАГАТОВИМІРНІ МАСИВИ (МАТРИЦІ)
Постановка задачі
Задані дійсні матриці Х [n x m] та Y [n x m], які містять від'ємні елементи. Нехай D [n] і Q [n] - суми модулів елементів рядків заданих матриць. Визначити добуток мінімальних значень цих сум для кожної матриці.
аналітичні викладки
Масив може бути одновимірним (вектором), та багатовимірним (наприклад, двовимірною таблицею), тобто таким, де індексом є не одне число, а кортеж (сукупність) з декількох чисел, кількість яких співпадає з розмірністю масива.
блок-схема алгоритму
текст програми.
program lab5_2;
uses crt;
const n=3; m=4; {rozmir matric}
type matr=array[1..n,1..m] of integer; {tipi matric}
vek=array[1..n] of integer; {tip promiznogo vektora}
var x:matr; y:matr;
i,j,miny,minx,dob:integer; dX,dY:vek; {ogoloshena globalnoi zminoi dla masiviv}
q:string; {flag povtoreniy programi}
{========================}
procedure input(var a:matr);
begin
for i:=1 to n do
begin
for j:=1 to m do
a[i,j]:=random(50)-25;
end;
end;
{=============================}
procedure output(a:matr; poz:byte);
begin
for i:=1 to n do
begin
GotoXY(poz,i+3);
for j:=1 to m do
write(a[i,j]:3,' ');
writeln;
end;
end;
{==============================}
procedure DZ(a:matr; var d:vek); {naxod min el}
var v:vek;
begin
for i:=1 to n do
begin
v[i]:=0;
for j:=1 to m do
v[i]:=v[i]+abs(a[i,j]); {cyma el. radka}
end;
for i:=1 to n do {vivedena sumi}
write(v[i],' '); write(' ');
d:=v;
end;
{==================================}
function min(v:vek):integer;
var minV:integer;
begin
minV:=v[1];
for i:=2 to n do
if v[i]<minV then {poshyk min el}
minV:=v[i];
min:=minV;
end;
{=================================}
begin
clrscr;
writeln ('Laboratorna robota 5_2');
writeln ('Variant 15');
writeln('vikonav Kononec German ip-02');
q:='yes'; {startovoe zna4enie vneshnego cikla}
while (q='yes') or (q='Y') or (q='y') do {yslovie}
begin
gotoxy(1,4);
input(x); {ctvorena matrici x}
writeln('x: ');
output(x,4); {vivedenya matrici x}
input(y); {ctvorena matrici y}
GotoXY(m*6+5,4);
writeln('y:');
output(y,m*6+7);writeln; {vivedena matrici Y}
dZ(x,dx);
dZ(y,DY); writeln;
writeln; write('min x= ',min(dx));
writeln; write('min y= ',min(dy)); {ob4iclena}
dob:=min(dX)*min(dY);writeln;
writeln('dobytok= ',dob);
gotoxy(1,n*4+n);
writeln('povtorit` program? (yes\no)'); {zapros na povtor programi}
readln(q); {vvidenie zna4enia cikla}
clrscr;
end;
end. {konec}
Відеокопія результату
/
Висновок
Виконуючі дану лабораторну роботу, я оволодів навичками роботи з багатовимірними масивами як структурованою даних. Також способами введення та виведення їх. Виконуючи цю роботу, я використовував раніше із учені методи програмування.
/
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора