Borland Pascal

Тема в разделе "Pascal and Delphi", создана пользователем DangerousV, 20 дек 2013.

  1. DangerousV

    DangerousV New Member

    Регистрация:
    20 дек 2013
    Сообщения:
    2
    Симпатии:
    0
    Здравствуйте. Повторюсь, не работает головная программа. Модули компилируются.

    Добавлено: помогите пожалуйста.

    Добавлено: lab_11 головная программа
     

    Вложения:

    • vyvod.pas
      Размер файла:
      1,7 КБ
      Просмотров:
      2
    • vvod.pas
      Размер файла:
      778 байт
      Просмотров:
      2
    • typealg.pas
      Размер файла:
      1,5 КБ
      Просмотров:
      1
    • mytype.pas
      Размер файла:
      204 байт
      Просмотров:
      2
    • lab11.pas
      Размер файла:
      1,6 КБ
      Просмотров:
      2
  2. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    Вы повторяетесь, а зачем? Я вот увидел какие-то файлы... не работает головная программа. Круто! А че делать-то надо по ТЗ?

    И, извиняюсь, Я выскажу только своё мнение, скачивать несколько файлов = не есть гуд.
    Напишите их код здесь сразу, его можно спокойно посмотреть на планшете\телефоне пока в дороге делать нечего.
     
  3. DangerousV

    DangerousV New Member

    Регистрация:
    20 дек 2013
    Сообщения:
    2
    Симпатии:
    0
    Unit Vvod;
    Interface
    Uses MyType;
    Procedure VvodMatrR(na,ma:Byte;Pa,Qa:Real;Var Aa:TMas2R);
    Procedure VvodMatrI(na,ma:Byte;Pa,Qa:ShortInt;Var Aa:TMas2I);
    Procedure VvodVekR(na:Byte;Pa,Qa:Real;Var Aa:TMas1R);
    Procedure VvodVekI(ma:Byte;Pa,Qa:ShortInt;Var Aa:TMas1I);
    Implementation
    Procedure VvodMatrR;
    Var
    i,j:Byte;
    Begin
    For i:=1 to na do
    For j:=1 to ma do
    Aa[i,j]:=(Qa-Pa)*Random+Pa;
    End;
    Procedure VvodMatrI;
    Var
    i,j:Byte;
    Begin
    For i:=1 to na do
    For j:=1 to ma do
    Aa[i,j]:=Random(Qa-Pa)+Pa;
    End;
    Procedure VvodVekR;
    Var
    i:Byte;
    Begin
    For i:=1 to na do
    Aa:=(Qa-Pa)*Random+Pa;
    End;
    Procedure VvodVekI;
    Var
    i:Byte;
    Begin
    For i:=1 to ma do
    Aa:=Random(Qa-Pa)+Pa;
    End;
    End.
     
Загрузка...

Поделиться этой страницей