Fala galera do Show Delphi, tudo beleza?
Para resolver este exercício, o algoritmo precisará receber dois valores numéricos através da entrada de dados. Em seguida, verificar qual dos dois valores é o maior e qual é o menor. A diferença entre o maior e o menor valor é calculada e armazenada em uma variável. Finalmente, o resultado deve ser exibido na tela.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | programa Exercicio21; var A, B: Inteiro; inicio Escreva('Informe o primeiro valor: '); Leia(A); Escreva('Informe o segundo valor: '); Leia(B); se (A > B) entao Escreva('A diferença entre o números lidos é ', (A - B)) senao Escreva('A diferença entre o números lidos é ', (B - A)); fim. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | program Exercicio21; {$mode objfpc}{$H+} uses Classes, SysUtils; var A, B: Integer; begin try Write('Informe o primeiro valor: '); Readln(A); Write('Informe o segundo valor: '); Readln(B); if (A > B) then Write('A diferenca entre o numeros lidos eh ', (A - B)) else Write('A diferenca entre o numeros lidos eh ', (B - A)); Write(#10#13#10#13, 'Tecle "Enter" para sair.'); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. |
veja o mesmo exercício no site Giovani Da Cruz, através do link abaixo:
https://giovanidacruz.com.br/escrever-um-algoritmo-e-um-programa-que-leia-dois-valores-numericos-e-mostre-a-diferenca-do-maior-para-o-menor/
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
