Exercicios while

//exercicio 1


Program ENQUANTO ;
Var salario, novo_salario: real;
    contador: integer;
 Begin
     contador :=0;
     while (contador < 150) do
     begin
     writeln ('Entre com salário');
     read(salario);

     IF (salario >= 1800.00) then
            begin
                novo_salario := salario + (salario * 5/100);
                writeln ('O Novo salario é', novo_salario:0:2);
            end
        ELSE
             begin
                 novo_salario := salario + (salario * 10/100);
                 writeln ('O novo salario é',  novo_salario:0:2);
             end;
             contador := contador +1;
     end;


 End.

//exercicios 2


Program ENQUANTO ;
Var valor, valornovo: real;
    contador: integer;
 Begin
     contador :=0;
     while (contador < 200) do
     begin
     writeln ('Entre com o valor do produto');
     read(valor);

     IF (valor >= 15.00) then
            begin
                valornovo := valor - (valor * 20/100);
                writeln ('O Novo salario é ', valornovo:0:2);
            end
        ELSE
             begin
                 valornovo := valor - (valor * 10/100);
                 writeln ('O novo salario é ',  valornovo:0:2);
             end;
             contador := contador +1;
     end;


 End.

//exercicio 3


Program ENQUANTO ;
Var valor, valornovo: real;
    contador: integer;
 Begin
     contador :=0;
     while (contador < 100) do
     begin
     writeln ('insira a media do aluno:');
     read(valor);

     IF (valor >= 70) then
            begin
                valornovo := valor - (valor * 20/100);
                writeln ('APTO');
            end
        ELSE
             begin
                 valornovo := valor - (valor * 10/100);
                 writeln ('Voce precisa estudar mais');
             end;
             contador := contador +1;
     end;


 End.

//exercicio 4


Program ENQUANTO ;
Var porcentagem, valornovo: real;
    contador: integer;
 Begin
     contador :=0;
     while (contador < 250) do
     begin
     writeln ('insira a porcentagem de comissao do vendedor:');
     read(porcentagem);

     IF (porcentagem >= 15) then
            begin
                valornovo := porcentagem + (porcentagem * 3/100);
                writeln ('A nova comissao do vendedor e ', valornovo);
            end
        ELSE
             begin
                 valornovo := porcentagem + (porcentagem * 5/100);
                 writeln ('A nova comissao do vendedor e ', valornovo);
             end;
             contador := contador +1;
     end;


 End.

//exercicio 5



Program ENQUANTO ;
Var saldo, valornovo: real;
    contador: integer;
 Begin
     contador :=0;
     while (contador < 250) do
     begin
     writeln ('Insira o Saldo do cliente:');
     read(saldo);

     IF (saldo = 0) then
            begin
                writeln ('SALDO ZERADO');
            end
     ELSE

     IF (saldo > 0) then
            begin
                writeln ('Saldo Azul');
            end
     ELSE
             begin
                 writeln ('Saldo Vermelho');
             end;
          contador := contador +1;

     end;


 End.