IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> чтение текстового файла
doorway
сообщение 20.09.2010 21:46
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


есть текстовый файл:
Код
1 2
3


как эти цифры присвоить переменным a, b, c. что-то у меня не получается, напишите, пожалуйста, кому не лень только блок с read
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Unconnected
сообщение 20.09.2010 22:55
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


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

Сообщение отредактировано: Unconnected - 20.09.2010 22:55


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
doorway
сообщение 21.09.2010 0:17
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Цитата(Unconnected @ 20.09.2010 23:55) *

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


впринципе можно. а как получится, год же должен быть интегер
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 21.09.2010 1:48
Сообщение #4


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(doorway @ 21.09.2010 1:17) *
как получится, год же должен быть интегер
Используй процедуру Val


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
doorway
сообщение 21.09.2010 21:46
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Цитата(Lapp @ 21.09.2010 2:48) *

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


процедуры нельзя в программе использовать
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
doorway
сообщение 21.09.2010 22:59
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Цитата(sheka @ 21.09.2010 22:46) *

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



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

Сообщение отредактировано: doorway - 21.09.2010 23:01
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Lapp
сообщение 22.09.2010 1:12
Сообщение #7


Уникум
*******

Группа: Модераторы
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


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


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
doorway
сообщение 22.09.2010 16:07
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 20
Пол: Мужской

Репутация: -  0  +


Цитата(Lapp @ 22.09.2010 2:12) *

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

а если надо считать строку только первые 15 символов?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
doorway   чтение текстового файла   20.09.2010 21:46
volvo   var a, b, c: integer; // ... read(f, a, b, c); ...   20.09.2010 21:56
doorway   [code=pas]var a, b, c: integer; // ... read(f, ...   20.09.2010 22:10
Unconnected   Ну так любую цифру (1 2 3 твои) можно считать как ...   20.09.2010 22:12
doorway   Ну так любую цифру (1 2 3 твои) можно считать как...   20.09.2010 22:25
sheka   проблема в том, что в таком случае надо точно знат...   20.09.2010 22:22
volvo   Разумеется. Потому что строка из файла читается 1)...   20.09.2010 22:37
doorway   есть файл из 10 строк, где записаны в строке фами...   20.09.2010 22:49
Unconnected   Читай по строке в string, а потом эту строку разби...   20.09.2010 22:55
doorway   Читай по строке в string, а потом эту строку разб...   21.09.2010 0:17
Lapp   как получится, год же должен быть интегерИспользуй...   21.09.2010 1:48
doorway   Используй процедуру Val процедуры нельзя в прог...   21.09.2010 21:46
doorway   var a:string; b: integer; c: char; k: byte; // .....   21.09.2010 22:59
Lapp   в read после : говорит, что нужна ), почему?Может,...   22.09.2010 1:12
doorway   Может, не после, а вместо? Потому что в Паскале н...   22.09.2010 16:07
sheka   Если я не ошибаюсь, read - тоже процедура.   21.09.2010 22:47
volvo   doorway, ответы надо не просматривать, а читать. В...   22.09.2010 16:57
sheka   Виноват. Забыл. Хотел написать следующее: var a:st...   22.09.2010 22:35
volvo   Ответ неверный :) В C будет совсем не то, что ты о...   22.09.2010 22:41
sheka   Дык я не обращал внимание на это, ведь о строке ду...   22.09.2010 23:11
Lapp   Дык я не обращал внимание на это, ведь о строке ду...   22.09.2010 23:16
sheka   Уже не могу) если смотреть на структуру , то долж...   22.09.2010 23:24
Lapp   перечитай пост №7   22.09.2010 23:37
Lapp   sheka, извини, очередное ВПР, временное помутнение...   23.09.2010 5:32


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.07.2025 21:20
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"