Ajuda com algoritmo em Pascal

comp
(usa Outra)

Enviado em 01/04/2024 - 15:27h

Preciso de um algoritmo em linguagem Pascal, que utilize function e procedure para média, soma, maior e menor valor de um array [1..10] de real. Se possível mostrar a posição e quantas vezes aparece o mesmo número digitado.

alexabolada
(usa Debian)

Enviado em 01/04/2024 - 15:27h

Para resolver esse problema em Pascal, você pode fazer uso de uma função para calcular a média, a soma, o maior e o menor valor de um array de 10 elementos e também mostrar a posição e a quantidade de vezes que um número específico aparece. Veja um exemplo de como você pode implementar isso:

[code]
program CalculoArray;

var
arrayNum: array [1..10] of real;

procedure preencherArray();
var
i: integer;

begin
for i := 1 to 10 do
begin
write('Digite o valor da posição ', i, ': ');
readln(arrayNum[i]);
end;
end;

function calcularMaior(): real;
var
i: integer;
maior: real;

begin
maior := arrayNum[1];
for i := 2 to 10 do
begin
if arrayNum[i] > maior then
maior := arrayNum[i];
end;

calcularMaior := maior;
end;

function calcularMenor(): real;
var
i: integer;
menor: real;

begin
menor := arrayNum[1];
for i := 2 to 10 do
begin
if arrayNum[i] < menor then
menor := arrayNum[i];
end;

calcularMenor := menor;
end;

function calcularMedia(): real;
var
i

danniel-lara
(usa Fedora)

Enviado em 01/04/2024 - 16:11h

talvez ajude

program CalculoArray;



const

  TAMANHO_ARRAY = 10;



type

  TArray = array[1..TAMANHO_ARRAY] of real;



var

  numeros: TArray;



procedure LerNumeros(var numeros: TArray);

var

  i: integer;

begin

  writeln('Digite os ', TAMANHO_ARRAY, ' números do array:');

  for i := 1 to TAMANHO_ARRAY do

  begin

    write('Número ', i, ': ');

    readln(numeros[i]);

  end;

end;



function Media(const numeros: TArray): real;

var

  i: integer;

  soma: real;

begin

  soma := 0;

  for i := 1 to TAMANHO_ARRAY do

    soma := soma + numeros[i];

  Media := soma / TAMANHO_ARRAY;

end;



function Soma(const numeros: TArray): real;

var

  i: integer;

begin

  Soma := 0;

  for i := 1 to TAMANHO_ARRAY do

    Soma := Soma + numeros[i];

end;



function MaiorValor(const numeros: TArray): real;

var

  i: integer;

begin

  MaiorValor := numeros[1];

  for i := 2 to TAMANHO_ARRAY do

    if numeros[i] > MaiorValor then

      MaiorValor := numeros[i];

end;



function MenorValor(const numeros: TArray): real;

var

  i: integer;

begin

  MenorValor := numeros[1];

  for i := 2 to TAMANHO_ARRAY do

    if numeros[i] < MenorValor then

      MenorValor := numeros[i];

end;



procedure PosicaoEQuantidade(const numeros: TArray; const valor: real; var posicao: integer; var quantidade: integer);

var

  i: integer;

begin

  quantidade := 0;

  for i := 1 to TAMANHO_ARRAY do

  begin

    if numeros[i] = valor then

    begin

      quantidade := quantidade + 1;

      posicao := i;

    end;

  end;

end;



var

  mediaNum, somaNum, maiorNum, menorNum: real;

  num: real;

  posicaoNum, quantidadeNum: integer;



begin

  LerNumeros(numeros);

  mediaNum := Media(numeros);

  somaNum := Soma(numeros);

  maiorNum := MaiorValor(numeros);

  menorNum := MenorValor(numeros);



  writeln('Média: ', mediaNum:0:2);

  writeln('Soma: ', somaNum:0:2);

  writeln('Maior valor: ', maiorNum:0:2);

  writeln('Menor valor: ', menorNum:0:2);



  write('Digite um número para encontrar a posição e quantidade de ocorrências: ');

  readln(num);

  PosicaoEQuantidade(numeros, num, posicaoNum, quantidadeNum);

  if quantidadeNum > 0 then

    writeln('O número ', num:0:2, ' aparece na posição ', posicaoNum, ' e ocorre ', quantidadeNum, ' vez(es).')

  else

    writeln('O número ', num:0:2, ' não foi encontrado no array.');



  readln;

end.