Файл

[crancv]

Прошу помощи. Как на паскаль написать программу, которая запрашивает ввод имени файла и если файл есть, создает другой файл, причем имя созданного файла - это расширение введенного имени файла+15, а расширение допустим .inc

Например: исходный файл Main.txt, в результате работы программы должен появиться файл txt15.inc

Начало в принципе понятно:
var
s:string;
Writeln('Введите имя файла');
read(s);

Как быть дальше ? Какой алгоритм дальнейших действий по созданию нового файла ?

[Serge_Bliznykov]

Паскаль (компилятор) какой? Это важно в данном случае.
В случае FreePascal/ Delphi можете использовать функцию FileExists()

[Malriser]

Код для Delphi 7

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  tmp_t, tmp, name:string;
  i:integer;
  t:textfile;
begin
  write('FileName: ');
  readln(name);
  tmp:='';
  if FileExists(PChar(name)) then
    begin
      if ((pos('.', name)) = 0) then
        begin
          writeln('there no extension');
        end else
          begin
            for i:=length(name) downto 1 do
            begin
              if (name[i] = '.') then break;
              tmp:=tmp + name[i];
            end;
            tmp_t:='';
            for i:=length(tmp) downto 1 do
            tmp_t:=tmp_t + tmp[i];
            tmp_t:=tmp_t + '15.inc';
            AssignFile(t, tmp_t);
            rewrite(t);
            closefile(t);
        end;
    end;
writeln('The end!');
readln;
end.

Результат работы:




Так же работает если два расширения, читает то - которое исполняется.





Код для FreePascal/PascalABC

program Project2;



uses crt;

var
  tmp_t, tmp, name:string;
  i:integer;
  t:textfile;
begin
  write('FileName: ');
  readln(name);
  tmp:='';
  if FileExists(PChar(name)) then
    begin
      if ((pos('.', name)) = 0) then
        begin
          writeln('there no extension');
        end else
          begin
            for i:=length(name) downto 1 do
            begin
              if (name[i] = '.') then break;
              tmp:=tmp + name[i];
            end;
            tmp_t:='';
            for i:=length(tmp) downto 1 do
            tmp_t:=tmp_t + tmp[i];
            tmp_t:=tmp_t + '15.inc';
            assign(t, tmp_t);
            rewrite(t);
            close(t);
        end;
    end;
writeln('The end!');
readln;
end.

Результат тот же


Если нету расширения, то пишет "There no extension"

[crancv]

спасибо, благодаря вам справился