Открытая архитектура- это архитектура компьютера, любого перефирийного устройства(устройства ввода-вывода) или ПО (программного обеспечения), на которые опубликованы спецификации(документ, в котором указаны все узлы и детали изделия), то есть любой производитель может разработать дополнительные устройства к системам с открытой архитектурой Принцип открытой архитектуры заключается в том, что производитель не скрывает узлы и детали, из которых состоит компьютер. Они могут быть легко заменены другими. Большинство современных компьютеров- с открытой архитектурой. Обратный пример- с закрытой архитектурой это продукция Apple (айфон,айпад, макбук), к которым не подходят детали других производителей По просту говоря, к любому компьютеру можно подключить любой принтер, мышку или другой гаджет не важно какого производителя
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;
Принцип открытой архитектуры заключается в том, что производитель не скрывает узлы и детали, из которых состоит компьютер. Они могут быть легко заменены другими.
Большинство современных компьютеров- с открытой архитектурой. Обратный пример- с закрытой архитектурой это продукция Apple (айфон,айпад, макбук), к которым не подходят детали других производителей
По просту говоря, к любому компьютеру можно подключить любой принтер, мышку или другой гаджет не важно какого производителя
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