Вывод результатов работы программы в файл

@Poiz0N · Регистрация: 13.02.2013

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

добрый день. опыт не большой в работе с Паскалем. есть исходный код программы. проблема вот в чем, какие значения вводить, и как сделать чтобы файл создавался сам при запуске программы (сейчас без готового файлика file.txt не хочет работать.
вот код:

Pascal

program zad3;
uses graphabc;
var
f:text;
p:array[1..7] of integer;
nazv:array[1..7] of String;
znach:array[1..7] of real;
i,j,t:integer;
tmps:string;
sum,z,x,y,zd,zd1,tmp:Real;
c:char;
begin
assign(f,'file.txt');
reset(f);
       Coordinate.Origin:=new Point(0,0);
       setpencolor(clblack);
       Setbrushcolor(clwhite);
       line(8,8,260,8);
       line(8,90,260,90);
       line(8,8,8,90);
       line(260,8,260,90);
       TextOut(15, 10,'Управление:');
       TextOut(15, 30,'Введите + для вывода по возрастанию');
       TextOut(15, 50,'Введите - для вывода по убыванию');
       TextOut(15, 70,'Введите = для вывода без сортировки');
       
       Coordinate.Origin:=new Point(300,150);
       setpencolor(clblack);
       Setbrushcolor(clwhite);
       line(8,8,260,8);
       line(8,30,260,30);
       line(8,8,8,30);
       line(260,8,260,30);
       TextOut(15, 12,'НПДК максимальний разовий вплив');
       readln(c);
       
 
if c='=' then
begin
sum:=0;
Writeln;Writeln;Writeln;Writeln;
For i:=1 to 7 do
  begin
    readln(f,znach[i],c,nazv[i]);
    sum:=sum+znach[i];
  end;
For i:=1 to 7 do
  begin
    z:=znach[i]/sum*100;
    Writeln('            ',i,'. ',Nazv[i], ' ', znach[i],' - ',z:2:1,' %');
  end;
{Начало работы с графикой} 
          Coordinate.Origin:=new Point(150,250);
          {Рисуем круг}
          for i:=1 to 7 do
          begin
          t:=t+round(znach[i]*100);
          p[i]:=360*t div 79;          
          end;    
          
          setpencolor(clblack);
          Brush.Color := clgreen;
          Pie(0,0,100,0,p[1]);
          Brush.Color := clred;
          Pie(0,0,100,p[1],p[2]);
          Brush.Color := clyellow;
          Pie(0,0,100,p[2],p[3]);
          Brush.Color := clgray;
          Pie(0,0,100,p[3],p[4]);
          Brush.Color := clblue;
          Pie(0,0,100,p[4],p[5]); 
          Brush.Color := clnavy;
          Pie(0,0,100,p[5],p[6]);
          Brush.Color := clbrown;
          Pie(0,0,100,p[6],p[7]);
 
          setbrushstyle(bsclear);
          zd:=(360/78)*3.14/180;
         zd1:=zd;
          zd:=0;          
          for i:=1 to 78 do
          begin
            x:=-4+110*sin(i);
            y:=-10-110*cos(i);            
            if (i=7) then
            textout(round(x),round(y),'1');  
            if (i=8) then
            textout(round(x),round(y),'7');
            if (i=10) then
            textout(round(x),round(y),'3');  
            if (i=18) then
            textout(round(x),round(y),'2');  
            if (i=9) then
            textout(round(x),round(y),'4');
            if (i=40) then
            textout(round(x),round(y),'5');
            if (i=46) then
            textout(round(x),round(y),'6');
          end;
          
end;
if c='+' then
begin
sum:=0;
Writeln;Writeln;Writeln;Writeln;
For i:=1 to 7 do
begin
readln(f,znach[i],c,nazv[i]);
sum:=sum+znach[i];
end;
for i:=2 to 7 do
for j:=1 to (i-1) do
if znach[i]<znach[j] then
begin
tmp:=znach[i];
znach[i]:=znach[j];
znach[j]:=tmp;
 
tmps:=nazv[i];
nazv[i]:=nazv[j];
nazv[j]:=tmps;
end;
For i:=1 to 7 do
begin
z:=znach[i]/sum*100;
Writeln(' ',i,'. ',Nazv[i], ' ', znach[i],' - ',z:2:1,' %');
end;
{Начало работы с графикой} 
Coordinate.Origin:=new Point(150,250);
{Рисуем круг}
for i:=1 to 7 do
begin
t:=t+round(znach[i]*100);
p[i]:=360*t div 84; 
end; 
 
setpencolor(clblack);
Brush.Color := clgreen;
Pie(0,0,100,0,p[1]);
Brush.Color := clred;
Pie(0,0,100,p[1],p[2]);
Brush.Color := clyellow;
Pie(0,0,100,p[2],p[3]);
Brush.Color := clgray;
Pie(0,0,100,p[3],p[4]);
Brush.Color := clblue;
Pie(0,0,100,p[4],p[5]); 
Brush.Color := clnavy;
Pie(0,0,100,p[5],p[6]);
Brush.Color := clbrown;
Pie(0,0,100,p[6],p[7]);
setbrushstyle(bsclear);
zd:=(360/83)*3.14/180;
zd1:=zd;
zd:=0; 
for i:=1 to 83 do
begin
x:=-4+110*sin(i);
y:=-10-110*cos(i); 
if (i=14) then
textout(round(x),round(y),'1'); 
if (i=21) then
textout(round(x),round(y),'7');
if (i=1) then
textout(round(x),round(y),'3'); 
if (i=20) then
textout(round(x),round(y),'2'); 
if (i=44) then
textout(round(x),round(y),'4');
if (i=18) then
textout(round(x),round(y),'5');
if (i=5) then
textout(round(x),round(y),'6');
end;
end;
if c='-' then
begin
sum:=0;
Writeln;Writeln;Writeln;Writeln;
For i:=1 to 7 do
  begin
    readln(f,znach[i],c,nazv[i]);
    sum:=sum+znach[i];
  end;
for i:=2 to 7 do
              for j:=1 to (i-1) do
                if znach[i]>znach[j] then
                begin
                  tmp:=znach[i];
                  znach[i]:=znach[j];
                  znach[j]:=tmp;
                  
                  tmps:=nazv[i];
                  nazv[i]:=nazv[j];
                  nazv[j]:=tmps;
                end;
For i:=1 to 7 do
  begin
    z:=znach[i]/sum*100;
    Writeln('    ',i,'. ',Nazv[i], ' ', znach[i],' - ',z:2:1,' %');
  end;
{Начало работы с графикой} 
          Coordinate.Origin:=new Point(150,250);
          {Рисуем круг}
          for i:=1 to 7 do
          begin
          t:=t+round(znach[i]*100);
          p[i]:=360*t div 79;          
          end;    
          
          setpencolor(clblack);
          Brush.Color := clgreen;
          Pie(0,0,100,0,p[1]);
          Brush.Color := clred;
          Pie(0,0,100,p[1],p[2]);
          Brush.Color := clyellow;
          Pie(0,0,100,p[2],p[3]);
          Brush.Color := clgray;
          Pie(0,0,100,p[3],p[4]);
          Brush.Color := clblue;
          Pie(0,0,100,p[4],p[5]); 
          Brush.Color := clnavy;
          Pie(0,0,100,p[5],p[6]);
          Brush.Color := clbrown;
          Pie(0,0,100,p[6],p[7]);
 
          setbrushstyle(bsclear);
          zd:=(360/78)*3.14/180;
          zd1:=zd;
          zd:=0;          
          for i:=1 to 78 do
          begin
            x:=-4+110*sin(i);
            y:=-10-110*cos(i);            
            if (i=18) then
            textout(round(x),round(y),'1');  
            if (i=20) then
            textout(round(x),round(y),'7');
            if (i=10) then
            textout(round(x),round(y),'3');  
            if (i=11) then
            textout(round(x),round(y),'2');  
            if (i=9) then
            textout(round(x),round(y),'4');
            if (i=46) then
            textout(round(x),round(y),'5');
            if (i=39) then
            textout(round(x),round(y),'6');
          end;
end;
close(f);
end.

Может кто знает, что почитать посоветует

@Alkkcan · 20.05.2016, 13:18

Пример с файлами (чтение и запись)

1 создаём файл
2 записываем в него 3 строчка
3 закрываем
4 открываем этот файл
5 читаем из него все строки и записываем их в массив
6 закрываем файл
7 выводим на экран все строчки из массива

Pascal

uses graphabc;
 
var f:TextFile;
mas:array of string;//массив строк прочитанных из файла;
 
///Возвращает массив строк прочитанных из файла name;
function LoadTextFile(name:String):array of string;
var 
  f:TextFile;
  i:integer:=1;//Число строчек
begin
  assign(f,name);
  reset(f);       //Открывает файл на чтение (файл должен существовать);
//Запускаем цикл, читаем строчку, записываем её в массив строк, и так все строчки;
//Если не конец файла то выполняй блок begin end;
  while not eof(F) do 
    begin
    SetLength(Result,i);// устанавливаем длину массива (LoadTextFile - сам является массивом);
    Readln(f,Result[i-1]);// Записывает строчку в массив под индексом [i-1] и переходит к следующей строек;
    i:= i+1; //после прочтения строки, i(количества строк) увеличивается на 1;
    end;
  close(f);//Закрываем файл
end;
 
begin
{--------- Запись в файл ---------}
assign(f,'file.txt');          //Привязываем имя файла к переменной <f> (только имя, самого файла может и не быть);
Rewrite(f);                    //Создаёт новый пустой файл с именем указанным выше;
//записываем в файл строки сколько нужно;
writeln(f,'Введите + для вывода по возрастанию');
writeln(f,'Введите - для вывода по убыванию'); 
writeln(f,'Введите = для вывода без сортировки');
close(f);                      //Закрываем файл
{---------------------------------}
 
{-------- Чтение из файла --------}
mas:= LoadTextFile('file.txt');
//mas:= LoadTextFile('D:\тексты\file.txt'); так тоже можно;
{---------------------------------}
 
//В цикле выводим на экран все строки прочитанные из файла;
//Цикл от нуля до (количества строк в массиве)-1
for var  j:=0 to Length(mas)-1 do
  begin 
  writeln(mas[j]);
  end;
  
//writeln(mas[3]); так тоже можно, если знаешь что срока под индексом 3 точно есть;
  
end.

@shilko2013 · 20.05.2016, 14:16

Pascal

1 2	rewrite (f); //открывает файл на запись и создает его close (f); //закрывает файл

@Cyber_Monster_ · 20.05.2016, 23:41

44 строка:

Pascal

1	readln(f,znach[i],c,nazv[i]);

читает с файла f, значения: znach[i],c,nazv[i]

108 строка:

Pascal

1	readln(f,znach[i],c,nazv[i]);

читает с файла f, значения: znach[i],c,nazv[i]

182 строка:

Pascal

1	readln(f,znach[i],c,nazv[i]);

читает с файла f, значения: znach[i],c,nazv[i]

	20.05.2016, 23:41

Вывод результатов работы программы в файл

Решение