• Portugol - visualg

    Desenvolver um algoritimo estruturado que leia um numero nao determinado de valores e calcule e escreva a media aritimetica dos valores lidos e quatindades de valores positivos e quantidades valores negativos e o percentual de valores positivo e negativos!!!

1 Resposta

  • Renato Neubert de Souza Renatorow

    begin

    file rd (kind = reader), pt (kind = printer);
    format intg (I10), real (f15.5);
    integer n = pos = neg = 0;
    real valor = media = ppos = pneg = 0;
    label fim;

    while true do
    begin
    read (rd, real) valor; if eof rd goto fim;
    media = media + valor;
    n = n + 1;
    if valor > 0 then pos = pos + 1;
    if valor < 0 then neg = neg + 1;
    end;

    fim: media = media / n;
    ppos = 100 * pos / n;
    pneg = 100 * neg / n;

    write (pt, real) "media: aritmética:", media;
    write (pt, intg) "numero de valores lidos:", n
    write (pt, intg) "numero de valores positivos:", pos
    write (pt, real) "percentual de valores positivos::", ppos,"%"
    write (pt, intg) "numero de valores negativos::", neg
    write (pt, real) "percentual de valores negativos:", pneg, "%"

    end;