Из данных программ сделать программы с использованием процедур и функций
Задание такое даны уже готовые программы,а из них нужно переделать программы с использованием процедур и функций.,т.е. вставить процедуры или функции.
1.Дан массив В(М, М). Вывести на печать элементы столбца, в котором расположен максимальный элемент матрицы В. Uses crt; Var b: Array[1..10,1..10] of Integer; i,j,m,max,jmax: Integer; BEGIN Write('vvedite razmer M matriz: '); Readln(m); Writeln('vvedite element:'); For i:=1 to m do For j:=1 to m do Readln(b[i,j]); Clrscr; max:=b[1,1]; Writeln('matriza:'); For i:=1 to m do begin For j:=1 to m do begin If b[i,j]>max Then begin max:=b[i,j]; jmax:=j; end; Write(b[i,j]:4); end; Writeln end; Writeln; Writeln('stolbez s maxcimalnym elementom:'); For i:=1 to m do begin Write(b[i,jmax]); Writeln end; Readln END. 2.Дана матрица A(N,N). Перепишите элементы её главной диагонали в одномерный массив Y(N) и разделите их на максимальный элемент главной диагонали. Uses crt; Var a: Array[1..10,1..10] of Integer; y: Array[1..10] of Integer; i,n,max,j: Integer; BEGIN Write('vvedite razmer N matrizy: '); Readln(n); For i:=1 to n do For j:=1 to n do Readln(a[i,j]); Clrscr; Writeln('matriza:'); For i:=1 to n do begin y[i]:=a[i,i]; For j:=1 to n do Write(a[i,j]:4); Writeln end; max:=a[1,1]; Writeln('odnomerny massive Y: '); For i:=1 to n do begin If y[i]>max Then max:=y[i]; Write(y[i],' '); end; Writeln; Writeln('deleny na Max: '); For i:=1 to n do Write(y[i]/max:7:2); Readln END. 3.Задан массив В(К, М). Найти сумму элементов строки, в которой расположен минимальный элемент. uses crt; var b: array[1..100,1..100] of integer; i,j,k,n,x: byte; min,sum: integer; begin clrscr; write('Razmeru: '); readln(k,n); for i:=1 to k do begin for j:=1 to n do begin write('b[',i,',',j,']= '); readln(b[i,j]); end; writeln; end; writeln; min:=b[1,1]; x:=1; for i:=1 to k do for j:=1 to n do if b[i,j]<min then begin min:=b[i,j]; x:=i; end; for j:=1 to n do sum:=sum+b[x,j]; writeln('Summa: ',sum); readkey; end. 4.Дан массив С(N). Найти среднее арифметическое положительных элементов с чётными индексами. uses crt; var c:array[1..100]of real; k,i,n:byte; s:real; Begin clrscr; write('Vvedite kol-vo elementov: '); readln(n); for i:=1 to n do begin write('Vvedite znachenie: '); readln(c[i]); end; for i:=1 to n do write(c[i]:8:3); Writeln; s:=0; k:=0; for i:=1 to n do if (i mod 2=0) and (c[i]>0) then begin s:=s+c[i]; k:=k+1; end; writeln; writeln('Srednee arifmetichescoe: ',s/k:0:5); readkey; End. |
Цитата:
Где "Здравствуйте", "пожалуйста", "помогите"? |
Умоляю,пожалуйста помогите!!!
Пошу о помощи...
|
Здравствуйте,кто-нибудь окажет мне помощь,пожалуйста.
|
Часовой пояс GMT +4, время: 06:03. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.