Файлы: переписать компоненты исходного файла в новый файл с отрицательным знаком

@ulx05 · Регистрация: 17.07.2012

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

сформулировать файл F, компонентами которого являются целые числа ci=2i+3i+1. количество чисел равно n, где n - натуральное число. переписать компоненты файла F в файл G с отрицательным знаком. последним числом в файл G записать сумму полученных компонентов

@CodeR · 01.09.2012, 14:51

Pascal

Var f,g:file of integer;
    i,n,c,s:integer;
Begin
    write('Введите кол-во чисел: ');readln(n);
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to n do
     Begin
      c:=2*i+3*i+1;
      write(f,c);
     End;
    s:=0;
    Reset(f);
    Assign(g,'b.dat');Rewrite(g);
    While not Eof(f) do
     Begin
      read(f,c);
      c:=c*(-1);
      write(g,c);
      s:=s+c;
     End;
    write(g,s);
    Close(f);
    Reset(g);
    writeln('Полученный файл');
    While not Eof(g) do
     Begin
      read(g,c);
      write(c,' ');
     End;
    Close(g);
    readln;
End.

@ulx05 1 / 1 / 1 Регистрация: 17.07.2012 Сообщений: 139
		1
	Файлы: переписать компоненты исходного файла в новый файл с отрицательным знаком 01.09.2012, 14:26. Показов 1257. Ответов 1 Метки нет (Все метки) сформулировать файл F, компонентами которого являются целые числа ci=2i+3i+1. количество чисел равно n, где n - натуральное число. переписать компоненты файла F в файл G с отрицательным знаком. последним числом в файл G записать сумму полученных компонентов 0

	01.09.2012, 14:51

Файлы: переписать компоненты исходного файла в новый файл с отрицательным знаком

Решение