Записать в переменную заданный элемент файла

@Настя1347 · Регистрация: 24.06.2015

Author24 — интернет-сервис помощи студентам

Составить программу ,которая в переменной n будет получать 5-й элемент вещественного файла Fx.

@JokeR.BY · 24.06.2015, 23:12

Pascal

var
    f: File Of Double;
    n: Double;
    i: Byte;
begin
    i := 0;
    Assign(f, 'f.dat'); Reset(f);
    while ((Not EoF(f)) And (i <= 5)) do
    begin
        Read(f, n);
        Inc(i);
    end;
    Close(f);
    if (i < 5)
    then
        WriteLn('Error! bla-bla-bla')
    else
        WriteLn(n);
end.

@Cyborg Drone · 25.06.2015, 11:02

Хм... Почему-то я думал, что ответ будет выглядеть так:

Pascal

var f: File Of Double;
    n: Double;
begin
  Assign(f, 'f.dat');
  Reset(f);
  if filesize(f) < 5
    then WriteLn('Error! bla-bla-bla')
    else begin
      Seek(f, 4);
      Read(f, n);
      WriteLn(n)
    end;
  Close(f)
end.

@JokeR.BY · 25.06.2015, 11:40

и то правда...

@Настя1347 0 / 0 / 0 Регистрация: 24.06.2015 Сообщений: 14
		1
	Записать в переменную заданный элемент файла 24.06.2015, 14:20. Показов 832. Ответов 3 Метки нет (Все метки) Составить программу ,которая в переменной n будет получать 5-й элемент вещественного файла Fx. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	25.06.2015, 11:40	4
	и то правда... 0