.

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

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 106
Скачать документ

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

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

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

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

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

Пахомов В. Е.

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

2003

Задание А.

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] Блок-схема Задание Б. 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] z[i]

Min =1

Min = i

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2020