Использованная литература.
Власов В.К., Королёв Л.Н., Сотников А.Н. Элементы информатики. М., 1999.-320 с.
Кирьянов Д.В. Самоучитель MathCad 2001. – СПб.: БХВ-Петербург, 2001. – 544 с.: ил.
Ларионова В.Н. Информатика и вычислительная техника. М.,1998.-287 с.
Леонтьев В.П. Новейшая энциклопедия персонального компьютера 2003. – М.: ОЛМА-ПРЕСС, 2003. – 920 с.: ил.
Фаронов В. В. Turbo Pascal, М.: ”Нолидж”, 2001. – 420 с.
Фаронов В. В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. Издание 7-е, переработанное. – М.: Издательство ООО ОМД «Групп», 2002. – 576 с., ил.
Фигурнов В.Э. IBM PC для пользователя. Изд. 6-е, перераб. и доп. – М. ИНФРА – М, 1996. – 432 с.: ил.
Приложение№ 1
Var
A:array [1..10,1..10] of integer;
i,j,k,n:integer;
q:boolean;
Begin
For i:=1 to 5 do
For j:=1 to 5 do
Begin
writeln('Press enter A[',i,',',j,']');
readln(A[i,j]);
end;
writeln;
For i:=1 to 5 do
Begin
For j:=1 to 5 do
write(A[i,j]);
writeln;
end;
k:=0;
For j:=1 to 5 do
For i:=2 to 5 do
Begin
q:=true;
For n:=1 to i-1 do
If A[i,j] <= A[n,j] then
Begin
q:=false;
break;
end;
If q=true then
k:=k+1;
end;
writeln('Kol-vo elementov=',k);
readln;
end.
Приложение№ 2
рисунок № 2.1.1 Лист презентации
рисунок№ 2.2.1 Лист меню
рисунок№ 2.3.1 Решение нелинейного уравнения
рисунок№ 2.4.1 Решение системы линейных уравнений
рисунок№ 2.5.1 Решение линейных уравнений(MathCAD)
рисунок№ 2.6.1 Решение задачи оптимизации
рисунок №2.7.1 Решение экономической задачи
Приложение№ 3
рисунок№ 2.2.2 Макросы книги Exel