exemplo de vetores

Publicado por NewLinuxer 10/12/2005

[ Hits: 7.308 ]

Download exerc02.pas




programa que exemplifica o uso do array e das operaçoes entre varios arrays juntos.
neste script o usuário preenche tres vetores de dez campos cada, após isso a soma dos tres vetores é armazenada num quarto vetor, que ao final será exibido, como sendo a soma de cada linha e somado, para mostrar a soma total.
não tem utilidade pratica, mas é bom pra quen tá começando.

  



Esconder código-fonte

program exercicio02;

uses crt;

type
  vetores = array [1..10] of integer;

var
  vet01, vet02, vet03, vet04: vetores;
  soma01, soma02, soma03, soma04, cont: integer;

begin
  clrscr;

  soma01:=0;
  soma02:=0;
  soma03:=0;
  soma04:=0;

  for cont := 1 to 10 do
  begin
    write ('Digite o ',cont:2,'§ n£mero do vetor 01: ');
    readln (vet01[cont]);
    vet04[cont] := vet01[cont];

    write ('Digite o ',cont:2,'§ n£mero do vetor 02: ');
    readln (vet02[cont]);
    vet04[cont] := vet02[cont] + vet04[cont];

    write ('Digite o ',cont:2,'§ n£mero do vetor 03: ');
    readln (vet03[cont]);
    vet04[cont] := vet03[cont] + vet04[cont];

    writeln
  end;

  for cont := 1 to 10 do
  begin
    soma01 := soma01 + vet01[cont];
    soma02 := soma02 + vet02[cont];
    soma03 := soma03 + vet03[cont];
    soma04 := soma04 + vet04[cont];
  end;

  writeln('A 1§ soma parcial ‚: ', soma01);
  writeln('A 2§ soma parcial ‚: ', soma02);
  writeln('A 3§ soma parcial ‚: ', soma03);
  writeln('A soma total (Vetor 04) ‚: ', soma04);

  readkey;

end.

Scripts recomendados

Cauculadora em Pascal

Números perfeitos

Criptografador(Conceito criptografia)Lazarus

Script Tabuada

calculo da somatoria da diagonal principal


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts