Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 
У нас есть несколько работ на данную тему. Вы можете создать свою уникальную работу объединив фрагменты из уже существующих:
  1. Программирование элементов разветвляющейся структуры 2.6 Кб.
  2. Программирование элементов разветвляющейся структуры 3.9 Кб.
  3. Программирование элементов разветвляющейся структуры 2.5 Кб.
  4. Программирование элементов разветвляющейся структуры 3.6 Кб.

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

Работа из раздела: «Программирование и комп-ры»
                   ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ


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



                           Лабораторная работа № 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

                                    Конец

                                   Начало

                                   Начало




ref.by 2006—2022
contextus@mail.ru