Меню сайта

Задача №1

1) Найти произведение X=YT(5,3)*Z(5,3)

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -D=ZT(5,3)*W(5,4)

— — — -и результаты записать в файл rez.

Матрица Y[5,3] вводится из файла a1.

Матрица Z[5,3] вводится из файла a2.

Матрица W[5,4] вводится из файла a3.

(Здесь АT — — матрица, транспонированная от А)

2) 2 столбец матрицы Y, — -3 столбец матрицы Z и 4 столбец матрицы W

— — — -умножить на P, — -где P=max(Х[i,j])+max(Y[i,j])+max(W[i,j]).

— — — -Преобразованные матрицы записать в те же файлы.

3) Найти сумму положительных элементов каждой матрицы. — -Результат

— — — -записать в файл а4.

4) Листинг программы, исходных и преобразованных файлов.

usescrt-

typemass=array[1..5,1..4] of real-

Procedurewiwod(x:mass- i,j:byte- adr:string)-

varn,m:byte-

— — — — f:text-

-begin

-assign(f,adr)-

-append(f)-

-for n:=1 to i do begin

— — — — — — — — — — — — — — — — — writeln(f)-

— — — — — — — — — — — — — — — — — for m:=1 to j dowrite(f,’ — ‘,x[n,m])- -end-

-writeln(f)-

-close(f)-

-end-

Procedurewwod(var x:mass- i,j,k:byte- adr:string)-

varm,n:byte-

— — — — f:text- — -o:real-

-begin

-assign(f,adr)-

-reset(f)-

-for n:=1 to k do read(f,o)-

-for n:=1 to i do

-for m:=1 to j do read(f,x[n,m])-

-close(f)- -end-

Proceduretrans(x:mass- i,j:byte- var xt:mass)-

varn,m:byte-

-begin

-for n:=1 to i do

-for m:=1 to j do xt[m,n]:=x[n,m]- -end-

Functionmax(mas:mass- i,j:byte):real-

varn,m:byte- -mx:real-

-begin

-mx:=mas[1,1]-

-for n:=1 to i do

-for m:=1 to j do if mas[n,m]&gt-mx thenmx:=mas[n,m]-

-max:=mx-

-end-

Procedureumn(xt,x:mass- j1,i,j2:byte- var c:mass)-

vark,n,m:byte-

-begin

-c[1,1]:=0-

-for n:=1 to j1 do

-for m:=1 to j2 do begin c[n,m]:=0-

— — -for k:=1 to i doc[n,m]:=xt[n,k]*x[k,m]+c[n,m]- -end-

-end-

Proceduresum(x:mass- i,j:byte)-

varn,m:byte-

— — — — f:text-

— — — — s:real-

-begin

