Как раздельно считать строку паскаль? - есть ответ

Артур Галиуллин, 215 просмотров

Пример: входной файл input.txt - "5341 101245 121257". Надо считать каждое число в отдельную строку.
s1=5341
s2=101245
s3=121257
Также желательно считывать таким же образом слова - "кот ток рок"
s1='кот'
s2='ток'
s3='рок'

Ответы:

для последующего сравнения

Считываете какое-то количество байт.
Затем проходите циклом по считанному куску данных. Пока не встретился пробел - пишете в одну переменную. Как только очередной байт - это пробел, пропускаем итерацию и дальше используем другую переменную.
Тупой пример:
var s : array[0..15] of string;
var i, s_index : integer;
var full_text: string;
begin
full_text := `5341 101243 2347`;
s_index := 0;
for i := 0 to Length(full_text)-1 do
begin
if (full_text[i] <> ` `) s[s_index] := s[s_index] + full_text[i] else s_index := s_index + 1;
end;

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.