Одна из функций CRT

@Gitarist · Регистрация: 12.11.2009

Author24 — интернет-сервис помощи студентам

Есть задача:
Сделать процедуру, которая удаляет из даной символьной строчки все цифры. В динамеческую память внести последовательность введенных с клавиатуры предложений (конец ввода - пустая строчка) Используя сделаную процедуру удалить все цифры из введенных предложений.

Я думаю что для проверки символов лучше всего использовать "set of '0'..'9' ".
Но как добится того, чтоб ввод не заканчивался при каждом нажатии ENTER я не знаю.
Наверное так:

Pascal

Uses Crt;
Var key:char;
 Begin
 key:=Readkey;
 Until key<>#10#13#10#13 do begin Read(...)
  ...

Но я не знаю правильно ли ето. Помогите пожалуста.

@vad2211 · 23.01.2010, 18:23

посимвольный ввод строки (ввод прекращается если нажали enter или esc). После посимвольного ввода уже надо сделать так, чтобы из строки удалялись все цифры (в вашем случае это через процедуру надо сделать).

Pascal

uses crt;
var
s:string;
ch:char;
begin
 clrscr;
 s:='';
 repeat
  ch:=readkey;
  if (ch<>#13) and (ch<>#27) then
   begin
    s:=s+ch;
    write(ch);
   end;
 until (ch=#13) or (ch=#27); {27 - вроде это код esc}

	23.01.2010, 18:23