Такая вопросец. Можно ли вводить элементы матрицы, и одновременно отображать содержимое этой матрицы где-нибудь в углу, допустим, на синем фоне? Что-то типа вводишь элемент через readln и он появляется на картинке. Может попробовать с помошью crt.
| Код |
var
f:text;
r:real;
s,filename:string;
code,i,j,m,n:integer;
errnom:boolean;
begin
write('Введите имя файла > ');
readln(filename);
assign(f,filename);
rewrite(f);
write('Введите М > ');
readln(m);
if (ioresult<>0) or (m<=0)
then writeln(' Ошибка!');
write('Введите N > ');
readln(n);
if (ioresult<>0) or (n<=0)
then writeln(' Ошибка!');
while (j<>n) and ((s<>'exit') or (s<>'EXIT')) do
begin
inc(j);
i:=0;
while (i<>m) and ((s<>'exit') or (s<>'EXIT')) do
begin
inc(i);
errnom:=true;
while errnom=true do
begin
write('Введите элемент [',I,',',J,'] > ');
readln(s);
val(s,r,code);
if (code<>0) and (s<>'exit')
then errnom:=true
else errnom:=false;
end;
if (s<>'exit') or (s<>'EXIT')
then writeln(f,s);
end;
end;
close(f);
end.
|
|