Пример решения задачи

Индивидуальное задание

Дан массив целых чисел A[I], где I = 1 .. М. ( М = 15 ). Вычислить сумму элементов с 1-го по 12-й и сумму элементов с 8-го по 15-й.

( S = A₁ + A₂ + . . . + A₁₂ ) и

( S = A₈ + A₉ + . . . + A₁₅ )

Найти произведение этих сумм. Вычисление суммы оформить как функцию SUMMA.

Описание работы

1. Выберите алгоритм решения задачи.

2. Выберите точность и форму представления данных.

3. Для ввода массива используйте диалоговый режим. Результат решения задачи выведите на экран дисплея . Операторы в подпрограммах используются только для контроля правильности обмена данными.

4. Выберите имена основных идентификаторов. Введите текст программы, придерживаясь структуры написания текста, приведенной в типовом примере.

5. Для этого необходимо войти в программу-оболочку TP7, как указано выше. Загрузить в редактор Турбо-Паскаль новый (NEW) файл. Для этого нажмите одновременно клавиши [ALT]+[F] , установите курсор на подменю «NEW» и нажмите клавишу [ENTER].

6. Сохраните набранный текст программы. Нажмите клавишу [F2]. На запрос системы укажите, где и с каким именем будет сохранена ваша программа. Например, C:\Lr6.PAS, если программа сохраняется на жесткий диск или A:\Lr6.PAS, если программа сохраняется на дискету.

7. После того, как программа набрана, откомпилируйте ее. Нажмите одновременно клавиши [ALT]+[F9]. Если в программе есть ошибки, то в левом верхнем углу появится сообщение об ошибке, а курсор укажет место ошибки. Если в программе ошибок нет, то появится сообщение об успешной компиляции.

8. После компиляции программу необходимо выполнить. Для этого нажмите одновременно клавиши [CTRL]+[F9]. Для просмотра результатов одновременно нажмите клавиши [ALT]+[F5].

9. Убедитесь в правильности решения задачи. Введите данные, для которых легко устно просчитать результат. Выполните программу и убедитесь в правильности полученного результата.

10. Выведите полученные результаты на печать.

Текст программы

Program Lr6 ;

Uses Crt ;

Const M = 15 ;

Var A : array [1..M] of integer ;

P : integer ;

J : integer ;

{ Функция SUMMA }

Function SUMMA( N, K : integer ) : integer ;

Var I, S : integer ;

Begin

S := 0 ;

For I := N to K do

S := S + A[I] ;

SUMMA := S ;

End;

{ Основная программа }

Begin

Clrscr ;

Writeln(‘ Введите значения массива «А»: ’) ;

For J :=1 to M do

Read ( A[J] ) ;

P := SUMMA( 1 , 12 ) * SUMMA ( 8 , 15 ) ;

Writeln ;

Writeln(‘ произведение = : ’, P : 6) ;

Repeat until keypressed

End.

Примеры решения задач

Пример 1:

Вычислить сумму и произведение элементов массивов A[K] (K = 1 . . 8) и B[J] (J = 1 . . 15). Вычисление оформить в виде процедуры. Ввод значений массивов также организовать в виде процедуры VVOD.

Program VP ;

Uses Crt;

Type MASSIV = array[1..20] of real ;

Var A, B : MASSIV ;

SUM, PR : real ;

{ Процедура VVOD }

Procedure VVOD( N : integer ; Var X : MASSIV) ;

Var I : integer ;

Begin

Writeln(‘ Введите значения массива : ’) ;

For I :=1 to N do

Read ( X[I] ) ;

End ;

{ Процедура SUMPR }

Procedure SUMPR( N : integer ; Var X : MASSIV ; Var SUM, PR : real) ;

Var I : integer ;

Begin

SUM := 0 ; PR := 1 ;

For I :=1 to N do

Begin

SUM := SUM + X[I] ;

PR := PR * X[I] ;

End ;

End ;

{ Основная программа }

Begin

Clrscr ;

VVOD (8, A) ;

SUMPR (8, A, SUM, PR) ;

Writeln(‘SUM= ’, SUM : 7 : 2, ‘ ’:3, ‘PR= ’, PR) ;

Writeln;

VVOD(15, B) ;

SUMPR (15, B, SUM, PR) ;

Writeln(‘SUM= ’, SUM : 7 : 2, ‘ ’:3, ‘PR= ’, PR) ;

Repeat until keypressed

End.