Программирование и комп-ры

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

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


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



                           Лабораторная работа № 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.
                                 Блок-схема


                           -----------------------
                                    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 < ar[i]

                               max := - maxint

                                 Randomize;

                                     max

                                max := ar[i]

                                  I=1;35;1

                                    ar[i]

                                  I=1;35;1

                           ar[i] := random(60)-30

                                    Конец

                                   Начало

                                   Начало





смотреть на рефераты похожие на "Программирование элементов разветвляющейся структуры"