Файлы, Путь к файлу Опции

[-Марина-]

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

[Michael_Rybak]

В смысле где? В Паскале.

он имел ввиду просьбу показать программу

[-Марина-]

Пожалуйста:

program create_bfile;
var buf:array[1..4] of real;
    f_in:text;
    f_out:file;
    i,k:integer;
    name_in,name_out:string;
const
begin
{$I-}
 writeln('Введите имя входного файла '); readln(name_in);
 assign(f_in,name_in);
 reset(f_in);
 if IOResult<>0 then begin
  writeln('Файл',name_in,'­не найден­'); exit end;
 writeln('Введите имя выходного файла'); readln(name_out);
 assign(f_out,name_out);
 rewrite(f_out,sizeof(real)*4);
 {$I-}
 i:=0;
 while not eof(f_in)do begin
  inc(i);
  read(f_in,buf[i]);
  if i=4 then begin
   blockwrite(f_out,buf,1); i:=0; end;
  end;
  if i<>0then begin
   for k:=i+1 to 4 do buf[k]:=0;
   blockwrite(f_out,buf,1);
  end;
  close(f_in); close(f_out);
 end.

М

Используем теги

Сообщение отредактировано: klem4 - 17.03.2008 15:36