.

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

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

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

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

Лабораторная работа № 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 thenbeginif max < ar[i] thenmax := ar[i];end;writeln;writeln('Наибольшее число : ', max);readkey;end.Блок-схемаc[i]c[i] := a[i] + b[i]I=1;16;1a[i], b[i]I=1;16;1a[i] := random(30)b[i] := random(30)Конецar[i] < 0Max < ar[i]max := - maxintRandomize;maxmax := ar[i]I=1;35;1ar[i]I=1;35;1ar[i] := random(60)-30КонецНачалоНачало

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

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

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

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