Головна |
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 - це висновок за форматом, де:
Загальна кількість відводяться знаків під число, а
Число знаків під дробову частину
Якщо висновок зроблено без формату, то дійсне число
виводиться в формі з плаваючою крапкою, Тобто коли точка
Додаток 3Решеніе прикладу завдання №2 на мові Turbo Pascal | Створення експертної системи.
Загальні положення З ВИКОНАННЯ ЗАВДАНЬ | Перший лист кожного завдання повинен починатися з назви завдання, | Мови програмування | Мови програмування | СКЛАДАННЯ СХЕМИ АЛГОРИТМУ, програмування І РІШЕННЯ ЗАВДАННЯ | Додаток 1 Титульний аркуш контрольної роботи |