лабораторная работа / lab_5 / lab_5
.doc
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОСИЙСКОЙ ФЕДЕРАЦИИ
САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
ФАКУЛЬТЕТ ИНЖЕНЕРНО – СТРОИТЕЛЬНЫЙ
КАФЕДРА «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»
ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ
По курсу:
«Программирование и основы алгоритмизации»
ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ
НА ЯЗЫКЕ TURBO PASCAL
|
Выполнил :
Гр. УИТ – 21 Принял:
«_____» ______________ 2008 |
Балаково 2008
Цель работы
Овладение практическими навыками разработки алгоритмов и программ обработки одномерных массивов.
Задание
Вариант №20.
Определите количество и сумму элементов одномерного массива, попавших в заданный интервал (a,b).
Блок-схема алгоритма решения
Текст программы на языке 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.