Как на паскале написать на одной строке две разных строковых переменных

[Hadson]

Как на паскале написать на одной строке две разных строковых переменных

[digitalis]

Вопрос из серии "Как почесать левое ухо правой ногой?" или "Как налить в кружку одновременно кофе и огуречный рассол?" Без обид, но прежде чем задавать вопрос в форум следует включить голову, насколько это возможно, и этот вопрос внятно сформулировать. Что значит на "паскале написать на одной строке" ? В одной строке исходника программы? Да без проблем.

 str1 := "Иди ты " ; str2 := "лесом" ;

Видимо, имеется в виду что-то другое (услуги телепата сегодня бесплатны): во время исполнения программы в одной строковой переменной хранить две строки. Рвущийся из подсознания вопрос : "А на хрена ?!" пока опустим. Если надо, то тоже без вопросов: применяем какой-нибудь разделитель, который гарантировано не встречается ни в одной строке:

 str1 := "Иди ты / лесом" ;

, а потом героически раздираем парсингом эту строку на две, бормоча вышезаданный вопрос и еще много непечатных выражений.
Он специально на форуме зарегился, чтоб над нами издеваться ?

[Hadson]

Действительно, вопрос я задал некорректный. Мне нужно ввести "read()" две строковых переменных на одной строке,

read(str1);
read(str2);

дело в том, что при вводе(например: Вася Петя) он читает два слова, и считает её за одну переменную - srt1. Так вот, как мне сделать, чтоб он принял эти два слова (Вася Петя) за две переменных(str1 и str2), и все на одной строке?

[Аватар]

Ну коль Read не различает пробел для строковых данных, значит с помощью его ни как, а только после чтения сам пробел ищи и разделяй два слова

[digitalis]

  i := Pos ('/',str1) ;
  j := Length( str1 ) ;
  str2 := Copy (str1,i+1,j-i) ;
  str1 := Copy (str1,1,i-1) ;

Ввводим :
12 3/4 5 6
Имеем:
12 3 (это str1)
4 5 6 (это str2)


И все пробелы на месте

[ViktorR]

Есть еще один вариант, но при вводе с клавиатуры он может использоваться только теми, кто ... .
Строки можно вводить и из файла.
Опишем строковые переменные с заданным форматом, например,

var str1 : string[11];
     str2 : string[5];

Исходные данные поместим в текстовый файл с соответствующим форматированием.
Тогда данные можно прочитать через readln(), см. пример во вложении.
Прикрепленный текстовый файл в кодировке cp866 (DOS), так как использована кириллица (в кодировке windows 1251, так же во вложении).
Т.о. если файл исходных данных подготовлен в определенном формате, например, в другой программе, то содержимое строки можно читать без дополнительного разбора.
PS: Если в строке идут числа и потом строка, то проблем не будет. Если вначале строка, а потом числа, то можно использовать форматный ввод для строки.

Как-то так, ...