API tools faq
paste
Jono007

Exercícios 3 escolhas PASCAL

Jono007
Oct 1st, 2019
57
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 13.09 KB | None | 0 0
raw download clone embed print report
  1. //exercicio 1
  2.  
  3. Program exe1;
  4. var a:real;
  5.  
  6. Begin
  7.         writeln('insira a altura do atleta');
  8.         read(a);                                                   
  9.        
  10.                         if(a>=1.95) then
  11.                                                          writeln ('O esporte é basquete')
  12.                        
  13.                         else
  14.                                  if(a>=1.90) then
  15.                                                                     writeln ('O esporte é volei')
  16.                                                                  
  17.                                                                     else
  18.                                                                     writeln ('O Esporte é futebol');
  19.  
  20. End.
  21.  
  22.  
  23. //exercicio 2
  24.  
  25. Program pes;
  26. var altura,peso,imc: real;
  27.  
  28. Begin
  29.         writeln('insira a altura do atleta');
  30.         read(altura);  
  31.         writeln('peso');
  32.         read(peso);
  33.         imc:=peso/(altura*altura) ;                                    
  34.        
  35.                         if(imc>=30) then
  36.                                                          writeln ('Obeso Mórbido IMC=', imc)
  37.                        
  38.                         else
  39.                                  if(imc>=26) then
  40.                                                                     writeln ('Obeso', imc)
  41.                                                                  
  42.                                                                     else
  43.                                                                     writeln ('Normal',imc);
  44.  
  45. End.
  46.  
  47. //exercicio 3
  48.  
  49. Program pes;
  50. var nota1,nota2,nota3,media : real;
  51.  
  52. Begin
  53.         writeln('insira a nota da PROVA 1');
  54.         read(nota1);
  55.         writeln('insira a nota da PROVA 2');
  56.         read(nota2);   
  57.         writeln('insira a nota da PROVA 3');
  58.         read(nota3);
  59.         media:=(nota1+nota2+nota3)/3;  
  60.                                    
  61.        
  62.         if(media>=8.0) then
  63.                         begin
  64.                                  writeln ('Parabéns conceito A!');
  65.                                  writeln ('Sua nota foi', media);
  66.                         end
  67.         else
  68.        
  69.                     if(media>=5.0) then
  70.                                     begin
  71.                                          writeln ('Pode melhorar, seu conceito é B!');
  72.                                          writeln('Sua nota foi',media);
  73.                                     end
  74.                                                                                              
  75.                       else
  76.                               begin
  77.                                              writeln ('Estude mais! seu conceito é C!');
  78.                                              writeln ('Sua nota foi', media);
  79.                   end
  80. End.
  81.  
  82.  
  83.  
  84.  
  85. //exercicio 4
  86.  
  87. Program pes;
  88. var salario,aumento20,aumento10,aumento5,diferenca1,diferenca2,diferenca3 : real;
  89. var nome : string;
  90.  
  91. Begin
  92.         writeln('insira o Nome do jogador');
  93.         read(nome);
  94.         writeln('Insira o salário do jogador');
  95.         read(salario); 
  96.  
  97.         if (salario<=1000) then
  98.        
  99.         begin
  100.        
  101.                     aumento20:=(salario*0.2)+salario;
  102.                     diferenca1:=-1*(salario-aumento20);
  103.                     writeln('O Nome do jogador é:', nome);
  104.                     writeln('O Salario atual é: R$', Salario);
  105.                     writeln('O Aumento com o reajuste é: R$', diferenca1);
  106.                     writeln('Seu novo salário com o reajuste de 20% é: R$',aumento20);
  107.        
  108.         end
  109.        
  110.         ELSE
  111.        
  112.                 IF (salario<=5000) then
  113.                
  114.                 begin
  115.                      aumento10:=(salario*0.1)+salario;
  116.                          diferenca2:=-1*(salario-aumento10);
  117.                          writeln('O Nome do jogador é:', nome);
  118.                          writeln('O Salario atual é: R$', Salario);
  119.                        writeln('O Aumento com o reajuste é: R$', diferenca2);
  120.                          writeln('Seu novo salário com o reajuste de 10% é: R$',aumento10);
  121.                 end
  122.         ELSE
  123.        
  124.         begin
  125.  
  126.                     aumento5:=(salario*0.05)+salario;
  127.                     diferenca3:=-1*(salario-aumento5);
  128.                     writeln('O Nome do jogador é:', nome);
  129.                     writeln('O Salario atual é: R$', Salario);
  130.                     writeln('O Aumento com o reajuste é: R$', diferenca3);
  131.                     writeln('Seu novo salário com o reajuste de 5% é: R$',aumento5);
  132.         end
  133.        
  134. End.
  135.  
  136.  
  137. //exercicio 5
  138.  
  139. Program Pzim ;
  140. var diarias,conta1,conta2,conta3:real;
  141. var nome,a,b,c,tipo:string;
  142. Begin
  143.          writeln('Insira o nome do hóspede');
  144.          read(nome);
  145.          writeln('Insira o numero de diarias');
  146.          read(diarias);
  147.          writeln('Insira o tipo do APTO');
  148.          read(tipo);
  149.          
  150.          A:=('a');
  151.          B:=('b');
  152.          C:=('c');
  153.          
  154.          
  155.          IF (tipo=A)then
  156.          
  157.          begin
  158.                     conta1:=diarias*150;
  159.                     writeln('HÓSPEDE:',nome);
  160.                     writeln('Valor da conta:',conta1);
  161.          end
  162.          
  163.          ELSE
  164.      
  165.          IF(tipo=B) then
  166.          
  167.          begin
  168.                     conta2:=diarias*100;
  169.                     writeln('HÓSPEDE:',nome);
  170.                     writeln('Valor da conta:',conta2);
  171.          end
  172.          
  173.          ELSE
  174.          
  175.          IF(tipo=C) then
  176.          
  177.          begin
  178.                     conta3:=diarias*75 ;
  179.                     writeln('HÓSPEDE:',nome);
  180.                     writeln('Valor da conta:',conta3);
  181.          end
  182.          
  183.          ELSE
  184.          
  185.                  writeln('TIPO DE APTO NÃO REGISTRADO');
  186.                      
  187.  
  188. End.
  189.  
  190.  
  191.  
  192. //exercicio 6
  193.  
  194. Program Pzim ;
  195. var lado:real;
  196. Begin
  197.      writeln('insira o numero de lados do poligono');
  198.      read(lado);
  199.      
  200.      if (lado=3) then
  201.    
  202.           writeln('TRIANGULO')
  203.      
  204.          else
  205.      
  206.      if (lado=4) then
  207.      
  208.         writeln('QUADRADO')
  209.      
  210.          else
  211.            
  212.      if (lado=5) then
  213.      
  214.         writeln('pentagono')
  215.        
  216.      else
  217.      
  218.       writeln('NãO ESPECIFICADO');
  219.                            
  220.    
  221. End.
  222.  
  223.  
  224. //exercicio 7
  225. Program Pzim ;
  226. var lado1,lado2,lado3,equilatero:real;
  227. Begin
  228.      writeln('insira um lado de um trangulo');
  229.      read(lado1);
  230.      writeln('insira um lado de um trangulo');
  231.      read(lado2);
  232.      writeln('insira um lado de um trangulo');
  233.      read(lado3);
  234.      
  235.      equilatero:=(lado1+lado2+lado3)/3;
  236.      //DEVE DAR O MESMO TAMANHO      
  237.            
  238.          if (lado1=equilatero) then
  239.        
  240.          writeln('O triangulo é Equilatero')
  241.              
  242.          else
  243.          
  244.          if (lado1=lado2) then
  245.          
  246.          begin
  247.                     if(lado1=lado3) then
  248.                     writeln('O triangulo é Equilatero')
  249.                    
  250.                     else
  251.                     writeln('O triangulo é Isósceles');
  252.          end
  253.          
  254.          else
  255.          
  256.          if (lado1<>lado2) then
  257.          
  258.          begin
  259.                     if (lado1<>lado3) then
  260.                     writeln('triangulo Escaleno')
  261.                     else
  262.                     writeln('triangulo Isósceles');
  263.          end
  264.                                          
  265.  
  266.      
  267. End.
  268.  
  269.  
  270.  
  271. //exercicio 8
  272.  
  273. Program Pzim ;
  274. Var multiplicacao,divisao,adicao,subtracao,valor,valor2 :integer;
  275. var resultado : real;
  276. var op:real;
  277. Begin
  278.      writeln('insira o primeiro valor inteiro');
  279.      read(valor);
  280.      writeln('insira o segundo valor inteiro');
  281.      read(valor2);
  282.      writeln('--------------------------');
  283.      writeln('- 1. Adição              -');
  284.      writeln('- 2. Subtração           -');
  285.      writeln('- 3. Divisão             -');
  286.      writeln('- 4. Multiplicação       -');
  287.      writeln('--------------------------');
  288.      writeln('Insira a operação a ser feita:');
  289.      read(op);
  290.      
  291.      adicao:=1;
  292.      subtracao:=2;
  293.      divisao:=3;
  294.      multiplicacao:=4;
  295.      
  296.      begin
  297.                 if (op=adicao) then
  298.                   begin
  299.                                  resultado:=valor+valor2;
  300.                                  writeln('ESCOLHIDO ADIÇÃO');
  301.                         end
  302.                 else
  303.                 if (op=subtracao) then
  304.                     begin
  305.                                  resultado:=valor-valor2;
  306.                                  writeln('ESCOLHIDO SUBTRAÇÃO');
  307.                         end          
  308.                 else
  309.                  if(op=divisao) then
  310.                   begin
  311.                                  resultado:=valor/valor2 ;
  312.                          writeln('ESCOLHIDO DIVISÃO');
  313.                         end
  314.                      else
  315.                     if (op=multiplicacao) then
  316.                       begin                        
  317.                                  resultado:= valor*valor2 ;
  318.                              writeln('ESCOLHIDO MULTIPLICAÇÃO');
  319.                       end
  320.                      else
  321.                     writeln('Operação não especificada');
  322.          end;
  323.          
  324.          writeln('O Resultado é:',resultado);           
  325.      
  326. End.
  327.  
  328. //exercicio 8.1
  329.  
  330. Program Pzim ;
  331. Var multiplicacao,divisao,adicao,subtracao,valor,valor2,quadrado,raiz :integer;
  332. var resultado : real;
  333. var op:real;
  334. Begin
  335.      //writeln('insira o primeiro valor inteiro');
  336.      //read(valor);
  337.      //writeln('insira o segundo valor inteiro');
  338.      //read(valor2);
  339.      writeln('----B e m _-_V i n d o----');
  340.      writeln('___C A L C U L A D O R A__');
  341.      writeln('--------------------------');
  342.      writeln('- 1. Adição              -');
  343.      writeln('- 2. Subtração           -');
  344.      writeln('- 3. Divisão             -');
  345.      writeln('- 4. Multiplicação       -');
  346.      writeln('- 5. Quadrado de um Nº   -');
  347.          writeln('- 6. Raíz quadrada       -');    
  348.      writeln('--------------------------');
  349.      writeln('Insira a operação a ser feita:');
  350.      read(op);
  351.  
  352.      
  353.      adicao:=1;
  354.      subtracao:=2;
  355.      divisao:=3;
  356.      multiplicacao:=4;
  357.      quadrado:=5;
  358.      raiz:=6;
  359.      
  360.  
  361.          if(op=raiz) then
  362.          begin
  363.          
  364.                     writeln('Insira o Valor para tirar a raíz quadrada:');
  365.                     read (valor);
  366.                     resultado:=SQRT(valor);
  367.          end
  368.          
  369.          else
  370.          
  371.   begin
  372.  
  373.      
  374.          if (op<>quadrado) then
  375.          begin  
  376.                  writeln('insira o primeiro valor inteiro');
  377.                read(valor);
  378.                  writeln('insira o segundo valor inteiro');
  379.                  read(valor2);
  380.                  
  381.                  begin
  382.                 if (op=adicao) then
  383.                             begin
  384.                                  resultado:=valor+valor2;
  385.                                  writeln('ADIÇÃO');
  386.                         end
  387.                 else
  388.                 if (op=subtracao) then
  389.                             begin
  390.                                  resultado:=valor-valor2;
  391.                                  writeln('SUBTRAÇÃO');
  392.                         end          
  393.                 else
  394.                  if(op=divisao) then
  395.                   begin
  396.                                  resultado:=valor/valor2 ;
  397.                          writeln('DIVISÃO');
  398.                         end
  399.                      else
  400.                     if (op=multiplicacao) then
  401.                       begin                        
  402.                                  resultado:= valor*valor2 ;
  403.                              writeln('MULTIPLICAÇÃO');
  404.                       end
  405.                      else
  406.                                         if (op=quadrado) then
  407.                                                                                  begin
  408.                                                                                         resultado:=valor*valor;                      
  409.                                                                                  end
  410.                               else
  411.                               writeln('Operação não especificada');
  412.            end;
  413.                  
  414.      end
  415.      
  416.      else
  417.           begin
  418.                             writeln('Insira o valor a ser elevado ao quadrado');
  419.                             read(valor);
  420.                             if (op=quadrado) then
  421.                     begin
  422.                             resultado:=valor*valor;                      
  423.                     end
  424.                 else
  425.           end
  426.                                        
  427.   end;                                                                       
  428.                              
  429.                          
  430.          writeln('O Resultado é:',resultado);          
  431.      
  432. End.
  433.  
  434.  
  435.  
  436. //exercicio 8.2
  437.  
  438. Program teste ;
  439. Var multiplicacao,divisao,adicao,subtracao,valor,valor2,quadrado,raiz :integer;
  440. var resultado : real;
  441. var op:real;
  442. Begin
  443.      //writeln('insira o primeiro valor inteiro');
  444.      //read(valor);
  445.      //writeln('insira o segundo valor inteiro');
  446.      //read(valor2);
  447.      writeln('----B e m _-_V i n d o----');
  448.      writeln('___C A L C U L A D O R A__');
  449.      writeln('--------------------------');
  450.      writeln('- 1. Adição              -');
  451.      writeln('- 2. Subtração           -');
  452.      writeln('- 3. Divisão             -');
  453.      writeln('- 4. Multiplicação       -');
  454.      writeln('- 5. Quadrado de um Nº   -');
  455.          writeln('- 6. Raíz quadrada       -');    
  456.      writeln('--------------------------');
  457.      writeln('Insira a operação a ser feita:');
  458.      read(op);
  459.  
  460.      
  461.      adicao:=1;
  462.      subtracao:=2;
  463.      divisao:=3;
  464.      multiplicacao:=4;
  465.      quadrado:=5;
  466.      raiz:=6;
  467.      
  468.  
  469.          if(op=raiz) then
  470.          begin
  471.          
  472.                     writeln('Insira o Valor para tirar a raíz quadrada:');
  473.                     read (valor);
  474.                     resultado:=SQRT(valor);
  475.          end
  476.          
  477.          else
  478.          
  479.          if(op<=6) then
  480.          
  481.   begin
  482.  
  483.      
  484.          if (op<>quadrado) then
  485.          begin  
  486.                  writeln('insira o primeiro valor inteiro');
  487.                read(valor);
  488.                  writeln('insira o segundo valor inteiro');
  489.                  read(valor2);
  490.                  
  491.                  begin
  492.                 if (op=adicao) then
  493.                             begin
  494.                                  resultado:=valor+valor2;
  495.                                  writeln('ADIÇÃO');
  496.                         end
  497.                 else
  498.                 if (op=subtracao) then
  499.                             begin
  500.                                  resultado:=valor-valor2;
  501.                                  writeln('SUBTRAÇÃO');
  502.                         end          
  503.                 else
  504.                  if(op=divisao) then
  505.                   begin
  506.                                  resultado:=valor/valor2 ;
  507.                          writeln('DIVISÃO');
  508.                         end
  509.                      else
  510.                     if (op=multiplicacao) then
  511.                       begin                        
  512.                                  resultado:= valor*valor2 ;
  513.                              writeln('MULTIPLICAÇÃO');
  514.                       end
  515.                      else
  516.                                         if (op=quadrado) then
  517.                                                                                  begin
  518.                                                                                         resultado:=valor*valor;                      
  519.                                                                                  end
  520.                              
  521.            end;
  522.                  
  523.      end
  524.      
  525.      else
  526.           begin
  527.                             writeln('Insira o valor a ser elevado ao quadrado');
  528.                             read(valor);
  529.                             if (op=quadrado) then
  530.                     begin
  531.                             resultado:=valor*valor;                      
  532.                     end
  533.                 else
  534.           end
  535.                                        
  536.   end                                                                        
  537.                              
  538.      else
  539.           begin
  540.                          writeln('Operação não especificada');
  541.                      resultado:=0;
  542.               end;
  543.              
  544.                                    
  545.          writeln('O Resultado é:',resultado);          
  546.      
  547. End.
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!