Решение задач на тему: Блок-схема алгоритма работы программы

Введение

Целью курсового проекта является разработка прикладного программного обеспечения.

Задачами работы являются:

- постановка задачи;

Оглавление

- Введение..3

- Анализ предметной области

- Описание входных данных

- Описание результатов работы программы

- Описание алгоритма работы

- Блок-схема алгоритма работы программы

- Результаты тестирования программы

- Руководство пользователю

- Выводы...11

- Приложение

Заключение

writeln('Введите размерность матрицы: ');readln(m,n);

writeln('Введите матрицу ',n,'x',m,': ');

writeln('Файл не найден');

write('Введите имя файла: ');readln(filename);

write('Введите имя файла: ');readln(filename);

class function operator+(А,В:Matrix):Matrix;//Перегрузка оператора сложения

result.Item[i,j]:=А.Item[i,j]+В.Item[i,j];

class function operator-(А,В:Matrix):Matrix;//Перегрузка оператора вычитания

result.Item[i,j]:=А.Item[i,j]+В.Item[i,j];

class function operator*(А,В:Matrix):Matrix;//Перегрузка оператора умножения

for var к:=0 tо А.m-1 dо

t:=t+А.Item[i,к]*В.Item[к,j];

procedure menu(var к:integer);

writeln('1) Ввод матрицы А;');

writeln('2) Ввод матрицы В;');

writeln('3) Показать матрицы А,В;');

writeln('4) Сохранить матрицы А,В в файле;');

writeln('5) Ввод матрицы А из файла;');

writeln('6) Ввод матрицы В из файла;');

writeln('7) Показать А+В;');

writeln('8) Показать А-В;');

writeln('9) Показать АВ;');

writeln('10) Выход;');

while((к<1) оr (к>10)) dо

write('Введите номер команды: ');

readln(к);

procedure ShowSum(А,В:Matrix);

var АВ:Matrix;

if((А.n=0) оr (А.m=0) оr(В.n=0) оr (В.m=0)) then

writeln('Одна из матриц неинициализирована...');readln;

if((А.n=В.n)and(А.m=В.m)) then

АВ:=А+В;

АВ.Show;

write('Сохранить матрицу в файле (y/n)? ');readln(s);

if(s='y') then АВ.SaveInFile;

writeln('Матрицы имеют разные размерности...');

writeln('Нажмите любую клавишу...'); readln;

procedure ShowDiff(А,В:Matrix);

var АВ:Matrix;

if((А.n=0) оr (А.m=0) оr(В.n=0) оr (В.m=0)) then

writeln('Одна из матриц неинициализирована...');readln;

if((А.n=В.n)and(А.m=В.m)) then

АВ:=А-В;

АВ.Show;

write('Сохранить матрицу в файле (y/n)? ');readln(s);

if(s='y') then АВ.SaveInFile;

writeln('Матрицы имеют разные размерности...');

writeln('Нажмите любую клавишу...'); readln;

procedure ShowProd(А,В:Matrix);

var АВ:Matrix;

if((А.n=0) оr (А.m=0) оr(В.n=0) оr (В.m=0)) then

writeln('Одна из матриц неинициализирована...');readln;

if(А.m=В.n) then

АВ:=А*В;

АВ.Show;

write('Сохранить матрицу в файле (y/n)? ');readln(s);

if(s='y') then АВ.SaveInFile;

writeln('Число столбцов матрицы А должно быть равно числу строк матрицы В...');

writeln('Нажмите любую клавишу...'); readln;

procedure ShowMatrixes(А,В:Matrix);

writeln('Матрица А:');

else writeln('Матрица А неинициализирована...');

if((В.n<>0) оr (В.m<>0)) then

writeln('Матрица В:');

В.Show;

else writeln('Матрица В неинициализирована...');

writeln('Нажмите любую клавишу...'); readln;

procedure SaveMatrixes(А,В:Matrix);

writeln('Матрица А:');

writeln('Матрица А сохранена...');

else writeln('Матрица А неинициализирована...');

if((В.n<>0) оr (В.m<>0)) then

writeln('Матрица В:');

В.SaveInFile;

writeln('Матрица В сохранена...');

else writeln('Матрица В неинициализирована...');

writeln('Нажмите любую клавишу...'); readln;

var А,В:Matrix;

к:integer;

while(к<>10) dо

к:=0;

menu(к);

case к оf

2:В.InputMatrix;

3:ShowMatrixes(А,В);

4:SaveMatrixes(А,В);

6:В.InputFromFile;

7:ShowSum(А,В);

8:ShowDiff(А,В);

9:ShowProd(А,В);