Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
50
Добавлен:
10.02.2014
Размер:
24.61 Кб
Скачать

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОСИЙСКОЙ ФЕДЕРАЦИИ

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

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

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

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

ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ

По курсу:

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

ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ

НА ЯЗЫКЕ 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.

Соседние файлы в папке lab_5