| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
Calin Junior

Data inscrierii: 08/Noi/2007 Mesaje: 3
|
Trimis: 20/12/2007 09:58 Titlul subiectului: Greedy Gray |
|
|
| Cod: | type vector=array [1..100] of 0..1;
var n:integer;
i:byte;
b,g:vector;
procedure gray(n:integer);
begin
g[1]:=b[1];
for i:=2 to n do
g[i]:=(b[i]+b[i-1]) mod 2
end;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('b[',i,']=');
readln(b[i]);
end;
gray(n);
for i:=1 to n do
writeln(g[i]);
readln
end. |
|
|
| Sus |
|
 |
misanchik Junior

Data inscrierii: 21/Iul/2012 Mesaje: 5 Localitate: Bulgaria
|
Trimis: 02/08/2012 03:18 Titlul subiectului: |
|
|
| Very useful information |
|
| Sus |
|
 |
|