Неправильно считываются данные

@IlushaMax · Регистрация: 09.04.2016

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
readln(n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(input);
      mp[i,j].marked:=False;
      if input='T' then
      begin
        t1:=i;
        t2:=j;
        mp[i,j].wall:=False;
      end;
      if input='#' then mp[i,j].wall:=True;
      if input='.' then mp[i,j].wall:=False;
    end;
  end;

Вот входные данные:
8 10
##########
#.#...##.#
#.#..###.#
#.#.##...#
#.......##
#...###..#
#....T#..#
##########
Когда я их ввожу, то ввод заканчивается на предпоследней строке, то-есть когда заканчиваю писать строку с буквой Т, программа заканчивает считывание.
Подозреваю, что это как-то связано с символами конца строки и возврата каретки. Помогите пожалуйста исправить этот кусочек кода так, чтобы правильно считывало

@Puporev · 02.12.2016, 16:50

Сообщение от IlushaMax

Помогите пожалуйста исправить этот кусочек кода

Так хоть покажи как описан тип для mp. Какие у него поля и что значат.

@IlushaMax · 02.12.2016, 20:17 **[ТС]**

Pascal
1
2
3
4
5
6
7
type
properties=record
wall:boolean;
marked:boolean;
end;
var n,m,t1,t2,i,j:word; input:char;
mp:array[1..1000,1..1000] of properties;

массив определяет свойства клетки лабиринта,то-есть marked определяет был ли игрок в клетке, ну думаю wall и так понятно

@Puporev · 02.12.2016, 20:25

Pascal
1
2
if input='#' then mp[i,j].wall:=True;
 if input='.' then mp[i,j].wall:=False

;
А если input='T', то что пишем в mp[i,j].wall?

@IlushaMax · 02.12.2016, 20:28 **[ТС]**

mp[i,j].wall:=False; Через эту клетку можно проходить поэтому не считаю её стеной

@Puporev · 02.12.2016, 20:29

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for j:=1 to m do
mp[i,j].marked:=False;
for i:=1 to n do
for j:=1 to m do
 begin
  read(input);
  if input='#' then mp[i,j].wall:=True
  else if input='.' then mp[i,j].wall:=False
  else if input='T' then
   begin
    t1:=i;
    t2:=j;
    mp[i,j].wall:=False;
   end;
 end;

@IlushaMax · 02.12.2016, 20:40 **[ТС]**

У вас ошибка
Там должно быть

Pascal
1
2
for i:=1 to n do
for j:=1 to m do

, а не

Pascal
1
for j:=1 to m do

Но всё равно не работает.
Так что может быть, что он считывает символы перевода строки, и когда я хочу ввести последнюю строку, это уже не нужно?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@IlushaMax 0 / 0 / 4 Регистрация: 09.04.2016 Сообщений: 128
	02.12.2016, 20:28 [ТС]
	mp[i,j].wall:=False; Через эту клетку можно проходить поэтому не считаю её стеной 0