VPF::Не получается сделать ввод строки через Read();

Black

Дата 23.10.2006, 16:26 (ссылка)

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

Загрузка ...

Web-Development

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

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

Помогите разобраться почему не работает проверка вводенной с клавиатуры строки, т.е. я вывожу на экран

Цитата

Write('Запустить программу еще раз? Введите Y/N и нажмите Enter');

и теперь я принимаю ввод строки

Цитата

Read(stop);

Переменную stop объявил так:

Цитата

stop:string;

Но почему-то не работает. Такое ощущение,что ввод данных с клавиатуры не работает. Вот не могу понять почему?

Вот полный листинг программы:

Код


Var
 a,min:real;
 n,i:integer;
 stop:string;

BEGIN
 Writeln('============================');

 Repeat

 Write('Введите N -> ');
 Read(n);

 min:=0;

 For i:=n downto 1 do
  begin
   a:=(i-1)/(i+1)+sin((i-1)*3/(i+1));
   if a<=0 then continue
   else
    begin
     if a>min then min:=a;
    end;
  end;

 if min=0 then Writeln('Нет положительных чисел.')
 else Writeln('Наименьшее положительное число: ', min:0:3);

 Write('Запустить программу еще раз? Введите Y/N и нажмите Enter: ');
 Readln(stop);

 Until stop<>'y';

 Writeln('============================');
END.

Это сообщение отредактировал(а) Black - 23.10.2006, 17:11

--------------------

Могу все, но ничего не умею :-)

Grasshopper

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

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

Загрузка ...

Новичок

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

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

Попробуй использовать readln(stop); вместо read(stop); и readln(n); вместо read(n); косяк в #10#13 - они не считываются при исользовании read() и остаются в потоке ввода, и ты их вторым ридом и читаешь

Black

Дата 23.10.2006, 17:07 (ссылка)

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

Загрузка ...

Web-Development

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

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

Grasshopper, помогло. Спасибо.

--------------------

Могу все, но ничего не умею :-)

Alexeis

Дата 23.10.2006, 17:18 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Еще есть вариант использовать Readkey, тогда и ентер жать не надо.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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