Лекция: ProgramM TURBO_PAS_41;

Var {оператор начала описания переменных и массива}

I, N: Integer; SS, S1, S2: real; {описания переменных}

A, B: array[1...20] of real;{описания массивов}

BEGIN{Начало программы}

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

Write(‘Введите значениеN ’); ReadLn(N, M);

{Ввод исходных массивов}

FOR I:= 1 TO N DO{оператор цикла}

Begin {Открывающая операторная скобка}

Write(‘Введите элемент A[‘,I,’]= и B[‘,I,’]’);

ReadLn(A[I], B[I]); {непосредственный ввод}

End; {Закрывающая операторная скобка}

{Решение задачи}

S1:= 0; S2 = 0; SS = 0;

FOR I := 1 TO N DO

Begin

S1 := S1 + A[I];{Вычисл. суммы первого вектора}

S2 := S2 + B[I];{Вычисл. суммы второго вектора}

End;

SS := S1/ N + S2/N; {Вычисление среднего значения}

{ Вывод исходных данных и вывод результатов }

WriteLn(‘Число элементов в массивахN=’, N );

WriteLn;{пустой оператор вывода, для пропуска строки}

WriteLn(‘Вывод массивов А и В по формату в 2 столбца);

FOR I := 1 TO N DO

Write( A[I]:8:2, B[I]:8:2,);{вывод по формату в 2 столбца}

WriteLn;{пустой оператор вывода, для перевода строки}

WriteLn(‘Вывод результата решения’);

WriteLn(’Sср = ‘,SS:6:2, ‘ S1 = ‘,S:8:2, ‘ S2 = ‘,S:8:2,);

END. {Конец программы END с точкой}

ПРИМЕЧАНИЕ

Пустой оператор WritenLn предназначен для перевода

Печати матрицы на новую строку.

2). S:8:2 – это вывод по формату, где:

Общее число отводимых знаков под число, а

Число знаков под дробную часть

Если вывод сделан без формата, то вещественное число

выводится в форме с плавающей точкой, т.е. когда точка