2 / 2 / 1
Регистрация: 13.10.2010
Сообщений: 70
1

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

30.01.2011, 10:39. Показов 1143. Ответов 3
Метки нет (Все метки)

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

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

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

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

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

3
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
30.01.2011, 10:57 2
shik, А Вы уверены что это задача на файлы без типа? Очень уж условие для типизированных файлов подходит....
0
2 / 2 / 1
Регистрация: 13.10.2010
Сообщений: 70
30.01.2011, 11:02  [ТС] 3
Да, эта задача точно на НЕтипизированные файлы...
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
30.01.2011, 11:57 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
const max=10;
var f:file;
    k,i:byte;
    a,n:real;
begin
clrscr;
randomize;
repeat
write('Количество компонент от 1 до ',max,' k=');
readln(k);
until k in [1..max];
assign(f,'file');
rewrite(f,6);{6 - 6 байт, тип real}
for i:=1 to k do
 begin
  a:=20*random;
  blockwrite(f,a,1);
 end;
writeln('Содержание исходного файла F:');
reset(f,6);
for i:=1 to k do
begin
 blockread(f,a,1);{1 - 1 блок=6 байт}
 write(a:0:2,' ');
end;
writeln;
close(f);
write('Введите вещественное число N=');
readln(n);
reset(f,6);
seek(f,k);{встаем в конец файла}
k:=k+1;{количество блоков увеличим}
blockwrite(f,n,1);
close(f);
writeln('Содержание измененного файла F:');
reset(f,6);
for i:=1 to k do
 begin
  blockread(f,a,1);
  write(a:0:2,' ');
 end;
close(f);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2011, 11:57

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

Дано натуральное число n. Дописать к нему цифру k в конец и в начало.
Дано натуральное число n. Дописать к нему цифру k в конец и в начало (если это возможно, т.е....

Текстовый файл. Найти наибольшее значение компонентов и дописать его в конец файла
1) Создать текстовый файл f, компоненты которого являются вещественными числами.Найти наибольшее...

Дописать в конец исходного файла программы на Паскале количество операторов присвоения, использовавшихся в программе
В текстовом файле хранится программа, записанная на языке Turbo Pascal. Вычислить и дописать в...


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

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

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