Вопрос по информатике:
Дан файл f, компоненты которого являются действительными числами. найти последнюю компоненту файла. Написать решение в паскале
Пожаловаться
- 24.08.2016 21:16
- Информатика
- remove_red_eye 17838
- thumb_up 28
Ответы и объяснения 1
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var f:file of real;
// создаем файл
Rewrite(f,'MyFileOfReals.bin');
var a:=SeqRandom(10,1,30).Select(t->t/10).ToArray;
a.Println;
for var i:=0 to a.Length-1 do Write(f,a[i]);
f.Close;
// файл создан, далее собственно задание
Reset(f,'MyFileOfReals.bin');
f.Seek(f.FileSize-1);
var p:=f.Read;
p.Println;
f.Close
end.
Внимание! Если программа не работает, обновите версию!
begin
var f:file of real;
// создаем файл
Rewrite(f,'MyFileOfReals.bin');
var a:=SeqRandom(10,1,30).Select(t->t/10).ToArray;
a.Println;
for var i:=0 to a.Length-1 do Write(f,a[i]);
f.Close;
// файл создан, далее собственно задание
Reset(f,'MyFileOfReals.bin');
f.Seek(f.FileSize-1);
var p:=f.Read;
p.Println;
f.Close
end.
Пожаловаться
- 25.08.2016 20:11
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы