Информационная безопасность в информационных системах

Лабораторная работа №5

Студента группы «ЭМ-11»

Проворова Артёма Игоревича

Задание №1-9

Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

Работа программы:

С помощью оператора ввода вводим значения необходимые в программе. С помощью оператора присваивания находим нужные значения и выводим их на  экран.

Переменные:

Блок-схема:

Текст программы:

const[pic 1]

nmax=20;

var

a:array [1..nmax] of real;

b:array [1..nmax] of real;

i,n:integer;

begin

writeln('Введите размерность массива');

read(n);

for i:=1 to n do

begin

write ('ведите число:');

read(a[i]);

b[i]:=-a[i];

end;

for i:=1 to n do

write(a[i]);

writeln('Массив противоположных чисел:');

for i:=1 to n do

write(b[i]);

end.

[pic 2]

Тестирование:

Вводим размерность массива, затем вводим числа. Программа работает корректно.

Введите размерность массива:

3

ведите число:1

ведите число:2

ведите число:3

1

2

3

Массив противоположных чисел:

-1-2-3

Задание №2-1

Удалить первый отрицательный элемент, если таковой имеется.

Работа программы:

Программа использует случайные числа и автоматически работает.

Переменные:

Блок-схема:

Текст программы:

[pic 3]

const n=10;

var a:array [1..n] of integer;

i,k,ki:integer;

begin

k:=0;

writeln('исходный массив:');

for i:=1 to n do

begin

a[i]:=random(100)-90;

write('a[',i,']= ',a[i],'  ');

end;

for i:=1 to n do

if (k=0) and (a[i]<0) then

begin k:=a[i];

ki:=i;

end;

for i:=ki to n-1 do

begin

a[i]:=a[i+1];

end;

writeln;

writeln('номер первого отрицательного элемента= ', ki);

writeln('массив после удаления элемента :' );

for i:=1 to n-1 do

write('a[',i,']= ',a[i],'  ');

end.[pic 4]

Тестирование:

Программа автоматически работает, используя случайные числа.

исходный массив:

a[1]= -62  a[2]= -39  a[3]= -58  a[4]= -40  a[5]= -84  a[6]= -7  a[7]= -70  a[8]= 5  a[9]= -90  a[10]= -88  

номер первого отрицательного элемента= 1

массив после удаления элемента :