Разработка алгоритма и написание программы

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ОРЛОВСКИЙ ГОСУДАРСТВЕННЫЙ  ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

                     Кафедра: «Прикладная математика и информатика»

                              Задание на курсовую работу

Работу  выполнил студент Мазаев Сергей

Шифр 125044 Группа 12-ТД Факультет ПБиТ                                Специальность    036401.65        «Таможенное дело»                                                                         

Задание Вариант 13.

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

2.Построить электронную таблицу Excel. По 4-5 адресам находится не менее 15 фирм-арендаторов. Постройте для фирм таблицу, отражающую расчёты за услуги. Вывести на печать с использованием фильтра фирмы, расположенные по одному адресу и имеющие долг на конец месяца. Используя имеющиеся или специально созданные таблицы, построить линейную диаграмму, отражающую фирмы, которые имеют переплату и сумму переплаты на конец месяца.

3.Вычислить значение функций и начертить их графики в Excel в одной системе координат:

 с шагом 0,1 и

4. Создать двухтабличную БД и обработать данные в ней посредством выборки и сортировки; создать запросы и отчеты. Сотрудники- Дети сотрудников. Критерий для запроса-выборки: с логическим ИЛИ, связывающим два значения одного числового поля. Сортировка данных по возрастанию в числовом поле. Составление отчетов: тип группировки: по полю. Виды итогов: среднее.

5. Разработать три-четыре Web-страницы, посвящённые общей тематике. Оптовый склад "Всё для вас"

 

Руководитель____________                                            Дёмина Е.Г.

                                   ^{подпись                                                                                                             Ф.И.О.}

Задание принял к исполнению  «____»     ______________________2013 г.

 

Подпись студента_______________

 

 

Текст программы

 

program B;

var

a:array[1..10,1..10] of integer;

m,n,d,i,k,j:integer;

begin

writeln('kak vi bydete vvodit matritscy 1-vrychnyiy 0-randomnaia');

read(d);

writeln('vvedite kol-vo stolbtscov');

read(n);

writeln('vvedite kol-vo strok');

read(m);

if d=1 then    //ввод матрицы вручную

begin

writeln('vvedite matritscy');

for i:=1 to n do

begin

for j:=1 to m do

read(a[i,j]);

writeln;

end;

end;

if d=0 then     //генерация матрицы

begin

randomize;

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=random(50)-25;

write(a[i,j]:3,' ');

end;

writeln;

end;

end;

k:=0;

for i:=1 to n do

begin

for j:=1 to m do

begin

if a[i,j]<0 then       //поиск отрицательных елементов

begin

 k:=k+1;            //подсчитыванаие отрицательных елеметнов

 a[i,j]:=0;          //присваивание отрицательным елементрам значениея 0

 end;

 end;

 writeln('kol-vo otritsatelnih elementov v stroke ',i,'=',k);     //вывод количества орицательных елементов в кажной строке

 k:=0;

 end;

 writeln('poluchivshaiasia matsca');

for i:=1 to n do         // вывод получившийся матрицы

begin

for j:=1 to m do

write(a[i,j]:3,' ');

writeln;

end;

end.