|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.12.2012, 21:45 | #1 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Из данных программ сделать программы с использованием процедур и функций
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. |
15.12.2012, 21:45 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы ждут, пока вы их прочитаете Решение двумерных массивов с помощью процедур и функций Двумерные массивы решенные с помощью процедур и функций Циклические программы с использованием двумерных числовых массивов |
16.12.2012, 01:05 | #4 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте,кто-нибудь окажет мне помощь,пожалуйста.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|