лабораторная работа / lab_5 / lab_5
.docx
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОСИЙСКОЙ ФЕДЕРАЦИИ
САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
ФАКУЛЬТЕТ ИНЖЕНЕРНО – СТРОИТЕЛЬНЫЙ
КАФЕДРА «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»
ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ
По курсу:
«Программирование и основы алгоритмизации»
ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
НА ЯЗЫКЕ TURBO PASCAL
|
Выполнил : Ст. Сафонов Д. Гр. УИТ – 21 Принял: Капралова О.А. _______ «_____» ______________ 2008 |
Балаково 2008
Цель работы
Овладение практическими навыками разработки алгоритмов и программ обработки одномерных массивов.
Задание
Вариант №20.
Определите количество и сумму элементов одномерного массива, попавших в заданный интервал (a,b).
Блок-схема алгоритма решения
Начало
Задайте интервал
Ввод a, b
Введите массив
Ввод сi
i=1, 10
S = 0
n = 0
i=1, 10
a < ci < b
S = S + ci
n = n + 1
trunc(b[i]) frac(b[i])
Конец
Текст программы на языке Turbo Pascal
program lab_5;
var c: array [1..10] of real;
a,b,s:real;
i,n: byte;
begin
writeln('Zadaite interval');
readln(a,b);
writeln('Vvedite massiv');
for i:=1 to 10 do read(c[i]);
s:=0;
n:=0;
for i:= 1 to 10 do
if (c[i]>a) and (c[i]<b) then
begin
s:=s+c[i];
n:=n+1;
end;
writeln('S=',s:6:3,' n=',n);
end.