Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 29.01.2011
Сообщений: 14
1

После создания файла дописать в конец вещественное число N

01.02.2011, 21:40. Показов 1120. Ответов 3
Метки нет (Все метки)

Создать файл, компоненты (количество <=10) которого являются вещественными числами. После создания файла дописать в конец вещественное число N. Исходный и результирующий файлы вывести на экран.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.02.2011, 21:40
Ответы с готовыми решениями:

После создания файла дописать в конец вещественное число N
Создать файл, компоненты (количество &lt;=10) которого являются вещественными числами. После создания...

Дописать в конец файла общее число содержащихся в нем строк
Помогите решить задачу. ПЛИИИИИИЗЗЗЗ!!!!!!!!!!!!!!!!!! Написать программу, которая позволяет...

Найти сумму положительных компонент файла и дописать её в конец файла
Ввести файл целых чисел найти сумму положительных компонент файла дописать Ее в конец файла . Файл...

Заданы два текстовых файла. Дописать содержимое одного файла в конец другого
1.Заданы два текстовых файла.Дописать содержимое одного файла в конец другого 2.В файле содержится...

3
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
02.02.2011, 09:25 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
const max=10;
var f:file of real;
    a,n:real;
    i,k:byte;
begin
clrscr;
assign(f,'file');
rewrite(f);
repeat
write('Сколько чисел записать(до 10) k=');
readln(k);
until k in [1..max];
writeln('Введите ',k,' вещественных чисел:');
for i:=1 to k do
 begin
  write('a',i:2,'=');
  readln(a);
  write(f,a);
 end;
clrscr;
writeln('Исходный файл:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
writeln;
close(f);
write('Какое число дописать в файл N=');
readln(n);
reset(f);
seek(f,filesize(f));
write(f,n);
close(f);
writeln('Результирующмй файл:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
readln
end.
1
1 / 1 / 0
Регистрация: 29.01.2011
Сообщений: 14
02.02.2011, 11:09  [ТС] 3
спасибо!!
0
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
02.02.2011, 11:20 4
mari9, Вот здесь была такая же задача, но на файлы без типа. Может у вас тоже не типизированный файл? Тогда посмотрите там.
https://www.cyberforum.ru/pascal/thread235828.html
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2011, 11:20

Дописать в конец файла F1 четные (по номеру) компоненты файла F2
Заданы два файла одномерных массивов целых чисел F1 и F2. ЗАДАЧИ: 1.Дописать в конец файла F1...

Написать программу копирования файла. В конец каждой строки файла дописать количество пробелов в строке
Чтение происходит блоками. Обработать ошибки Я пока просто смогла скопировать один файл в...

Дописать не в конец файла букву
У меня есть файл, в нем: казань ростов орел самара таганрог Мне нужно сделать так(Нужно...

Дописать в конец файла 2 строки
1. Запишите в файл исходных данных числовой двумерный массив размерности 6х5 2. Напишите...

Дописать в конец файла .xlsx
Здравствуйте! Подскажите, а как можно записать в конец уже имеюцегося файла формата .xlsx через...

Дописать число в начало и конец двузначного числа
Здравстсвуйте! Мне нужно как можно проще(с помощью линейного алг. и ветвления) написать вот такую...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru