Exercicios - se...entao
-
Upload
farofadevoz -
Category
Documents
-
view
1.137 -
download
14
Transcript of Exercicios - se...entao
Lista de Exercícios utilizando comando de condição (alternativa)
1) Faça um algoritmo que leia os valores A, B, C, e diga se a soma de A + B é menor que C.
2) Faça um algoritmo que leia dois valores inteiros A e B, e se os valores forem iguais deverá se somar os dois, caso contrário multiplique A por B ao final do calculo atribuir o valor para uma variável C.
3) Faça um algoritmo que leia o nome e as três notas de uma disciplina de uma aluno e ao final escreva o nome do aluno, sua média e se ele foi aprovado a média é 8.
4) Faça um algoritmo que leia 2 números inteiros e escreva o menor deles.
5) Faça um algoritmo que leia 3 números inteiros e escreva o menor deles.
6) Faça um algoritmo que leia 4 números inteiros e escreva o menor deles.
7) Dados três valores distintos, fazer um algoritmo que, após a leitura destes dados coloque-os em ordem crescente.
8) Uma empresa decide dar um aumento de 30% aos funcionários cujo salário é inferior a R$ 5.000,00 . Escreva um algoritmo que possa ser utilizado para o calculo de reajuste do salário de um funcionário.
9) Uma empresa decide dar um aumento de 25,5 % aos funcionários cujo o salário é inferior a R$ 2.000,00 e tenha mais de 2 dependentes e 15% para os que ganham acima de R$ 2.000,00 e tenha um dependente e 7,5% para os que acima e não tenham dependente
Resposta1)
Program Questao1 ; var a,b,c:real; Begin write('digite valor a:'); read (a); write('digite valor b:'); read (b); write('digite valor c:'); read (c); if a+b<c then write('A soma de a+b+c',a+b:2:2,'É MENOR QUE c',c:2:2) else writeln('A soma de a+b NAO E MENOR QUE c ',a+b+c:2:2); End.
2) Program Questao2 ;var A,B,C:real; Begin write('Digite o Valor de A: '); read(A); write('Digite o valor de B: '); read(B); if A=B then begin C:=a+b; writeln (C:2:2); end else if a<>b then C:=a*b; writeln (C:2:2); End.
3) Program Questao3 ;var nota1,nota2,nota3,media:real;
nome :string[35];//string=cadeia de caracteres Begin //entrada de dados write ('Digite o nome do Aluno:'); read(nome); write('Digite nota1: '); read(nota1); write('Digite nota2: '); read(nota2); write('Digite nota3: '); read(nota3); //processamento (calculos) media:=(nota1+nota2+nota3)/3; //saida de dados(impressao dos relatorios) writeln('Nome do Aluno: ',nome); writeln('Media obtida: ',media:2:2); if(media>=8)then begin write('Aprovado!'); write('Parabens'); end else if(media<8)then begin write ('Reprovado'); end End.
4) Program Questao4 ;var A,B:integer; Begin write('Digite o valor de A: '); read (A); write('Digite o valor de B: '); read (B); Begin if A<B then write ('o menor numero e ',A) End; Begin if A>B then write ('o menor numero e ',B) End; if A=B then write ('os dois numeros sao iguais') End.
5)Program Questao5 ; var A,B,C:Integer; Begin write('Digite o valor de A: ') ; read(A); write('Digite o valor de B: '); read(B); write('Digite o valor de C: '); read(C); Begin if A<B and A<C then write('o menor numero e o ',A) End; Begin if B<A and B<C then write('o menor numero e o ',B) End; if C<A and C<B then write('o menor numero e o ',C) End.
6)Program Questao6 ; var A,B,C,D:Integer; Begin write('Digite o valor de A: ') ; read(A); write('Digite o valor de B: '); read(B); write('Digite o valor de C: '); read(C);write('Digite o valor de D: '); read(D);Begin if A<B and A<C and A<D then write('o menor numero e o ',A) End; Begin if B<A and B<C and B<D then write('o menor numero e o ',B) End;Begin if C<A and C<B and C<D then write('o menor numero e o ',C)End;If D<A and D<B and D<C thenWrite('o menor numero e o ', C)End.
7)Program questao7; var a,b,c:integer;Begin write('Digite o valor de A: '); read(a); write('Digite o valor de B: '); read(b); write('Digite o valor de C: '); read(c); if(a<b)and(b<=c) then writeln ('primeiro: ',a:1,', segundo: ',b:1,', terceiro: ',c:1); if(a<=c) and (c<b)then writeln ('primeiro: ',a:1,', segundo: ',c:1,', terceiro: ',b:1); if(b<=a) and (a<c)then writeln ('primeiro: ',b:1,', segundo: ',a:1,', terceiro: ',c:1); if(b<c) and (c<=a)then writeln ('primeiro: ',b:1,', segundo: ',c:1,', terceiro: ',a:1); if(c<=b) and (b<a)then writeln ('primeiro: ',c:1,', segundo: ',b:1,', terceiro: ',a:1); if(c<a) and (a<=b) then writeln ('primeiro: ',c:1,', segundo: ',a:1,', terceiro: ',b:1); if(a=b)and(b=c) then writeln ('A, B e C, sao iguais');
end.
8)Program Questao8 ; var salario,reajuste:real; Begin write ('Digite o salario'); read (salario); if(salario<=5000) then; reajuste:=salario*30.0/100; writeln('Salario:',salario:4:2); writeln('Reajuste:',reajuste:4:2); write('Novo Salario:',salario+reajuste:4:2); End.
9)Program Questao;VAR salario,reajuste:real; dependente:integer;
Begin write('Digite valor salario: ') ; read(salario); write('Digite quantidade dependetens: ') ; read (dependente); if((salario<2000)and(dependente>=2))then reajuste:=salario*25.5/100 else if((salario>2000)and(dependente=1))then reajuste:=salario*15.0/100 else if((salario<2000)and(dependente>=2))then reajuste:=salario*7.5/100 else reajuste:=0; writeln('Salario: ',salario:4:2,'Reajuste: ',reajuste:4:2); write('Novo Salario: ',salario+reajuste:4:2); End.