В
Завдання № 1
Розробити алгоритм і написати програму мовою Turbo Pascal
pascal excel електронна таблиця
Задана матриця (двомірний масив) А розміром N * M, що складається з дійсних елементів. Числа M і N вводяться з клавіатури. Для завдання вихідної матриці передбачити два варіанти: введення з клавіатури і введення за допомогою датчика випадкових чисел. Де це необхідно ввести квадратну матрицю. У всіх варіантах вивести початкову матрицю в загальноприйнятому вигляді і необхідні результати роботи програми. p align="justify"> Отримати нову матрицю шляхом вирахування всіх елементів даної матриці з її найменшого за модулем елемента. Вивести на екран максимуми кожного рядка і отриману матрицю. br/>
Блок-схема
В В
Приклад роботи:
В
Програма
MM1;, i, n, m, variant: Integer;, max: real;: array [1 .. 50,1 .. 50] of integer;: array [1 .. 50, 1 .. 50] of real;; Randomize; ('Wwedite n:'); Readln (n); ('Wwedite m:'); Readln (m); ('Wwedite 1 (sluchaino) ili 2 (vruchnuj): '); Readln (variant); (variant = 1) theni: = 1 to n doj: = 1 to m do [i, j]: = 10-random (20) +1; i: = 1 to n doj: = 1 to m do ('A [', i, ',', j, '] ='); (A [i, j]);;; ('Vvedennaj Matriza:'); i: = 1 to n doj: = 1 to m do (A [i, j], '');;;: = A [1,1]; i: = 1 to n doj: = 1 to m do (ABS (A [i, j]) max) then max: = B [i, j]; ('Max', i, '-i stroki:', max: 2 : 2);;
Readln;
end.
Завдання № 2
Побудова електронних таблиць
За 4-5 адресами знаходиться не менше 15 фірм-орендарів. Побудуйте для фірм таблицю, яка відображатиме розрахунки за послуги. p align="justify"> q Стовпці із заголовками №, Фірма-орендар, Адреса, Займана площа заповнюються довільно
q На початок місяця фірма по послугах має борг або переплату, тобто довільно заповнюється осередок або в стовпці Заборгованість або у стовпці Переплата.
q Графа Оплачено заповнюється довільно, причому фірма може сплатити тільки деякі з послуг або всі послуги в неповному обсязі.
Розрахунок осередків
q У графі Нарахування: оренда, комун. послуги, тех. обслуговування розраховуються як добуток площі оренди на відповідний коефіцієнт. Коефіцієнт береться з таблиці коефіцієнтів, яка заповнюється са...
