Игнор ввода переменной типа string

@Зума · Регистрация: 12.03.2010

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

Имею код:

Pascal

type team=record
name,town,tren:string;
pt,dif:byte;
end;
procedure creatio(name:string);
  var db:file of team; c:team; k:integer; n:char;
  begin  assign (db,name);
  {$I-}; rewrite(db); {$I+};
  IF IORESULT=0 then
  begin
  clrscr;
   k:=0;
   Writeln('Enter database name: ');Readln(nam);
   while n<>'n' do begin
     k:=k+1;
     writeln('Entry #',k);
     writeln('Team name: '); readln(c.name);
     writeln('Hometown: '); readln(c.town);
     writeln('Points gained: ');readln(c.pt);
     writeln('Goals difference: ');readln(c.dif);
     writeln('Trainer last name: ');readln(c.tren);
     write(db,c);
     writeln('Another entry? (y/n): ');
     repeat
      readln(n);
     until (n='n') or (n='y');
   end;
  end;
  close(db);
  end;

Ввод в строке writeln('Team name: '); readln(c.name); начисто игнорируется, т.е. на экран выводится

Код

Team name: 
Hometown:

и далее, начиная с town, ввод идёт уже нормально. Гуглил, нашёл совет написать readln. Написал его везде, где можно, не помогло. Есть ещё предложения?

Vovan-VE · 02.04.2010, 18:14

В 13й строке исправьте nam на name, и все отлично работает.

Добавлено через 50 секунд
И зачем эта строка вообще?

@Зума · 02.04.2010, 18:32 **[ТС]**

Дело не в этом. Nam - не переменная name, эта строка нужна, чтобы кастомизировать имя файла базы. Можно обойтись и без неё, но так красивше.
Кстати, эта строка тоже игнорится - имя не вводится.

Vovan-VE · 02.04.2010, 18:46

У меня все отлично работает, еще раз говорю

@Зума · 02.04.2010, 18:53 **[ТС]**

Странно. Отдельной программой и правда всё работает. В компании с другими процедурами - не хочет.

Новые блоги и статьи
Создание макробота, как способа экономии времени и варианта ИИ. Hrethgir 28.01.2025 Чисто теоретически, создание ИИ на ПК можно разделить на части. Создать бота отвечающего за железо (эмулирование вкл, выкл, мышь, клавиатура), другой бот осуществляет распознавание изображений,. . .	[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .

Vovan-VE 13210 / 6599 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
	02.04.2010, 18:14	2
	В 13й строке исправьте nam на name, и все отлично работает. Добавлено через 50 секунд И зачем эта строка вообще? 0

@Зума 3 / 3 / 1 Регистрация: 12.03.2010 Сообщений: 28
	02.04.2010, 18:32 [ТС]	3
	Дело не в этом. Nam - не переменная name, эта строка нужна, чтобы кастомизировать имя файла базы. Можно обойтись и без неё, но так красивше. Кстати, эта строка тоже игнорится - имя не вводится. 0

Vovan-VE 13210 / 6599 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
	02.04.2010, 18:46	4
	У меня все отлично работает, еще раз говорю 0

@Зума 3 / 3 / 1 Регистрация: 12.03.2010 Сообщений: 28
	02.04.2010, 18:53 [ТС]	5
	Странно. Отдельной программой и правда всё работает. В компании с другими процедурами - не хочет. 0