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

Произведение равно 3240

Читайте также:
  1. V. Цена экономического продукта. Спрос. Предложение. Рыночное равновесие.
  2. а) при числе эпициклов,равном 1; б) при числе 2
  3. А)Равномерный метод.
  4. Автор - это гражданин, творческим трудом которого создано произведение.
  5. Анализ равновесия между активами предприятия и источниками их формирования. Оценка финансовой устойчивости предприятия
  6. Ангуштхасана, или Толанасана, — угол в равновесии с прямыми ногами
  7. АЦП последовательного приближения (с поразрядным уравновешиванием)
  8. Бесконечная равномерно заряженная нить
  9. Бюджетное ограничение и оптимальное равновесие потребителя.
  10. Бюджетные ограничения потребителя. Равновесие потребителя. Эффект замещения и дохода
  11. В.Парето о предпосылках и факторах макроэкономического равновесия
  12. Важнейшее философское произведение Иммануила Канта«Критика практического разума»

 

В разделе определения констант задается размерность массива N = 10. В разделе описания переменных описывается массив целых чисел, переменные SUM и PRO, параметр цикла I.

Ввод элементов осуществляется в простом цикле с оператором WRITELN (‘введите через пробел 10 элементов массива’).

При подготовке цикла задается начальное значение суммы оператором SUM: = 0; начальное значение произведение — оператором PRO: = 1.

Для вычисления суммы и произведения элементов числовой последовательности организован еще один простой цикл с оператором FOR. Параметром этого цикла является переменная I, значение которой меняется от 1 до 5 с шагом 1. В теле цикла вычисляются сумма и произведение элементов, значения индексов которых соответственно

(1 2), [ 1 (2-1)].

Тело цикла, состоящее из двух операторов, заключено в операторные скобки BEGIN … END.

Для вывода результатов вычисления на экран дисплея используются операторы WRITELN, в списке данных которых записываются текстовые сообщения в апострофах и переменные с указанием ширины поля вывода.

Пример 5. Составить программу определения наибольшего элемента числовой последовательности a1, a2, …, a15. Вывести на печать найденный максимальный элемент.

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

Для нахождения максимального элемента воспользуемся простым перебором значений последовательности, сравнивая эти значения с возможным максимумом. Если какое-либо значение элемента окажется больше найденного максимума, то это значение берется в качестве нового значения максимума и далее продолжается перебор. При таком переборе значений используется циклический алгоритм со структурой выбора действия по условию.

В качестве параметра цикла берется номер элемента числовой последовательности. Начальное значение параметра цикла 2, конечное – равно числу элементов в массиве, шаг цикла принимается равным 1.

В качестве начального значения возможного максимума берём значение первого элемента последовательности.

В теле цикла проверяется условие: будет ли очередное значение элемента последовательности больше значения максимума. Окончание цикла имеет место после просмотра всех элементов массива.

Введём обозначение: А — числовая последовательность а1, а2, …, а15; N — размерность массива; переменная AMAX — наибольший элемент; переменная PN — порядковый номер наибольшего элемента; переменная I — параметр цикла.

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

 

PROGRAM PR3;

CONST N=15; {размерность массива А}

VAR

A: ARRAY [1..N] OF INTEGER; {описание массива А}

AMAX: INTEGER; {обозначение максимального элемента}

PN: INTEGER; {параметр цикла}

I: INTEGER;

BEGIN

WRITELN (‘введите через пробел 15 чисел’);

FOR I:= 1 TO N DO

READLN (A[I]);

AMAX:= A[1]; PN:= 1; {подготовка цикла}

FOR I:=2 TO N DO {цикл}

IF A[I] > AMAX THEN

BEGIN

AMAX:= A[I];

PN:= I;

END;

{печать}

WRITELN; {пропуск строки}

WRITELN (‘максимальный элемент последовательности А’);

WRITELN (‘A (‘, PN:2, ‘) = ‘, AMAX:4);

END.

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

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)