Программирование на языке Turbo Pascal

§ Пример записи в текстовый файл:


uses crt;

var f:text; r,i:integer;   rr:string;

begin

clrscr;

rr:='Dautova';

assign(f,'dddddd');

rewrite(f);

writeln(f,rr);

for i:=1 to 20 do begin

r:=random(10);

writeln(f,r);     end;

close(f);

end._



§         Считывание из текстового файла (см программу выше):

uses crt;

var f:text; r,i:integer; rr:string;

begin

clrscr;

assign(f,'dddddd');

reset(f);

readln(f,rr);

writeln(rr);

for i:=1 to 20 do begin

readln(f,r);

writeln(r);     end;

close(f);

end._

  • Написать программу, вычисляющую корни квадратного уравнения и вывести результаты в файл.
  • Uses crt;

    Var a,b,c,x1,x2, d: real; f:text;

    Begin

    Assign(f,’result.txt);

    Rewrite(f);

    Readln(a,b,c);

    D:=b*b-4*a*c;

    If d>=0 then

    Begin

    X1:=-b+sqrt(d)/(2*a);

    X2:=-b-sqrt(d)/(2*a);

    End;

    Writeln(‘решени квадратного ур-я’);

    Writeln(f,'a=',a:6:3,'b=', b:6:3,'c=',c:6:3);

    If d<0 then writeln(f,’у урав-я нет корней’) else writeln(f, ‘корни: x1=’, x1:6:3,’x2=’, x2:6:3);

    Close(f);

    Writeln(‘рез-ты работы программы в файле result.txt’);

    Repeat until keypressed; end.

    • На диске имеется файл с именем Karl.txt, в котором записана скороговорка:
    • "Карл у Клары украл кораллы, Клара у Карла украла кларнет."

      Требуется подсчитать кол-во букв «К»

      Uses crt;

      Var f:text; s:integer; a:char;

      Begin

      Assign(f,’Karl.txt’); Reset(f);

      S:=0;

      While not eof(f) do Begin

      While not eoln(f) do Begin

      Read(f,a);  If a=’k’ then s:=s+1;

      End;

      Readln(f);

      End;

      Close(f); Writeln(s);

      Repeat until keypressed; end.

      • Ввести текст в текстовый файл f1. Переписать файл f1 в f2 – первую половину файла в прямом, а вторую – в обратном порядке следования символов.
      • Uses crt;

        Var f1,f2:text; s,s1,sa,sb:string; a:char; n,y,i:integer;

        Begin

        Clrscr;

        Assign(f1,’file1’); Assign(f2,’file2’);

        Rewrite(f1);

        Readln(s); Writeln(f1,s); Close(f1);

        Reset(f1); Rewrite(f2); Read(f1,s1);

        N:=lenght(s1); Y:=n div 2;  Writeln(y);

        Sa:=’’; sb:=’’;

        For i:=n downto y+1 do  Sa:=sa+s1[i];

        Writeln(sa);

        For i:=1 to y do Sb:=sb+s1[i];

        Writeln(sb); 

        S1:=sb+sa;

        Writeln(s1);  Write(f2,s1);

        Close(f1);  Close(f2);  Repeat until keypressed; end.




        Содержание раздела