Лабораторная работа №1. Программирование векторных и матричных операций, страница 4

Юнит U_Vvod– содержит процедуры ввода для процедур, описанных выше.

Вывод результатов происходит в процедуре.

Блок-схема

 

                    a                                                                                                                                      d               

                                                                                b                  c                                         

                                            e                                      f                                               g

                                                        Рис1.  Блок-схема к основной программе

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

Program Vect_Mattr_Operations;

uses crt,U_mult_vect_Sk, U_Matr_Sk, U_Mult_Matr_Vec, U_VVOD, U_ScolPrVect,

     U_Sum_Matr, U_Sum_vekt, U_mt_mt;

var Nomer: Char;

    i: Byte;

begin

    clrscr;

    Writeln('                       Vect_Mattr_Operations');

    Writeln;

    Writeln('        Menu:');

    Writeln('  a) ymnozenie vektora i skalyara;');

    Writeln('  b) symma 2 vectorov;');

    Writeln('  c) skalyarnoe ymnozenie vektorov;');

    Writeln('  d) ymnozenie matrici i skalyra;');

    Writeln('  e) ymnozenie matrici i vektora;');

    Writeln('  f) symma 2 matric;');

    Writeln('  g) ymnozenie 2 matric.;');

    Writeln;

    Writeln(' Vv. pynkt menu:');

    Readln(Nomer);

    case Nomer of

    'a': begin

          VVODa(sk,n,a);

          Mylt_Vect_Sk(sk,n,a,a1);

    end;

    'b': begin

         VVODb(n,a,b);

         Sum_Vekt(n,a,b,a1);

    end;

    'c': begin