-assign(f,’d:&#92-text&#92-a4.txt’)-

-append(f)-

-s:=0-

-for n:=1 to i do

-for m:=1 to j do if x[n,m]&gt-0 thens:=s+x[n,m]-

-writeln(f,s)-

-close(f)-

-end-

Procedureumn2(var x:mass- i,j:byte- p:real)-

varn:byte-

begin

-for n:=1 to i do x[n,j]:=x[n,j]*p-

end-

Procedureumn_matric_1-

vary,z,w,yt,zt,x,p:mass-

begin

-wwod(y,5,3,0,’a1.txt’)-

-wwod(z,5,3,0,’a2.txt’)-

-wwod(w,5,4,0,’a3.txt’)-

-trans(y,5,3,yt)-

-trans(z,5,3,zt)-

-umn(yt,z,3,5,3,x)-

-umn(zt,w,3,5,4,p)-

-wiwod(x,3,3,’rez.txt’)-

-wiwod(p,3,4,’rez.txt’)-

-wiwod(yt,3,5,’a1.txt’)-

-wiwod(zt,3,5,’a2.txt’)-

end-

Procedureumn_matric_2-

varh:real- -y,x,w,z:mass-

begin

-wwod(y,5,3,0,’a1.txt’)-

-wwod(z,5,3,0,’a2.txt’)-

-wwod(w,5,4,0,’a3.txt’)-

-wwod(x,3,3,0,’rez.txt’)-

-h:=max(x,3,3)+max(y,5,3)+max(w,5,4)-

-umn2(y,5,1,h)-

-umn2(z,5,2,h)-

-umn2(w,5,3,h)-

end-

Proceduresum_pol-

vary,z,w,x,p:mass-

begin

-wwod(y,5,3,0,’a1.txt’)-

-wwod(z,5,3,0,’a2.txt’)-

-wwod(w,5,4,0,’a3.txt’)-

-wwod(x,3,3,0,’rez.txt’)-

-wwod(p,3,4,6,’rez.txt’)-

-sum(z,5,3)-

-sum(w,5,4)-

-sum(y,5,3)-

-sum(x,3,3)-

-sum(p,3,4)-

end-

Procedurewind(x1,y1,x2,y2,c:byte)-

begin

-window(x1,y1,x2,y2)-

-textbackground(c)-

-clrscr-

end-

Functionwibor:byte-

vari:byte-

begin

-textcolor(4)-

-wind(1,1,80,25,0)-

-gotoxy(33,1)-

-write(‘Курсовая работа’)-

-gotoxy(35,3)-

-textcolor(6)-

-writeln(‘Задание 1.’)-

-wind(3,5,77,19,1)-

-wind(5,6,75,8,0)-

-gotoxy(2,1)-

-writeln(‘1.Найти произведение X=YT(5,3)*Z(5,3)’)-

-write(‘ — — — — — — — — — — — — — — — — — — — — — — P=ZT(5,3)*W(5,2)’)-

-wind(5,10,75,12,0)-

-gotoxy(2,1)-

-writeln(‘2. 2столбец матрицы Y[5,3],3 столбец матрицы Z[5,3] и ‘)-

-writeln(‘ — — -4 столбец матрицы W[5,2] умножить на P, где’)-

-write(‘ — — — — — — — — — — P=max(Х[i,j])+max(Y[i,j])+max(W[i,j]).’)-

-wind(5,14,75,16,0)-

-gotoxy(2,1)-

-write(‘3. Найти сумму положительных элементовматриц X[3,3],Y[5,3],Z[5,3], — — — — -W[5,2],P[3,2].’)-

-write(‘ Результат записать в файл а4.’)-

-textcolor(0)-

-wind(30,18,50,18,7)-

-gotoxy(7,1)-

-write(‘4. Выход’)-

-wind(17,22,63,24,4)-

-textcolor(2)-

-gotoxy(1,2)-

-write(‘ -Выберите пункт задания для выполнения:’)-

-read(i)-

-wibor:=i-

end-

VARq,k:byte-

BEGIN

q:=0-

whiletrue do

— — — — — — — — — — begin

— — — — — — — — — — k:=wibor-

— — — — — — — — — — if k=1 then begin

— — — — — — — — — — — — — — — — — — — — — — umn_matric_1-

— — — — — — — — — — — — — — — — — — — — — — q:=1-

— — — — — — — — — — — — — — — — — — — — — — end-

— — — — — — — — — — if (q=0) and ((k=2) or (k=3)) then

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — begin

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -textcolor(4)-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -wind(1,1,80,25,0)-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — wind(10,12,70,12,7)-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -write(‘Перед выполнениям этогопункта надо выполнить пункт 1’)-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — sound(1000)-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -delay(60000)-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -delay(60000)-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -nosound-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — -continue-

— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — end-

— — — — — — — — — — if k=2 then umn_matric_2-

— — — — — — — — — — if k=3 then sum_pol-

— — — — — — — — — — if k=4 then break-

— — — — — — — — — — if k&gt-4 then begin

— — — — — — — — — — — — — — — — — — — — — — textcolor(4)-

— — — — — — — — — — — — — — — — — — — — — — wind(1,1,80,25,0)-

— — — — — — — — — — — — — — — — — — — — — — wind(10,12,70,12,7)-

— — — — — — — — — — — — — — — — — — — — — — write(‘ — — — — — — — Введитеправильное значение’)-

— — — — — — — — — — — — — — — — — — — — — — sound(666)-

— — — — — — — — — — — — — — — — — — — — — -delay(60000)-

— — — — — — — — — — — — — — — — — — — — — — delay(60000)-

— — — — — — — — — — — — — — — — — — — — — — nosound-

-&
nbsp- — — — — — — — — — — — — — — — — — — — — end-

— — — — — — — — — — end-

end.

Категория: Файлы | Дата: 21.11.12

Меню раздела
Блок