Olá a todos, como foi a semana? Tudo bem? Espero em Deus que sim! Falta pouco para concluirmos o nosso curso de Lógica de Programação. Como toda longa caminhada sem fim, este é o primeiro passo! Desde já aviso que um dos exercícios está incompleto e como atividade final, cabe a você corrigi-lo.
A base necessária você já tem. Agora é escolher que caminho traçar: se vai para o Java, Ruby, PHP, C… Todo caminho é válido e muito bom – desde que esse caminho seja Java. :)
————————————————————————-
1 – Program Pzim ;
var a, b, aux:integer;
begin
a := 10;
b := 20;
aux := b;
b := a;
a := aux;
write ( ‘Variavel A = ‘, a,’ || Variável B = ‘, b);
end.
——————————————————————————-
2 – Program Pzim ;
var hr_trab:integer;
vl_hr, sal_final: real;
begin
writeln(‘Número de horas trabalhadas / mês: ‘);
read(hr_trab);
writeln(‘Valor da hora R$ ‘);
read(vl_hr);
if (hr_trab < 161) then
write(‘Salário Final R$ ‘, (vl_hr * hr_trab):2:2)
else
begin
sal_final := ((hr_trab – 160) * (vl_hr * 1.5)) + (160 * vl_hr);
write ( ‘O salário final é de R$ ‘,sal_final:2:2);
end;
end.
——————————————————————————-
3 – Program Pzim ;
var login, senha, tentativas:integer;
Begin
tentativas := 0;
while (tentativas <= 4) do
begin
writeln(‘Número de tentativas restantes: ‘, 4 – tentativas);
writeln (‘Digite o seu código de usuário: ‘);
read(login);
if (login <> 1234) then
begin
writeln (‘ Usuário Inválido, tente novamente’);
tentativas := tentativas + 1;
end
else
begin
write (‘Usuário encontrado, entre com a senha: ‘);
read(senha);
if (senha <> 9999) then
begin
writeln( ‘ Senha Inválida, tente novamente ‘);
tentativas := tentativas + 1 ;
end
else
write( ‘ *** Acesso Permitido *** ‘);
tentativas := 5;
end;
end;
if (tentativas = 4) then
write ( ‘ Infelizmente vc estourou o número de tentativas! ‘);
end.
——————————————————————————-
4 – Program Pzim ;
var num:Integer;
Begin
num := 10;
while (num > 0) do
begin
write(num, ‘ ‘);
num := num – 1;
end;
End.
——————————————————————————–
5 – Program Pzim ;
var num1, num2, soma:Integer;
Begin
write (‘Digite o primeiro número: ‘);
read (num1);
write (‘Digite o segundo número: ‘);
read (num2);
soma := 0;
if (num1 > num2) then
write (‘O primeiro número precisa ser maior que o segundo.’)
else
begin
while (num1 <= num2) do
begin
soma := num1 + soma;
num1 := num1 + 1;
end;
write(‘A soma é: ‘, soma);
end;
End.
———————————————————————————-
Bem, descubra o erro em um destes! Mas aconselho a otimizar os que aí estão, ajudará muito na carreira. Fiz alguns de forma mais complexa; entender como foi feito é essencial! É nossa penúltima aula, muito obrigado a todos que fizeram parte deste curso e nós do Guia desejamos uma boa jornada. Na nossa próxima aula, concluiremos o curso com uma introdução a Orientação a Objetos!
Grande Abraço a todos e muito obrigado!
