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

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

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

 
 Ответить  Открыть новую тему 
> Программка на работу с файлами
сообщение
Сообщение #1


Новичок
*

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

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


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

program files;
var f1,f2:file of string;
       a:string;
begin
assign(f1,'file1.txt');
assign(f2,'file2.txt');
rewrite(f1);
write(f1,'zapys 1');
write(f1,'zapys 2');
close(f1);
reset(f1);
rewrite(f2);
read(f1,a);
write(f2,a);
write(f2,'zapys 3');
close(f1);
close(f2);
end.

Единственное что - таинственные файлы file1.txt и file2.txt не появляются...
(есличо: change dir сделал, программу сохранил...)

Подскажите, пожалуйста, правильно ли составлена сама прога?

Сообщение отредактировано: Alexey -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Есть программка, которая вроде бы запускается и вроде бы работает:
В том виде, в котором ты программу привел, она не может ни запускаться ни работать... Она даже не должна компилироваться, потому что Write с бестиповыми файлами использовать нельзя.

Если ты запускал другую программу - так и скажи...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

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

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


эту blink.gif
Правда, запускал не я, но тот, кто запускал, грит, что работает...
Будет file of string...
Так будет работать?

Меня особо волнует момент, где считываются две записи с первого файла... оно пойдет вообще все в одну переменную, или нет?..

Сообщение отредактировано: Alexey -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
Так будет работать?
И так не будет... Чтобы не играть глухие телефоны - уточни, какая именно была программа.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

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

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


Цитата
Чтобы не играть глухие телефоны - уточни, какая именно была программа.

В смысле, какая была?

Задание: создать новый типизированный файл, добавив к двум записям предыдущего файла третью запись (имеется в виду, что "предыдущий" файл ты тоже создаешь сам).

Я написал вышеприведенную программу...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Вышеприведенная программа неработоспособна, я уже говорил...

Вот это - работает:
program files;
type str_type = string[20];
var
f1, f2: file of str_type;
a: str_type;

begin
assign(f1,'file1.txt'); rewrite(f1);
a := 'zapys 1'; write(f1, a);
a := 'zapys 2'; write(f1, a);
close(f1);

reset(f1);
assign(f2,'file2.txt'); rewrite(f2);
while not eof(f1) do begin
read(f1, a);
write(f2, a);
end;
a := 'zapis 3'; write(f2, a);
close(f1);
close(f2);
end.

 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 23.10.2021 23:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name