Информатика

Информатика

Дело№. 1

Разработать алгоритм и написать программу на языке Turbo Pascal

pascal excel таблицу

Задан массив (двумерный массив), А размером N*M, состоящая из элементов. Числа M и N вводятся с клавиатуры. Для того, чтобы указать источник датчик предусматриваться два варианта: ввод с клавиатуры и ввод с помощью датчика случайных чисел. В случае, если необходимо ввести квадратную матрицу. Во всех вариантах отобразить исходный массив, в том смысле, что необходимые и результаты программы.

для того, чтобы Получить новую матрицу путем вычитания всех элементов этого массива из них, наименьший по модулю элемент. Для того, чтобы вывести на экран максимумы в каждой строке, и получил массив.

Блок-схема

Пример работы:

Программа

ММ1;,i,n,m,plus:Integer;,max:real;:array[1..50,1..50] of integer;:array[1..50,1..50] of real;;Случайно;('Wwedite n: ');Readln(n);('Wwedite m: ');Readln(m);('Wwedite 1(sluchaino) ili 2(vruchnuj): ');Readln(variant);(vi=1) theni:=1 to n мю:=1 to m do a[i,j]:=10-random(20) 1;i:=1 to n мю:=1 to m do('A[',i,',',j,']=');(A[i,j]);;;('Vvedennaj Matriza:');i:=1 to n мю:=1 to m do(A[i,j],' ');;;:=A[1,1];i:=1 to n мю:=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 фирм-арендаторов. Сборки для фирм, таблицы, отражающие расчеты за услуги.

qСтолбцов с этикетки идентификации, Фирма-арендатор, Адрес, площадь, Занимаемая заполняется произвольно

qВ начале услуги фирма имеет долг или переплату, то есть произвольно дополнить ячейку или столбец задолженность или в графе переплата.

qГрафик оплаты заполняется в произвольной форме, а фирма может платить только часть услуг или все услуги в неполном объеме.

Расчет клеток