Nara Ferreira muito obrigado, xxxxxx como eu não pensei nisso,huahauhha. To começando agora mais deveria ter essa lógica de entender isso dai. Muito obrigado Nara.
De nada
Nara Ferreira hasn't added any friends yet.
No latest visitors to show
29/02/2012, 14:02
Nara Ferreira muito obrigado, xxxxxx como eu não pensei nisso,huahauhha. To começando agora mais deveria ter essa lógica de entender isso dai. Muito obrigado Nara.
27/02/2012, 16:14
Galera não estou conseguindo entender por que minha lógica não está funcionando. Ao meu entender eu no for da inversão quando (i for igual a 1 eu armazeno a primeira posição na variável auxiliar e pego a última posição do vetor com i:=11-i que dá igual a 10 e assim continuamente.) Porém quando vai escrever o programa não faz nenhuma inversão. Agradeço desde já quem me ajudar a entender por que minha lógica não funciona.
Program inversao_de_posicao ;
var
vetor,espelho:array[1..10]of integer;
x:integer;
i,j:integer;
Begin
for i:=1 to 10 do
begin
write('Escreva o vetor: ');
readln(vetor[i]);
espelho[i]:=vetor[i];
end;
for i:=1 to 10 do
begin
x:=vetor[i];
vetor[i]:=vetor[11-i];
vetor[11-i]:=x;
end;
for i:=1 to 10 do
writeln('Vetor original: ',espelho[i]);
write('');
for i:=1 to 10 do
writeln('vetor apos a inversao: ',vetor[i]);
End.
begin
x:=vetor[i];
vetor[i]:=vetor[11-i];
vetor[11-i]:=x;
end;
Community Forum Software by IP.Board
Licensed to: Webmasters Online