лабораторная работа / вар19 / Лабораторная №5

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ

КАФЕДРА УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ

ЛАБОРАТОРНАЯ РАБОТА №5

ПО ДИСЦИПЛИНЕ

Программирование и основы алгоритмизации

ВЫПОЛНИЛ СТ. ГР. УИТ-23

ПРИНЯЛА

2005

ЛАБОРАТОРНАЯ РАБОТА №5

Задание(14): Сравнить элементы 2-ух массивов между собой и определить количество равных и их сумму. Вывести результат на экран.

Схема алгоритма решения

нет

да

Программа, реализующая алгоритм имеет вид:

Program lab_5_Vika;

Var

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

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

S: real;

i, j, n: integer;

Begin

For i:=1 to 10 do Read (a[i]);

For j:=1 to 10 do Read(b[j]);

S:=0;

n:=0;

For i:=1 to 10 do

For j:=1 to 10 do begin

if a[i]=b[i] then begin

S:=S+(a[i]+b[i]);

n:=n+1;

end;

end;

Writeln('S=’, S:5:3);

Writeln(‘n=’, n:3);

End.

Результаты выполнения программы:

Задаем 2 массива:

1. 2 3 4 5 67 89 10 8 9

9 8 5 2 45 65 25 12 4 69

S=48.000

n=5

4