SHARE
TWEET

Codigo nova materia

Jono007 Oct 18th, 2019 101 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //Escreva um programa que LEIA o salário de 150 funcionários de uma
  2. //empresa. SE o salário do funcionário for maior ou igual a R$ 1800.00
  3. //de um aumento de R$ 5%. SENÃO, de um aumento de 10%. com isso,
  4. //CALCULE e MOSTRE o novo salário.
  5.  
  6. Program ENQUANTO ;
  7. Var salario, novo_salario: real;
  8.     contador: integer;
  9.  Begin
  10.      contador :=0;
  11.      while (contador < 150) do
  12.      begin
  13.      writeln ('Entre com salário');
  14.      read(salario);
  15.      
  16.      IF (salario >= 1800.00) then
  17.             begin
  18.                 novo_salario := salario + (salario * 5/100);
  19.                 writeln ('O Novo salario é', novo_salario:0:2);
  20.             end
  21.         ELSE
  22.              begin
  23.                  novo_salario := salario + (salario * 10/100);
  24.                  writeln ('O novo salario é',  novo_salario:0:2);
  25.              end;
  26.              contador := contador +1;
  27.      end;        
  28.      
  29.  
  30.  End.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top