Категория
Информатика
Тип
реферат
Страницы
1 стр.
Дата
08.03.2009
Формат файла
.doc — Microsoft Word
Архив
20036.zip — 7.41 kb
  • programmirovanie-jelementov-razvetvljajushhejsja-struktury_20036_1.doc — 36 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТКафедра МО и ПЭВМЛабораторная работа № 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;
Б.
Найти наибольшшее число среди отрицательных элементов массива 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 < ar[i] thenmax := ar[i];
end;
writeln;
writeln('Наибольшее число : ', max);
readkey;
end.
Блок-схема



Ваше мнение



CAPTCHA