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

создать файл

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

помогите пожалуйсто решить задачу. Нужно создать файл, компоненты (количество <=7) которого являются целыми числами. После создания файла заменить значение последней компоненты файла на значение первой его компоненты. Исходный и результирующий файлы вывести на экран.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 12:19
Ответы с готовыми решениями:

Создать файл F из элементов массива M, переписать в файл G все компоненты которые меньше 5, прочитать файл G
создать файл F,компонентами которого являются элементы массива M,переписать в...

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

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

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

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

2
Puporev
Модератор
54589 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,311
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

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

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

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


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

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

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