Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
demfoss
0 / 0 / 0
Регистрация: 27.11.2009
Сообщений: 22
#1

создать файл - Pascal

21.01.2010, 12:19. Просмотров 325. Ответов 2
Метки нет (Все метки)


http://www.cyberforum.ru/pascal/thread1188040.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 12:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос создать файл (Pascal):

Создать типизированный файл, куда записать n целых чисел. Из файла создать
Создать типизированный файл, куда записать n целых чисел. Из файла создать...

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

Создать текстовый файл f и g. Переписать их в файл h чередуя строки
17. Создать текстовый файл f и g. Переписать их в файл h чередуя строки.

Создать типизированный файл целых чисел, скопировать во 2 файл из исходного записи, хранящие простые числа
создать типизированный файл целых чисел, скопировать во 2 файл из исходного...

Создать файл (текстовый) средствами редактора. Читать этот файл построчно и упорядочить все цифры по убыванию
Подредактируйте пожалуйста код. Вот задачка: "Создать файл (текстовый)...

2
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
21.01.2010, 12:28 #2
Лучший ответ Сообщение было отмечено demfoss как решение

Решение

uses crt;
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
const max=7;
var f:file of integer;
    n,i,a,b:integer;
begin
clrscr;
assign(f,'file');
rewrite(f);
repeat
write('Количество чисел от 2 до 7 n=');
readln(n);
until n in [2..7];
writeln('Введите ',n,' чисел в файл:');
for i:=1 to n do
 begin
  readln(a);
  write(f,a);
 end;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
seek(f,0);
read(f,a);
seek(f,filesize(f)-1);
read(f,b);
write(f,a);
seek(f,0);
write(f,b);
close(f);
writeln('Содержание результирующего файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
readln
end.
0
demfoss
0 / 0 / 0
Регистрация: 27.11.2009
Сообщений: 22
21.01.2010, 12:30  [ТС] #3
большое спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2010, 12:30
Привет! Вот еще темы с решениями:

Создать файл, содержащий произвольные строки. Обработать файл так, чтобы не было больше одного пробела
Создать файл,который содержит произвольные строки. Обработать файл так чтобы не...

Дан текстовый файл. Создать символьный файл
Дан текстовый файл. Создать символьный файл, содержащий все символы,...

Создать текстовый файл с исходными данными любой размерности. Из текстового файла переписать числа в массив, типизированный файл. Сделать контрольный
Создать текстовый файл с исходными данными любой размерности. Из текстового...

Удалить из файла f числа, которые входят в файл g более двух раз, если таких чисел нет, то создать новый файл
Даны целочисленные файлы f и g. Удалить из файла f числа, которые входят в файл...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru