 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
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 – это вывод по формату, где:
Общее число отводимых знаков под число, а
Число знаков под дробную часть
Если вывод сделан без формата, то вещественное число
выводится в форме с плавающей точкой, т.е. когда точка
Дата публикования: 2014-12-10; Прочитано: 256 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
