Реферат: Программирование элементов разветвляющейся структуры
ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Кафедра МО и ПЭВМ
Лабораторная работа № 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 to20 do
begin
a[i] :=random(30);
write (' ',a[i]);
end;
writeln;
for i := 1 to20 do
c[i] := a[i] *a[i];
writeln('Получившийся массив:');
for i := 1 to20 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.
Блок-схема
/>