• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

necrolord

Salários Com Impostos

1 mensagem neste tópico

Este programa foi feito para que, de 5 pessoas, ao introduzirem os dados:

Nome

Telefone

morada

mail

salário

O programa guardasse tudo num array e depois pelo valor do salário ia descontando ou não e quanto maior o salário, maior iriam ser os descontos.

Program rofl;
Uses CRT;
Type a=record
       nome:string[50];
       morada:String[100];
       telefone:string[14];
       mail:String[40];
       salario:real;
     end;
var
  func:a;
  trab: array [1..5] of a;
  c,x,y:Integer;
begin
clrscr;
write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍ»');
write('ºNome         º            º            º            º            º            º');
write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍ͹');
write('ºMorada       º            º            º            º            º            º');
write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍ͹');
write('ºTelefone     º            º            º            º            º            º');
write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍ͹');
write('ºE-Mai        º            º            º            º            º            º');
write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍ͹');
write('ºSal rio      º            º            º            º            º            º');
write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍ͹');
write('ºSal rio Finalº            º            º            º            º            º');
write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍͼ');
with func do
  begin
    Y:=2;
    x:=16;
    for c:=1 to 5 do
     begin
      gotoxy(x,y);
      readln(nome);
      gotoxy(x,y+2);
      readln(morada);
      gotoxy(x,y+4);
      readln(telefone);
      gotoxy(x,y+6);
      readln(mail);
      gotoxy(x,y+8);
      readln(salario);
      gotoxy(x,y+10);
      if salario<=500 then
        writeln(salario:6:2);
      if (salario>=501) and (salario<=1999) then
        begin
          salario:=salario*0.70;
          writeln(salario:6:2);
        end;
      if (salario>=2000) and (salario<=3999) then
        begin
          salario:=salario*0.65;
          writeln(salario:6:2);
        end;
      if salario>=4000 then
        begin
          salario:=salario*0.55;
          writeln(salario:6:2);
        end
      func:=trab[c];
      x:=x+13;
    end;
  end;
  readln;
end.

A Parte dos Códigos da tabela Ascii é que pode parecer confuso, mas não vejo outra maneira de por isto :(

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora