Vetores

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (707 palavras )
  • Download(s) : 0
  • Publicado : 2 de maio de 2012
Ler documento completo
Amostra do texto
vetores
FIXAÇÃO DE CONTEÚDO – PROF. AMAURI JR – ESTRUTURAS DE DADOS

VETOR

d) Faça um algoritmo igual a este que receba, via teclado, um vetor A (de inteiro) de tamanho 20 e um vetor B (deinteiro) de tamanho 30, e apresente-os na tela.
PROGRAM VETOR_AB;

var
A : ARRAY[1..20] OF INTEGER;
B : ARRAY[1..30] OF INTEGER;
I : INTEGER ;
BEGIN
FOR I := 1 TO 20 DO
BEGINWRITELN('Digite o ', I ,'o. VALOR: ');
READLN(A[I]);
END;
FOR I := 1 TO 30 DO
BEGIN
WRITELN('Digite o ', I ,'o. VALOR: ');
READLN(B[I]);
END;FOR I := 1 TO 20 DO
WRITELN(A[I]);
FOR I := 1 TO 30 DO
WRITELN(B[I]);
END.
E) Faça um algoritmo igual a este que receba, via teclado, um vetor A (de inteiro) de tamanho40 e um vetor B (de inteiro) de tamanho 60, concatene num vetor C, e apresente na tela o vetor C .
PROGRAM CONCATVETOR;

var
A : ARRAY[1..40] OF INTEGER;
B : ARRAY[1..60] OF INTEGER;
C :ARRAY[1..100] OF INTEGER;
I : INTEGER ;
BEGIN
FOR I := 1 TO 40 DO
BEGIN
WRITELN('Digite o ', I ,'o. VALOR: ');
READLN(A[I]);
END;
FOR I := 1 TO 60 DO
BEGINWRITELN('Digite o ', I ,'o. VALOR: ');
READLN(B[I]);
END;
FOR I:= 1 TO 100 DO
IF I a[J]) then
beginx := a[I];
a[I] := a[J];
a[J] := X;
end;
for I := 1 to 20 dowriteln('Nome: ' ,I, ' --> ', a[I]);
end.


e) Faça um algoritmo igual a este que receba, via teclado, um vetor A (de inteiro) de tamanho 20 e um vetor B (de inteiro) de tamanho 30,ordene cada vetor e apresente-os na tela ordenados.
Exercício_e;
var
A: array[1..20] of integer;
B: array[1..30] of integer;
I, j: integer;
X: string;
Begin
For i:= 1 to 20 do
Begin...
tracking img