Buscar

Algoritmo de inversão de uma sequência - PASCAL

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program invseq; {by: Matheus Silva}
 const max = 10;
	 min = 1;
	 type seq = array[min..max] of integer;
		var i : integer; 
		var vet: seq;
	Procedure inverter(var s:seq);
		var temp: integer; x,y: real;
		begin 
		 for i:= min to max div 2 do begin
				temp:= s[i];
				s[i]:= s[max-i+min];
				s[max-i+min]:= temp
			end;
		end;
	Begin
		writeln('Digite uma sequencia de 10 numeros inteiros');
		for i:=min to max do readln (vet[i]);
 for i:=min to max do begin
					write(vet[i]);
					write(' ')
				end;
		inverter(vet);
		writeln;writeln;
				for i:=min to max do begin
						write(vet[i]);
						write(' ')
				end;
	End.

Teste o Premium para desbloquear

Aproveite todos os benefícios por 3 dias sem pagar! 😉
Já tem cadastro?

Outros materiais