Borland Pascal

DangerousV

New member
20.12.2013
2
0
#1
Здравствуйте. Повторюсь, не работает головная программа. Модули компилируются.

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

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

Вложения

Senset

Well-known member
11.09.2006
136
0
#2
Здравствуйте. Повторюсь, не работает головная программа. Модули компилируются.

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

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

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

DangerousV

New member
20.12.2013
2
0
#3
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.