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.

• Download exerc02.pas
• Enviar nova versão

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.

soma de um intervalo

Calculadora Empresarial Lazarus

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

programa pra somar e tirar média

Matriz simétrica

Nenhum comentário foi encontrado.