Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
22.04.2010
Формат файла
.doc — Microsoft Word
Архив
20034.zip — 10.15 kb
  • programmirovanie-jelementov-razvetvljajushhejsja-struktury_20034_1.doc — 44 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТКафедра МО и ПЭВМЛабораторная работа № 8Тема: «Программирование элементов разветвляющейся структуры»Выполнил: студент гр. 02ТП1Пахомов В. Е.
Проверил: Ракова А. Н.
2003Задание А.
Найти среднее арифметическое отрицательных элементов матрицы Z (n,m). Значения параметров n и m задаются следующим условием n12, m12.
Программа:
uses crt;
var
z : array[1..12,1..12] of integer;
m, n, b, sum, i, j : integer;
begin
n:=10;
m:=12;
clrscr;
randomize;
b := 0;
sum := 0;
writeln('Исходный массив : ');
for i := 1 to n do
for j := 1 to m do
begin
z[i, j] := random(60) - 30;
if z[i, j] < 0 then
begin
sum := sum + z[i, j];
inc(b);
end;
write(' ', z[i, j]);
end;
writeln;
writeln('Результат : ',(sum / b):2:6);
readkey;
Б.
В матрице D (n,m) найти сумму элементов каждого столбца и результат разместить в вектор Z. Определить номер столбца, где эта сумма минимальна. Значения параметров n и m задаются и подчиняются следующему условию n12, m12.
Программа:
uses crt;
varn, m, b, i, j, sum, min : integer;
d : array[1..12,1..12] of integer;
z : array[1..12] of integer;
beginclrscr;
randomize;
b := 0;
min := 0;
n:=12;
m:=7;
writeln('Исходный массив : ');
for i := 1 to n dobeginfor j := 1 to m dobegind[i, j] := random(60) - 30;
write(' ', d[i, j]);
end;
writeln;
end;
for j := 1 to m dobeginsum := 0;
for i := 1 to n dobeginsum := sum + d[i, j];
end;
z[j] := sum;



Ваше мнение



CAPTCHA