Преобразование вещественных чисел (Pascal)

[Freedo]

Здравствуйте, собственно само задание выглядит вот так:

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

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

[Brot]

var
k: real;
begin
write(k:10:1);
end;

вроде так

[Freedo]

Brot, спасибо.

Поправьте если не прав. Форма записи числа с плавающей точкой например 1.78078000000000Е+001, а оно же в форме с фиксированной точкой будет 17.8? То есть получается, что в исходном файле у меня должны быть числа с мантиссой, а потом просто выводиться с ограничением как в примере выше?

[Freedo]

Неужели это такой сложный вопрос что никто не может ответить?

[Stilet]

а оно же в форме с фиксированной точкой будет 17.8?

Форма с фиксированной точкой говорит о том, что после точки цифры выравниваются дополняясь нулями до некоторого предела.
Например:
17.8000000000 - с фиксированной точкой до 10.
Насчет сложности вопроса пожалуй нужно знать о каком паскале идет речь, и верно ли то что выходной файл будет текстовый в отличии от исходного файла?

[Freedo]

Сообщение от Stilet

Насчет сложности вопроса пожалуй нужно знать о каком паскале идет речь, и верно ли то что выходной файл будет текстовый в отличии от исходного файла?

Спасибо что отозвались. Речь идёт о Turbo Pascal. Изначально числа находятся в текстовом файле, после их преобразования они записываются туда же.

[Freedo]

program lab_9_2;
uses crt;
var f:text;
   s,st: array [1..10] of string;
   u: string;
   i,j,k,code:integer;
   a:real;
begin
   clrscr;
   writeln('Введите имя файла: ');
   readln(u);
   assign(f, u);
   reset(f);
   while not eof(f) do
      begin
         i:=i+1;
         readln(f,st[i]);
      end;
      k:=i;
      for i:=1 to k do
         begin
            val(st[i],a,code);
            str(a:0:1,s[i]);
         end;
   rewrite(f);
   for i:=1 to k do
         writeln(f,s[i]);
   close(f);
end.

Вот код готовой программы, только объясните пожалуйста про i:=i+1 и про к, я понимаю, что это лимит для цикла, но всё-таки мне не совсем понятен этот момент.