Моделирование технических систем. Дьячков Ю.А - 164 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

164
Write('Введите число признаков объектов (не более 30):m= ');
ReadLn(m);
GotoXY(2,3);
WriteLn(' ');
GotoXY(42,3);
WriteLn('Число признаков объектов m=',m);
end;
Procedure izob_mat;
{Изображение матрицы параметров объектов}
begin
for i:=1 to n do begin
for j:=1 to m do begin
GoToXY(2+j*2,3+i);
TextColor(4);
WriteLn('*');
end;end;
i:=0;
while i<n do
begin
i:=i+1;j:=1;
GotoXY(2,2);TextColor(7);
WriteLn('Образец N ',i);
while j<(m+1) do
begin
GotoXY(2,3);TextColor(7);
Write('Признак N ',j,': ');
GoToXY(2+j*2,3+i);
TextColor(14);WriteLn('*');
GotoXY(15,3);
ReadLn(x[i,j]);
GoToXY(2+j*2,3+i);TextColor(10);
WriteLn('*');GotoXY(2,3);
WriteLn(' ');
j:=j+1;
end;
end;
end;
Procedure razn; 
Write('Введите число признаков объектов (не более 30):m= ');
ReadLn(m);
GotoXY(2,3);
WriteLn(' ');
GotoXY(42,3);
WriteLn('Число признаков объектов m=',m);
end;

Procedure izob_mat;
{Изображение матрицы параметров объектов}
begin
for i:=1 to n do begin
 for j:=1 to m do begin
 GoToXY(2+j*2,3+i);
 TextColor(4);
 WriteLn('*');
end;end;
i:=0;
while i

Страницы