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

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

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

 
 Ответить  Открыть новую тему 
> задача на Паскале-программа для дозаписи текстового файла
vesna
сообщение 18.01.2009 21:00
Сообщение #1





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

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


извиняюсь за наглость, но, пожалуйста,помогите ещё одну

Условие:

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


понимаю что "туплю",но....

Сообщение отредактировано: vesna - 18.01.2009 22:35
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
amega
сообщение 18.01.2009 21:34
Сообщение #2


?
***

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

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


открытие текстового файла файла для дозаписи


append(f);



создание списка эт просто запись переменной типа запись в конец и все


Type
Trecord = record
namefio:string[20];
nomber:integer;
end;
Tarrrec = array [1..count] of Trecord;
...
Var a:Tarrrec;
...
{заполняем масив данными}

append(f);
for i:=1 to count do
begin
writeln(f,a[i]);
end;
close(f);
...




Сообщение отредактировано: amega - 18.01.2009 21:35
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
vesna
сообщение 19.01.2009 11:09
Сообщение #3





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

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


amega,БОЛЬШОЕ СПАСИБO!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



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