VPF::[PASCAL] Отображение вводимой матрицы

Glum

Дата 14.6.2009, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.6.2009

Репутация: нет
Всего: нет

Такая вопросец. Можно ли вводить элементы матрицы, и одновременно отображать содержимое этой матрицы где-нибудь в углу, допустим, на синем фоне? Что-то типа вводишь элемент через 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.

ИванМ

Дата 17.6.2009, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23

С помощью GotoXY переводишь курсор туда, где ввод данных. После ввода элемента переводишь курсор в угол экрана, рисуешь элемент матрицы. И так поочереди.
Чтобы на синем фоне - textbackground(1) или textbackground(9)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »