Главное меню

Вход на сайт

Кто на сайте?

Сейчас 136 гостей и ни одного зарегистрированного пользователя на сайте

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

Решение

var G,F:file of integer;
    i,j,n:integer;
    s:integer;
    c,c1,c2:integer;
begin
writeln;
write('Vvedite n:');
readln(n);
Assign(G,'C:\g.txt');
Assign(F,'C:\f.txt');
Rewrite(F);
for i:=1 to n do
begin
c1:=1;
c2:=1;
for j:=1 to i+1 do begin
if j<i+1 then c1:=c1*2;
c2:=c2*3;
end;
c:=c1+c2;
write(F,c);
end;
Close(F);
Reset(F);
Rewrite(G);
s:=0;
while not Eof(f) do begin
read(F,c);
if c>0 then c:=c*(-1);
write(G,c);
s:=s+c;
end;
write(G,s);
close(F);
close(G);
reset(G);
writeln('Komponenty fajla j:');
while not Eof(G) do begin
read(G,c);
write(c);
end;
readln;
end.

У Вас недостаточно прав для добавления комментариев.
Вам необходимо зарегистрироваться на сайте