• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Borland Pascal

  • Автор темы DangerousV
  • Дата начала
D

DangerousV

Здравствуйте. Повторюсь, не работает головная программа. Модули компилируются.

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

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

Вложения

  • vyvod.pas
    1,7 КБ · Просмотры: 540
  • vvod.pas
    778 байт · Просмотры: 515
  • typealg.pas
    1,5 КБ · Просмотры: 382
  • mytype.pas
    204 байт · Просмотры: 485
  • lab11.pas
    1,6 КБ · Просмотры: 350
S

Senset

Здравствуйте. Повторюсь, не работает головная программа. Модули компилируются.

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

Добавлено: lab_11 головная программа
Вы повторяетесь, а зачем? Я вот увидел какие-то файлы... не работает головная программа. Круто! А че делать-то надо по ТЗ?

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

DangerousV

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.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!