Студопедия  
Главная страница | Контакты | Случайная страница

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

Сумма равна 217,030

Читайте также:
  1. B) По применимости к ним тех или иных форм уравнений кинетики, как сумма степеней концентрации
  2. В 4 года жизненная емкость в среднем равна 1090 мл, из которых объем дополнительного воздуха составляет 480 мл, дыхательного- 120 мл и запасного воздуха - 490 мл.
  3. В индийской философии -- общая сумма совершенных поступков и их последствий, определяющая характер нового рождения
  4. Вероятность достоверного события равна единице.
  5. Вероятность невозможного события равна нулю.
  6. Виправна влада
  7. Вновь созданная за год стоимость, характеризующая благосостояние общества, сумма заработной платы, ренты, процента и прибыли- это..
  8. Во всякой замкнутой системе масса веществ, вступивших в реакцию, равна массе веществ, получившихся в результате реакции.
  9. Выручка от продаж — 150 тыс. руб., сумма постоянных затрат
  10. Для внутреннего суммативного оценивания (ВСО)

 

Данная программа требует следующих пояснений. В разделе определения констант задана размерность массива А, который описан в разделе описания переменных. Тип индекса — ограниченный. Тип элементов real. В этом же разделе описываются переменные: i — параметр цикла; s — сумма.

Для ввода элементов массива А используется цикл с оператором for. В качестве параметра цикла вводят номер члена последовательности. Оператор writeln, стоящий перед оператором for, введён для организации диалога между пользователем и машиной. При выполнении программы этим оператором на экран выдаётся сообщение:

«введите 10 элементов массива через пробел».

Числа вводятся с клавиатуры через пробел. После набора десятого числа нажимается клавиша <bk> (возврат каретки).

Для вычисления суммы членов последовательности используется цикл с оператором for. Начальное значение суммы задаётся оператором s: = 0. Очередное значение суммы вычисляется при выполнении оператора s: = s + a[i]. Выход из цикла будет при значении параметра цикла i > 10.

Для вывода на экран (печать) вычисленной суммы используется оператор writeln, в список переменных которого включена строка символов «значение суммы равно» для комментария выводимой информации и переменная s. Значение s выводится по формату 7: 3.

Пример 4. Составить программу для вычисления суммы элементов последовательности целых чисел P1, P2, …, P10, имеющих четные индексы, и произведения элементов последовательности P1, P2, …, P10 с нечетными индексами.

Сумма s членов последовательности с четными индексами и произведение z членов последовательности с нечетными индексами вычисляются по формулам:

S = P2+P4+P6+P8+P10;

Z = P1 P3 P5 P7 P9.

Входными данными являются значения и число членов последовательности, выходными данными — сумма членов последовательности с четными индексами и произведение членов последовательности с нечетными индексами.

Для реализации данной задачи используем циклический алгоритм, рассмотренный в примере 1, но в этом случае кроме задания начального значения суммы нужно задать начальное значение произведения, равное 1. Параметр цикла должен меняться от 1 до 5.

Числовую последовательность p1, p2, …, p10 обозначим как массив целых чисел с именем p, сумму s — переменной sum, произведение z — переменной p, параметр цикла — переменной i.

Программа вычисления суммы и произведения элементов массива имеет вид:

program pr 2;

const n = 10;{размерность массива}

var p: array [1..n] of integer;{описание массива целых чисел}

{тип индекса – ограниченный}

sum: integer;{сумма элементов массива}

pro: integer; {произведение элементов массива}

i: integer; {параметр цикла}

begin {ввод исходных данных}

writeln (“вводите через пробел 10 элементов массива”);

for i:= 1 to n do

read (p[i]);

{вычисление суммы элементов с четными индексами}

{произведение элементов с нечетными индексами}

sum:= 0; {начальное значение суммы}

pro:= 1; {начальное значение произведения}

for i:= 1 to 5 do

begin

sum:= sum + p [i*2];

pro:= pro * p [i*2–1];

end;

{печать результатов}

writeln;

writeln (‘сумма равна’,sum:5);

writeln (‘произведение равно’,pro:7);

end.

 

 

Результат работы программы выглядит следующим образом:




Дата добавления: 2014-12-19; просмотров: 18 | Поможем написать вашу работу | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2024 год. (0.006 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав