Автор: Пользователь скрыл имя, 15 Мая 2013 в 16:47, курсовая работа
Язык Паскаль, названный в честь французского математика и философа Блеза Паскаля (1623-1662), был создан как учебный язык программирования в 1968-71 годах швейцарским ученым Никлаусом Виртом на кафедре информатики Стэнфордского университета (Цюрих). В настоящее время это язык имеет более широкую сферу применения, чем предусматривалось при его создании.
Введение 4
1 Теоретическая часть 5
1.1 Математическая постановка задачи 5
1.2 Язык программирования 5
1.3 Описание данных 20
1.4 Алгоритм решения задачи 21
1.5 Структурные схемы 23
2 Экспериментальная часть 27
2.1 Применение программы 27
2.2 Описание данных 27
2.3 Описание структуры программы 27
2.4 Руководство программиста 29
2.5 Анализ ошибок при отладке программы 29
2.6 Инструкция для использования 29
2.7 Анализ результатов решения 32
Заключение 33
Список литературы 34
Приложение. Листинг программы
readln(s);
assign(t, s); rewrite(t);
writeln(t,m,' ',n);
for i:=1 to m do
begin
for j:=1 to n-1 do
write(t, a[i,j],' ');
writeln(t, a[i,n]);
end;
writeln(t,k);
close(t);
writeln('Данные записаны в файл.');
end;
4:begin {решение}
setfillstyle(1,0);
bar(7, 7, getmaxx-9, getmaxy-43);
window(2,2,80,25);
assign(t, 'v4'); rewrite(t);
Sumrow(a,m,n);
v1:=a[1];
v2:=a[2];
v3:=a[3];
v4:=a[4];
writeln(t,'Массив 1:');
SbDivSa(v1,n);
writeln(t,'Массив 2:');
SbDivSa(v2,n);
writeln(t,'Массив 3:');
SbDivSa(v3,n);
writeln(t,'Массив 4:');
SbDivSa(v4,n);
close(t);
reset(t);
i:=0;
while not eof(t) do
begin
i:=i+1;
readln(t, s);
writeln(s);
if (i=m+1) then
begin
writeln('для продолжения
repeat {} until keypressed;
c:=readkey;
setfillstyle(1,0);
bar(7, 7, getmaxx-9, getmaxy-43);
window(2,2,80,25);
end;
end;
close(t);
end;
end;
until menu=menupnt;
closegraph;
end.