l: integer;: = 0; sg: = 0;: = 1; i: = 1 to n dob [i]> 0 then: = k +1;: = p * b [i];;; k = 0 then p: = 0;: = exp (ln (p) * k);;
{};
writeln ('Введіть розміри масивів T і L'); (n1, n2); ('Введіть інтервал');
read (x1, x2); ('Масив T'); (n1, x1, x2, mg);; ('Масив L'); (n2, x1, x2, mk);
writeln; (mg, n1, k, p);
writeln ('Масив T:'); ('середньогеометричні значення позитивних елементів у масиві', sg);
writeln; (mk, n2, k, p);
writeln ('Масив L:'); ('середньогеометричні значення позитивних елементів у масиві', sg);.
Результати роботи програми
В
Контрольне завдання № 11
Скласти програму з 4 модулів.
Модуль 1 . Сформувати одновимірний масив А ( 35), значення елементів якого розташовуються довільним чином в діапазоні від -32 до 45. Сформувати з масиву А новий масив В, елементи якого більше, ніж значення максимального від'ємного елемента масиву А. Записати масиви А і В у файли паралельного доступу з іменами М1.txt і М2.txt відповідно.
Модуль 2. Вивести дані з файлів М1.txt і М2.txt на екран і принтер в 5 стовпців із заголовками МАСИВ А і МАСИВ В. Масиви повинні бути виведені з індексами (індекси змінюються по рядку).
Модуль 3. Виконати сортування даних у файлі М1.txt за зростанням, а у файлі М2.txt за зменшенням. Для сортування використовувати підпрограму типу SUB. Сортувати не елемент масивів, а записи у файлах.
Модуль 4. Вивести дані з файлів М1.txt і М2.txt на екран і принтер в 3 рядка з заголовками відсортований масив А і відсортованих МАСИВ В. Масиви повинні бути виведені з індексами (індекс змінюється за стовпцем)
Рішення
Структурна блок-схема
В
В
Лістинг програми
{Головний програма} modul; CRT, Mod1, Mod2, Mod3, Mod4;, b: mas; _b, n: integer;; form_a (a); _b (a, b, n_b); ; (1,35);; (2, n_b);; _v (1,35); _u (2, n_b); (1,35);; (2, n_b);. Mod1; = array [1. .35] of real;, fb: file of real;: real; form_a (var a: mas); form_b (a: mas; var b: mas; var n: integer);
{Формування масиву А і запис його в файл М1.txt}
Procedure form_a (var a: mas); i, k: integer; (fa, 'M1.txt'); (fa);: = 100; i: = 1 to 35 do [i ]: = -32 + (45 +32) * random; (fa, a [i]); a [i]
