есть текстовый файл:


как эти цифры присвоить переменным a, b, c. что-то у меня не получается, напишите, пожалуйста, кому не лень только блок с read

var a, b, c: integer;
// ...
  read(f, a, b, c);

Я надеюсь, уроки из прошлой темы извлечены, и теперь признаки конца строки соответствующие в файле?

ага, понял все, вот просто у меня есть текстовый файл, там данные типа

(типы разделены пробелами),

вот их не получается считать таким способом

Ну так любую цифру (1 2 3 твои) можно считать как в string, так и в integer, и в char...

Ну если там перенос после 2, то наверное надо:

readln(f, a, b);
read(f, c);

проблема в том, что в таком случае надо точно знать какое количество символов отводится на <string>. Т.е:

var a:string; b: integer; c: char; k: byte;
// ...
  read(f, a: k, b, c);

получается так:
файл такой:


код

a:string;
b,c: integer;
...
readln(f, a, b);
read©;
write(a,'--',b,'--',c);

выводит aaa 1--2--0

т.е., если первая переменная(a) при чтении файла имеет тип стринг, то данные с файла в переменную будут читаться не до пробела, а до конца строки. провел ни один эксперимент уже

Добавлено через 10 мин.

Разумеется. Потому что строка из файла читается
1) либо до тех пор, пока выделенное под нее место не будет заполнено полностью
2) либо пока не встретится #13(символ конца строки). Всё, больше ничего. Пробел концом строки не является.

Вообще-то это один из первых советов при работе с текстовыми файлами: не использовать смешанные списки ввода. Нужно читать в строку до пробела - читай посимвольно (Char-ом) и соединяй символы в строку.

Проблема - в том, что при ЧТЕНИИ нельзя указывать ширину поля, только при ЗАПИСИ это возможно.

есть файл из 10 строк, где записаны в строке
фамилию год пол

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

Читай по строке в string, а потом эту строку разбивай на фамилию, год и пол, с помощью функций copy и pos.

впринципе можно. а как получится, год же должен быть интегер

Используй процедуру Val

процедуры нельзя в программе использовать

Если я не ошибаюсь, read - тоже процедура.

в read после : говорит, что нужна ), почему?

Может, не после, а вместо?
Потому что в Паскале нет форматного read (как тебе уже говорил volvo). Строка читается до конца.
Сообщение, я согласен, не очень точное - там может быть и запятая..

а если надо считать строку только первые 15 символов?

doorway, ответы надо не просматривать, а читать. Внимательно читать.


И об этом я тоже написал. Повторять как-то не особо хочется. Ибо не факт, что ты соизволишь прочесть со второй попытки.

Виноват. Забыл. Хотел написать следующее:

var a:string[15]; b: integer; c: char; k: byte;
// ...
  read(f, a, b, c);

Ответ неверный В C будет совсем не то, что ты ожидаешь

Дык я не обращал внимание на это, ведь о строке думал :yes:
Согласен, там будет пробел, верно?

var a:string[15]; b: integer; c: char; k: byte;
// ...
  read(f, a, b, c, с);

А ты попробуй

Уже не могу)
если смотреть на структуру
, то должно работать. Разве что на Реадлн заменить.

перечитай пост №7

sheka, извини, очередное ВПР, временное помутнение рассудка ((.
Все верно. При условии, что "фамилию" занимает ровно 15 байт.
Но чтение всей строки с последующим разбором все же предпочтительнее со многих точек зрения.

p.s.
рад случаю добавить тебе в репу +1 ))