Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ Case Of и Readkey

Автор: DZZRtt 8.12.2006 17:26

Вот часть кода, все работает (спасибо МИСС ГРАФИТИ за подсказку).
но каждый раз при выводе результата на экран, вместе с матрицей
выводится и это

writeln ('чтобы выполнить деийствие нажмите соотв клавишу)
writeln ('1- найти максимальный элемент');
writeln ('2- найти минимальный элемент');
writeln ('нажмите ESC для выхода');
Подскажите как сделать так, чтобы текст выводился только один раз
не используя процедуру. Пробовал ставить clrscr в разных частях кода,
но добился лишь того, что исчезает все вместе с матрицей.

write (matrix[i,j]);
end;
begin
repeat

writeln ('чтобы выполнить деийствие нажмите соотв клавишу)
writeln ('1- найти максимальный элемент');
writeln ('2- найти минимальный элемент');
writeln ('нажмите ESC для выхода');

k:=readkey;
case k of

'1': writeln ( максимальный элемент',max);
'2': writeln (минимальный элемент'. min);
end;
until k=#27;
end;
end.

Автор: Lapp 8.12.2006 17:43

Например, можно так:

flag:=true;
repeat
...........
if flag then begin
writeln ('чтобы выполнить деийствие нажмите соотв клавишу')
writeln ('1- найти максимальный элемент');
writeln ('2- найти минимальный элемент');
writeln ('нажмите ESC для выхода');
end;
flag:=false;
k:=readkey;
case k of
'1': writeln ('максимальный элемент',max);
'2': writeln ('минимальный элемент',min);
end;
until k=#27;