Бесплатные рефераты


В мире
Календарь новостей
« Ноя.2017
Пн.Вт.Ср.Чт.Пт.Сб.Вс.
  12345
6789101112
13141516171819
20212223242526
27282930   
ВНИМАНИЕ!!!
УВАЖАЕМЫЕ ПОЛЬЗОВАТЕЛИ!!!
Сайт поменял владельца и на нём грядут большие перемены.
Убедительная просьба не пользоваться покупкой рефератов через смс.
ДАННЫЙ СЕРВИС БОЛЬШЕ НЕ РАБОТАЕТ
Стоит вопрос об его удалении, дабы сделать рефераты бесплатными. Извините за неудобство и спасибо за понимание
Поиск реферата

Реферат, курсовая, контрольная, доклад на тему: Программирование элементов разветвляющейся структуры

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо скачать работу.

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

Лабораторная работа № 8

Тема: «Программирование элементов разветвляющейся структуры»

Выполнил: студент гр. 02ТП1

Пахомов В. Е.

Проверил: Ракова А. Н.

2003

Задание А.

Найти среднее арифметическое отрицательных элементов матрицы Z (n,m).
Значения параметров n и m задаются следующим условием n[pic]12, m[pic]12.

Программа:

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; end.

Блок-схема

Задание Б.

В матрице D (n,m) найти сумму элементов каждого столбца и результат разместить в вектор Z. Определить номер столбца, где эта сумма минимальна.
Значения параметров n и m задаются и подчиняются следующему условию n[pic]12, m[pic]12.

Программа:

uses crt; var n, m, b, i, j, sum, min : integer; d : array[1..12,1..12] of integer; z : array[1..12] of integer; begin clrscr; randomize; b := 0; min := 0; n:=12; m:=7; writeln('Исходный массив : '); for i := 1 to n do begin for j := 1 to m do begin d[i, j] := random(60) - 30; write(' ', d[i, j]); end; writeln; end; for j := 1 to m do begin sum := 0; for i := 1 to n do begin sum := sum + d[i, j]; end; z[j] := sum; end; min := 1; for i := 1 to m do if z[min] > z[i] then min := i; writeln('Массив Z : '); for i := 1 to m do writeln (' ',z[i]); writeln('Номер столбца : ',min); readkey; end.

Блок-схема

----------------------- sum :=0 b := 0

z[i,j] := random(60)-30

n,m

z[i,j] < 0

Randomize;

sum / b

sum := sum + z[i,j] b := b + 1

j=1;n;1

1

1

sum := sum + d[i,j]

j=1;m;1

I=1;n;1

d[i,j] := random(60)-30

n,m

Randomize;

z[i] := sum;

j=1;m;1

I=1;n;1

Начало

j=1;m;1

I=1;n;1

Конец

Начало

min

sum / b

Конец

j=1;n;1

z[min] > z[i]

Min =1

Min = i

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо А можно заказать оригинальный реферат
Опубликовано: 20.08.10 | [ + ]   [ - ]  
Просмотров: 110
Загрузок: 0
Рекомендуем
{dnmbottom}
БАНК РЕФЕРАТОВ содержит более 70 000 рефератов, курсовых, контрольных работ, сочинений и шпаргалок.