Пензенська ДЕРЖАВНИЙ УНІВЕРСИТЕТ

Кафедра МО і ПЕОМ

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

Тема: "Програмування елементів розгалужується структури»

Виконав: студент гр. 02ТП1

Пахомов В. Е.

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

2003

Завдання А. < p> Записати в масив 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;varar: array [1 .. 35] of integer;max, i: integer;beginclrscr;writeln;randomize;for i: = 1 to 35 dobeginar [i]: = random (60) -30;write ( '', ar [i]);end;max: =-maxint;for i: = 1 to 35 doif ar [i] <0 thenbeginif 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

Кінець

початок

початок