Xreferat.com » Рефераты по информатике и программированию » Программирование элементов разветвляющейся структуры

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

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


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


Лабораторная работа № 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 < ar[i] then

max := ar[i];

end;

writeln;

writeln('Наибольшее число : ', max);

readkey;

end.

Блок-схема



Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.), обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.

Поможем написать работу на аналогичную тему

Получить выполненную работу или консультацию специалиста по вашему учебному проекту

Похожие рефераты: