Категория
Информатика
Тип
реферат
Страницы
3 стр.
Дата
14.02.2010
Формат файла
.doc — Microsoft Word
Архив
19128.zip — 11.06 kb
  • 10-zadach-s-reshenijami-programmirovaniem-na-paskale_19128_1.doc — 62.5 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

Задача 1.
Условие: Найти среднее арифметическое общей совокупности элементов тех строк заданной матрицы, последний элемент которых равен 1.
Программа:
program S2_Z1;
type m=array[1..100,1..100] of integer;
var A:m;
procedure vvod(m,n:integer;var x:m);
var i,j: integer;
begin writeln('введите элементы массива');
for i:=1 to m dofor j:=1 to n doread(x[i,j]);
end;
procedure arf(m,n:integer;var x:m);
var i,j,s:integer;sr:real;
beginfor i:=1 to m do begin s:=0; sr:=0;
if x[i,n]=1 then beginfor j:=1 to n dos:=s+x[i,j]; sr:=s/n;
writeln ('среднее арифметическое ',i,' строки равно ',sr:5:2); end; end;
end;
beginvvod(3,3,A);
arf(3,3,A);
end.
Задача 2.
Условие: Получить массив Х(n) по правилу: Хi =1, если в i-м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение С, иначе Xi=0. Найти общее число элементов, больших С.
Программа:
program S2_Z2;
type m=array[1..100,1..100] of integer; mas=array[1..100] of integer;
var A:m;
procedure vvod(m,n:integer;var x:m);
var i,j: integer;
begin writeln('введите элементы массива');
for i:=1 to m dofor j:=1 to n doread(x[i,j]);
end;
procedure moped(m,n:integer;var y:m);
var i,j,c,k:integer; X:mas;
begin k:=0; writeln('введите величину С='); readln(c);
for j:=1 to n do x[j]:=0;
for j:=1 to n dofor i:=1 to m doif y[i,j]>c then begin X[j]:=1; k:=k+1; end;
writeln('элементы массива Х:');
for j:=1 to n do write(X[j],' ');
writeln;
writeln('число элементов матрици превышающих число ',c,' равно ',k)
end;
beginvvod(2,5,A);moped(2,5,A);readln;



Ваше мнение



CAPTCHA