VPF::Ввод слов - Форум программистов

Snik

Дата 7.2.2007, 11:07 (ссылка)

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

Загрузка ...

Бывалый

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

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

Привет всем!
хочу ввести поочередно слова а цикл ввода выполняет сразу
две итерации и у меня получается
Слово № 1
Слово № 2
что не так не пойму?

Код


uses crt;

Var
  wds:array[0..30] of string[5];
  i,num:byte;
  wd:string[5];

begin

  clrscr;
  writeln(' 1 до 5');
  writeln('Введите количество слов ');

  read(num);

  for i:=1 to num do
  begin
    writeln('Слово № ',i,' ');
    readln(wd);
    wds[i]:=wd;
  end;

  writeln;
  readkey
end.

Rodman

Дата 7.2.2007, 11:10 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

Цитата(Snik @ 7.2.2007, 10:07

)

а цикл ввода выполняет сразу

т о есть??? не запрашивается кол-во слов???

Код


uses crt;
Var wds:array[0..30] of string[5];
    i,num:byte;
    wd:string[5];
begin
clrscr;
writeln(' 1 до 5');
writeln('Введите количество слов ');
readln(num);
for i:=1 to num do
begin
 writeln('Слово № ',i,' ');
 readln(wd);
 wds[i]:=wd;
end;
writeln;
readkey
end.

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

CRM с функцией АвтоОбзвона

Лотереи мира

Snik

Дата 7.2.2007, 11:27 (ссылка)

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

Загрузка ...

Бывалый

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

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

сразу выполняется 2 итерации а потом можно вводить слова

Добавлено @ 11:30
о а твой код работает правильно!
Так в чем же разница?

Rodman

Дата 7.2.2007, 11:44 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

я вот немного поменял

Код


readln(num);

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

CRM с функцией АвтоОбзвона

Лотереи мира

volvo877

Дата 7.2.2007, 12:01 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(Snik @ 7.2.2007, 10:27

)

Так в чем же разница?

В том, что ты после ввода числа жмешь Enter... Так вот ReadLn этот символ возврата каретки читает, а Read - оставляет в буфере... А когда ты после этого начинаешь читать строки, то из буфера читается что? Правильно, все символы до возврата каретки (включая и его), в результате у тебя в Wd будет пустая строка...

Snik

Дата 7.2.2007, 12:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо! все понял

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