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

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

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

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

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

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

Пахомов В. Е.

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

2003

Задание А.

Записать в массив Y(20) квадраты чисел находящиеся в массиве X(20).

Программа:

uses crt; var i : integer; a : array[1..20] of integer; c : array[1..20] of integer; begin clrscr; writeln('Первый массив : '); for i := 1 to 20 do begin a[i] := random(30); write (' ', a[i]); end; writeln; for i := 1 to 20 do c[i] := a[i] * a[i]; writeln('Получившийся массив : '); for i := 1 to 20 do write (' ', c[i]); writeln; readkey; end.

Блок-схема

Задание Б.

Найти наибольшшее число среди отрицательных элементов массива B(35)

Программа:

uses crt; var ar : array[1..35] of integer; max, i : integer; begin clrscr; writeln; randomize; for i := 1 to 35 do begin ar[i] := random(60)-30; write(' ', ar[i]); end; max := -maxint; for i := 1 to 35 do if ar[i] < 0 then begin if max

Блок-схема

----------------------- c[i]

c[i] := a[i] + b[i]

I=1;16;1

a[i], b[i]

I=1;16;1

a[i] := random(30) b[i] := random(30)

Конец

ar[i] < 0

Max

max := - maxint

Randomize;

max

max := ar[i]

I=1;35;1

ar[i]

I=1;35;1

ar[i] := random(60)-30

Конец

Начало

Вернуться