Trab Inform Tica

Instituto Federal de Educação, Ciência e Tecnologia da Bahia.
Data: 09/03/2015
Professora: Simone Amorim Disciplina: Informática
Aluna: Nicole Karen Moura de Jesus Número: 33

1. Primeira questão: //Nicole Karen Moura de Jesus // Automação Industrial - 5812 - Número 33
Program Eleicao; var candidato1, candidato2, candidato3, eleitores, voto, contador: integer;
Begin
writeln ('Digite o total de eleitores'); readln (eleitores); for contador:=1 to eleitores do begin writeln ('Digite o número do candidato'); readln (voto); if voto=1 then inc(candidato1) else if voto=2 then inc(candidato2) else if voto=3 then inc (candidato3); end; writeln ('Total de votos por candidatos'); writeln ('Candidato 1 = ',candidato1); writeln ('Candidato 2 = ',candidato2); writeln ('Candidato 3 = ',candidato3);
End.
2. Segunda questão //Nicole Karen Moura de Jesus // Automação Industrial - 5812 - Número 33
Program Aposentadoria; var idade, ano, codigo, tdt, ingresso: real;
Begin
writeln ('Digite o código do funcionário:'); readln (codigo); writeln ('Digite os 4 dígitos do ano do nascimento do funcionário:'); readln (ano); writeln ('Digite os 4 dígitos do ano de ingresso do funcionário na empresa'); readln (ingresso); idade:= (2015-ano); tdt:= (2015-ingresso);
If (idade>=65) then writeln ('O funcionário',codigo,' trabalhou',tdt,'anos na empresa, tem',idade,'anos.Requerer aposentadoria') else if (tdt>=30) then writeln ('O funcionário',codigo,' trabalhou',tdt,'anos na empresa, tem',idade,'anos.Requerer aposentadoria') else if (idade>=60) and (tdt>=25) then writeln ('O funcionário',codigo,' trabalhou',tdt,'anos na empresa, tem',idade,'anos.Requerer aposentadoria.') else writeln ('Não requerer aposentadoria');
End.
3. Terceira questão //Nicole Karen Moura de Jesus // Automação Industrial - 5812 - Número 33
Program Intersecao; var C, T, X, Y: integer;
Begin
writeln