Отпечатване на кода на програмата

Напишете програма, която отпечатва сама на екрана своят програмен код (ако сте запазили името на проекта по подразбиране, кода на програмата е във файла project1.lpr)

Публикувано в 10a с етикети . Постоянна връзка.

3 коментара по Отпечатване на кода на програмата

  1. Svetli каза:
    program project1;
    var
      kod:string;
      F:text;
    begin
      Writeln('Koda na programata e:');
      Writeln;
      Assign(F, 'project1.lpr');
      Reset(F);
      while not EOF(F) do
        begin
          Readln(F,kod);
          Writeln(kod);
        end;
      Close(F);
      Readln;
    end.           
    
  2. Боряна каза:
    program project11;
    var
      F: text;
      text: string;
    begin
      Assign(F, 'prouchvane.lpr');
      Reset(F);
      WriteLn('Eto programnia kod na programata Prouchvane:');
      WriteLn;
      while (not EOF(F)) do begin
        ReadLn(F, text);
        WriteLn(text);
      end;
      Close(F);
      ReadLn;
      ReadLn;
    end.
    

Вашият коментар