Студопедия — ЗАДАНИЕ №1
Студопедия Главная Случайная страница Обратная связь

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

ЗАДАНИЕ №1






Дан массив, состоящий из N элементов. Составить программу, которая вычислит среднее арифметическое тех элементов массива, значения которых не падает в интервал [a, b].

Решение:

  1. Определим необходимые формулы:

SA=S/K, где SA – среднее арифметическое

S – сумма тех элементов массива, значения которых попадают в промежуток [a, b].

 

, где хi – элементы массива Х. К – количество элементов, попадающих в промежуток [a, b].

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

 
 

 

 


 
 

 


Нет

 

S=S+Xi K=K+1
Да

 

 

i=i+1
Да Нет

 

 

 
 


Да Нет

 

 

SA=S/K
SA=0

 

 

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

 

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

 

  1. В соответствии с пунктами 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.

ЗАДАНИЕ №2.

В соответствии со своим вариантом составить графическую схему алгоритма и написать программу. Программа должна осуществлять ввод и печать исходного одномерного массива; выполнять в соответствии с условиями действия и печатать результаты.

 

Вариант Задание
  Подсчитать количество чисел, принадлежащих промежутку [a, b] и сумму чисел, стоящих на местах, кратных 3.
  Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного С.
  Подсчитать произведение всех неизвестных чисел, стоящих на местах, кратных 4, и количество чисел, небольших заданного А.
  Подсчитать количество чисел, меньших заданного Х, и произведение всех отрицательных чисел, стоящих на нечетных местах.
  Подсчитать количество чисел, не принадлежащих промежутку (Х, У], и сумму отрицательных чисел, стоящих на четных местах.
  Подсчитать сумму чисел, стоящих на местах, кратных 3, и неравных заданному F, подсчитать также количество неотрицательных чисел.
  Найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, по величине больших А и стоящих на четных местах.
  Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших заданного В.
  Найти среднее арифметическое чисел, принадлежащих промежутку [А, В) и количество положительных чисел, стоящих на местах, кратных 4.
  Найти среднее арифметическое чисел, неравных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах.
  Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел, небольших заданного F.
  Найти среднее арифметическое чисел, непопадающих в промежуток [A, B], и подсчитать количество положительных чисел, стоящих на местах, кратных 3.
  Найти среднее арифметическое ненулевых чисел и подсчитать количество чисел, по величине небольших А и стоящих на четных местах.
  Вычислить произведение чисел, принадлежащих промежутку (A, B] и подсчитать количество отрицательных чисел, стоящих на местах, кратных 3.
  Найти среднее арифметическое чисел, стоящих на нечетных местах и подсчитать количество чисел, меньших заданного С.
  Вычислить сумму квадратов чисел, не принадлежащих промежутку [Х, У), подсчитать количество отрицательных чисел, стоящих на четных местах.
  Вычислить сумму квадратов чисел, принадлежащих промежутку (А, В) и стоящих на местах, кратных 4; подсчитать количество нулей во всем массиве.
  Вычислить произведение чисел, неравных заданному числу Z, и подсчитать количество чисел, стоящих на нечетных местах и принадлежащих промежутку (А, В].
  Вычислить сумму неотрицательных чисел, стоящих на местах, кратных 3, и подсчитать количество чисел, равных заданному Т.
  Вычислить сумму квадратов чисел, больших заданного С; подсчитать количество неположительных чисел, стоящих на местах, кратных 4.
  Вычислить среднее арифметическое чисел, небольших А и стоящих на четных местах; подсчитать количество ненулевых чисел.
  Вычислить произведение положительных чисел и подсчитать количество чисел, принадлежащих промежутку (А, В) и стоящих на нечетных местах.
  Вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).
  Вычислить сумму чисел, принадлежащих промежутку [A, B]; подсчитать количество нулей, стоящих на местах, кратных 4.
  Вычислить сумму квадратов чисел, принадлежащих промежутку (A, B] и стоящих на нечетных местах; подсчитать количество чисел, не меньших заданного С.
  Вычислить произведение чисел, больше заданного D и стоящих на местах, кратных 3; подсчитать также количество чисел, неравных заданному Х.
  Подсчитать количество ненулевых чисел, стоящих на нечетных местах, и вычислить среднее арифметическое чисел, меньших заданного Т.
  Вычислить сумму квадратов чисел, не меньших заданного U и стоящих на местах, кратных 4; подсчитать также количество чисел, равных W.
  Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C, D).
  Вычислить сумму ненулевых чисел, стоящих на четных местах, и подсчитать количество чисел, принадлежащих промежутку [M, K].






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



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

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

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

Влияние первой русской революции 1905-1907 гг. на Казахстан. Революция в России (1905-1907 гг.), дала первый толчок политическому пробуждению трудящихся Казахстана, развитию национально-освободительного рабочего движения против гнета. В Казахстане, находившемся далеко от политических центров Российской империи...

Виды сухожильных швов После выделения культи сухожилия и эвакуации гематомы приступают к восстановлению целостности сухожилия...

КОНСТРУКЦИЯ КОЛЕСНОЙ ПАРЫ ВАГОНА Тип колёсной пары определяется типом оси и диаметром колес. Согласно ГОСТ 4835-2006* устанавливаются типы колесных пар для грузовых вагонов с осями РУ1Ш и РВ2Ш и колесами диаметром по кругу катания 957 мм. Номинальный диаметр колеса – 950 мм...

Растягивание костей и хрящей. Данные способы применимы в случае закрытых зон роста. Врачи-хирурги выяснили...

ФАКТОРЫ, ВЛИЯЮЩИЕ НА ИЗНОС ДЕТАЛЕЙ, И МЕТОДЫ СНИЖЕНИИ СКОРОСТИ ИЗНАШИВАНИЯ Кроме названных причин разрушений и износов, знание которых можно использовать в системе технического обслуживания и ремонта машин для повышения их долговечности, немаловажное значение имеют знания о причинах разрушения деталей в результате старения...

Различие эмпиризма и рационализма Родоначальником эмпиризма стал английский философ Ф. Бэкон. Основной тезис эмпиризма гласит: в разуме нет ничего такого...

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