Вывод данных из строки в файл

@vasy7991 · Регистрация: 15.10.2014

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

Как вывести из строки только второй символ?

входные данные
N 3
E 2
W 4
S 5

выходные данные
3
2
4
5

помогите найти ошибку в моей программе

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
f,s:text;
str:string[2];
c:integer;
begin
assign (f, 'c:\123\in.txt');
reset (f);
assign (s, 'c:\123\out.txt');
rewrite (s);
while not eof (f) do
begin
read (f, str);
c:str[2];
write (s, c);
end;
close (f);
close (s);
end.

@ZX Spectrum-128 · 26.10.2014, 09:35

Pascal
1
2
3
4
5
6
while not eof (f) do
begin
 readln (f, str);
 c:=str[3]; // 3-й, потому что 2-й - это пробел
writeln (s, c);
end;

@vasy7991 · 26.10.2014, 09:38 **[ТС]**

пробовал не помогает

@ZX Spectrum-128 · 26.10.2014, 09:44

не увидел, что c - integer

Pascal
1
2
3
4
5
6
while not eof (f) do
begin
 readln (f, str);
 c:=strtoint(str[3]); // 3-й, потому что 2-й - это пробел
writeln (s, c);
end;

Добавлено через 5 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
  sysutils;
var
  f,s:text;
  str:string[3];
  c:integer;
begin
  assign (f, 'in.txt');
  reset (f);
  assign (s, 'out.txt');
  rewrite (s);
  while not eof (f) do
    begin
      readln (f, str);
      c:=strtoint(str[3]);
      writeln (s, c);
    end;
  close (f);
  close (s);
end.

@vasy7991 · 26.10.2014, 09:44 **[ТС]**

тоже не помогает
ошибка здесь c:=strtoint(str[3]); error: identifier not found "strtoint"

@ZX Spectrum-128 · 26.10.2014, 09:45

Я подправил, см. предыдущий пост.

@vasy7991 · 26.10.2014, 09:54 **[ТС]**

lazarus пишет ошибка на строке 9 reset (f);

Добавлено через 1 минуту
я вначале думал написать полный путь к файлу, так как вы написали только

Pascal
1
assign (f, 'in.txt');

но это тоже не помогло, так как после этого выходит другая ошибка

@ZX Spectrum-128 · 26.10.2014, 09:59

У меня файл лежал в той же папке, что и программа.
Положи файл в ту же папку, что и программа и давай скриншот другой ошибки.
Так же замени assign на assignfile, close на closefile, на всякий случай.
А вообще, для Lazarus'а есть свой раздел.

@vasy7991 · 26.10.2014, 10:08 **[ТС]**

Извините за то что написал не в тот раздел (я не заметил раздел lazarus )

Сообщение от ZX Spectrum-128

Так же замени assign на assignfile, close на closefile, на всякий случай.

это тоже не помогло

Добавлено через 27 секунд
сейчас попробую написать туда

@ZX Spectrum-128 · 26.10.2014, 10:20

Я тебе проект приложил в разделе Lazarus, посмотри.

@bormant · 26.10.2014, 10:53

Pascal
1
2
3
4
while not EOF(f) do begin
 ReadLn(f, str);
 WriteLn(s, str[3]);
end;

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@vasy7991 3 / 3 / 2 Регистрация: 15.10.2014 Сообщений: 84
	26.10.2014, 09:38 [ТС]
	пробовал не помогает 0

@vasy7991 3 / 3 / 2 Регистрация: 15.10.2014 Сообщений: 84
	26.10.2014, 09:44 [ТС]
	тоже не помогает ошибка здесь c:=strtoint(str[3]); error: identifier not found "strtoint" 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	26.10.2014, 09:45
	Я подправил, см. предыдущий пост. 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	26.10.2014, 09:59
	У меня файл лежал в той же папке, что и программа. Положи файл в ту же папку, что и программа и давай скриншот другой ошибки. Так же замени assign на assignfile, close на closefile, на всякий случай. А вообще, для Lazarus'а есть свой раздел. 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	26.10.2014, 10:20
	Я тебе проект приложил в разделе Lazarus, посмотри. 1

Вывод данных из строки в файл

Решение