Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Составим графическую схему алгоритма





 
 

 

 


 
 

 


Нет

 

Да

 

 

Нет

 
 


Да

 

       
 
 
   

 


Нет

 

Да

SA=S/K
SA=0

 
 

 


Составим таблицу соответствия переменных.

 

В исходной задаче N X S K SA i
В программе N X S K SA i
Тип int array (real) real int real int

 

В соответствии с пунктами 2 и 3 составьте программу.

Program SRARIFM;

Var

N, K, I: integer;

S, SA: real;

x: array [1..50] of real;

begin

write (‘Введите границы интервала [a, b] ’);

readln (a, b);

write (‘Введите кол-во элементов в массиве ’);

readln (N);

{Организация ввода значений элементов массива Х}

for i: =1 to N do

begin

write (‘Введите х [‘, i, ‘] ‘);

readln (x[i])

end;

{Расчетная часть программы}

S: =0;

K: =0;

For i: =1 to N do

If (x[i]> =a) and (x[i]< =b)

then

begin

S: =s+x[i];

K”=k+1

End;

if k=0

then

SA: =0

Else SA: =S/K;

{Вывод результата подсчета}

writeln (‘Средне арифметическое элементов, принадлежащих промежутку [‘, a: 7: 3, ‘, ’, b: 7: 3, ‘]=’, SA: 7: 3);

readln

end.







Дата добавления: 2014-11-10; просмотров: 609. Нарушение авторских прав; Мы поможем в написании вашей работы!




Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...


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


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Мелоксикам (Мовалис) Групповая принадлежность · Нестероидное противовоспалительное средство, преимущественно селективный обратимый ингибитор циклооксигеназы (ЦОГ-2)...

Менадиона натрия бисульфит (Викасол) Групповая принадлежность •Синтетический аналог витамина K, жирорастворимый, коагулянт...

Разновидности сальников для насосов и правильный уход за ними   Сальники, используемые в насосном оборудовании, служат для герметизации пространства образованного кожухом и рабочим валом, выходящим через корпус наружу...

Правила наложения мягкой бинтовой повязки 1. Во время наложения повязки больному (раненому) следует придать удобное положение: он должен удобно сидеть или лежать...

ТЕХНИКА ПОСЕВА, МЕТОДЫ ВЫДЕЛЕНИЯ ЧИСТЫХ КУЛЬТУР И КУЛЬТУРАЛЬНЫЕ СВОЙСТВА МИКРООРГАНИЗМОВ. ОПРЕДЕЛЕНИЕ КОЛИЧЕСТВА БАКТЕРИЙ Цель занятия. Освоить технику посева микроорганизмов на плотные и жидкие питательные среды и методы выделения чис­тых бактериальных культур. Ознакомить студентов с основными культуральными характеристиками микроорганизмов и методами определения...

САНИТАРНО-МИКРОБИОЛОГИЧЕСКОЕ ИССЛЕДОВАНИЕ ВОДЫ, ВОЗДУХА И ПОЧВЫ Цель занятия.Ознакомить студентов с основными методами и показателями...

Studopedia.info - Студопедия - 2014-2025 год . (0.007 сек.) русская версия | украинская версия