procedure VoTeRaz(f:text;n:integer;s:string); begin writeln('Было:'); assign(f,'Input.txt'); reset(f); while not(Eof(f)) do begin read(f,n); write(n,' '); if n>7 then n:=n*(n div 7); s:=s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'Input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('Стало:'); write(s); writeln; end;
function VoTeDva(f:text;n:integer;s:string):integer; begin writeln('Было:'); assign(f,'Input.txt'); reset(f); while not(Eof(f)) do begin read(f,n); write(n,' '); if n>7 then n:=n*(n div 7); s:=s+inttostr(n)+' '; end; delete(s,length(s),1); close(f); assign(f,'Input.txt'); rewrite(f); write(f,s); close(f); writeln; writeln('Стало:'); write(s); writeln; VoTeDva:=0; end;
Программа от Microsoft, входящая в Office, под названием Excel или электронные таблицы была создана для более удобной работы пользователя с таблицами данных, причём преимущественно данная работа производится с числовыми значениями. Благодаря использованию электронных таблиц — намного проще работать с данными, с её можно получать точные результаты без выполнения каких-либо ручных расчётов. Также электронные таблицы позволяют с специального «программирования» решать намного быстрее более сложные задачи. Основной особенностью MS Excel выступает его возможность использовать формулы для того, чтобы описывать между значениями разных ячеек различные связи. Следует отметить, что по заданным формулам расчёт будет выполняться автоматически. Если человек изменяет значение какой-либо ячейки, то сразу же автоматически произойдёт перерасчёт значений всех остальных ячеек, которые связаны с ней формульными отношениями, благодаря чему обновится вся таблица и данные, которые находятся в ней.
Var
f:text;
n:integer;
s:string;
procedure VoTeRaz(f:text;n:integer;s:string);
begin
writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
begin
read(f,n);
write(n,' ');
if n>7 then n:=n*(n div 7);
s:=s+inttostr(n)+' ';
end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
end;
function VoTeDva(f:text;n:integer;s:string):integer;
begin
writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
begin
read(f,n);
write(n,' ');
if n>7 then n:=n*(n div 7);
s:=s+inttostr(n)+' ';
end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
VoTeDva:=0;
end;
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.
Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6
Стало:
891 5 6
Было:
891 5 6
Стало:
113157 5 6