Вывод в файл!

@Myxammedik · Регистрация: 30.09.2009

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

Здравствуйте!
вот есть написанная прога, но надо организовать чтобы можно было выводить в файл.
Я все сделал, но не могу сделать чтобы выводило В ФАЙЛ процедуру ВВОДА и ВЫВОДА!
Думаю поймете:

Pascal

program lab5;
type mas=array[1..100] of real;
var
        p:mas;
          j,i,n:integer;
          z,sum:real;
          f:text;
          v:integer;
          name:string[12];
procedure vvod(var a:mas; n:integer;s:string);
var i:integer;
        begin
      for i:=1 to n do
      begin write(s,'[',I,']=');readln(a[I]);end;
      end;
          procedure vivod(a:mas; n:integer; s:string);
          var i:integer;
      begin
      for i:=1 to n do
      writeln(s,'[',I,']=',a[i]:5:2);
      end;
          begin
          write('name file or con');readln(name);
          assign(f,name);
          rewrite(f);
          write('n=');readln(n);
          v:=0;
          while not((v=1) or (v=2)) do
      begin
      writeln('vvod masiva 1-vru4nu 2-random');read(v);end;
      if v=1 then vvod(p,n,'p') else for i:=1 to n do p[i]:=10*random-5;
      writeln('vhidniyy masiv');
      writeln(f,'vhidniyy masiv');
      vivod (p,n,'p');
      readln;
      for i:=1 to n do
      for j:=1 to n-i do
      if p[j]>p[j+1] then begin z:=p[j];p[j]:=p[j+1];p[j+1]:=z;
      end;
          writeln('rezyltat');
          writeln(f,'rezyltat');
          vivod(p,n,'p');
          sum:=0;
          for i:=1 to n-1 do
          begin
          sum:=sum+(p[i]/(1+sqr(p[1]))); end;
          writeln('suma[',i,']=',sum:6:3);
          writeln(f,'suma[',i,']=',sum:6:3);
          close(f);readln;
end.

Добавлено через 18 часов 17 минут
Может поможете? Пожалуйста?)

@Puporev · 16.04.2011, 12:28

Сформулируй полностью и максимально точно задание.

@Myxammedik · 16.04.2011, 13:25 **[ТС]**

Ну вот программа и нада сделать чтобы можно было выводить результат в файл на компьютере!
чтобы файл создавало я сделал, но не могу сделать чтобы масив тоже выводило в етот файл (все надписи типо "Результат"...) ето есть а вот сами числа , кроме "сумы" не могу.

@Puporev · 16.04.2011, 13:47

До чего Вы все тупые и упрямые... Попросил условие, так и пиши, а не рявкай..
program lab5;

Pascal

type mas=array[1..100] of real;
var
        p:mas;
          j,i,n:integer;
          z,sum:real;
          f:text;
          v:integer;
          name:string[12];
procedure vvod(var a:mas; n:integer;s:string);
var i:integer;
begin
for i:=1 to n do
 begin
  write(s,'[',I,']=');
  readln(a[I]);
 end;
end;
procedure vivod(var a:mas; var f:text;n:integer; s:string);
var i:integer;
begin
for i:=1 to n do
 begin
  writeln(s,'[',I,']=',a[i]:5:2);
  writeln(f,s,'[',I,']=',a[i]:5:2);
 end;
end;
 
begin
write('name file or con');readln(name);
assign(f,name);
rewrite(f);
write('n=');readln(n);
v:=0;
while not((v=1) or (v=2)) do
 begin
  writeln('vvod masiva 1-vru4nu 2-random');read(v);end;
  if v=1 then vvod(p,n,'p')
  else
   for i:=1 to n do p[i]:=10*random-5;
  writeln('vhidniyy masiv');
  writeln(f,'vhidniyy masiv');
  vivod (p,f,n,'p');
  readln;
      for i:=1 to n do
      for j:=1 to n-i do
      if p[j]>p[j+1] then begin z:=p[j];p[j]:=p[j+1];p[j+1]:=z;
      end;
          writeln('rezyltat');
          writeln(f,'rezyltat');
          vivod(p,f,n,'p');
          sum:=0;
          for i:=1 to n-1 do
          begin
          sum:=sum+(p[i]/(1+sqr(p[1]))); end;
          writeln('suma[',i,']=',sum:6:3);
          writeln(f,'suma[',i,']=',sum:6:3);
          close(f);readln;
end.

Добавлено через 30 секунд
Задолбали своей сумой, бродяги....

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.04.2011, 12:28	2
	Сформулируй полностью и максимально точно задание. 0

@Myxammedik 0 / 0 / 0 Регистрация: 30.09.2009 Сообщений: 60
	16.04.2011, 13:25 [ТС]	3
	Ну вот программа и нада сделать чтобы можно было выводить результат в файл на компьютере! чтобы файл создавало я сделал, но не могу сделать чтобы масив тоже выводило в етот файл (все надписи типо "Результат"...) ето есть а вот сами числа , кроме "сумы" не могу. 0

	16.04.2011, 13:47

Опции темы