Para galera do Show Delphi, tudo beleza?
Vamos a um novo exercício e como sempre já dividindo a pergunta para facilitar a resolução.
Parte 1
Escrever um algoritmo e um programa que leia uma temperatura em graus Fahrenheit.
Parte 2
Calcular a conversão desta temperatura para graus Centígrados.
Sendo que a fórmula de conversão é: C = (F – 32) / 1.8. Onde F é a temperatura em Fanrenheit e C é a temperatura em Centígrados.
Parte 3
Mostrar a temperatura lida em graus Centígrados.
Agora pessoal, vamos a uma primeira sugestão de resposta.
Sugestão de resposta do algoritmo em linguagem algorítmica:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | programa AlgoritmoSequencial0003; var vTempF, vTempC : Real; inicio // parte 1 escreva('Informe a temperatura em graus Fahrenheit.'); leia(vTempF); // parte 2 vTempC := (vTempF - 32) / 1.8; // parte 3 escreva('A temperatura em graus Centígrados é: ', (vTempF)); fim. |
Como de costume, vamos ao exemplo em Delphi, Lazarus, Pascal.
Sugestão de resposta em Pascal, Delphi Console, Lazarus
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | { Para escrever acentos em pascal, devemos usar a tabela ASCII. } program Prj00003AlgoritmosSequencias; {$APPTYPE CONSOLE} uses SysUtils; var vTempC, vTempF : Real; begin Writeln('Algoritmo 00003 - Algoritmos sequenciais. Show Delphi.'); Write('Informe a temperatura em graus Fahrenheit: '); Readln(vTempF); vTempC := (vTempF - 32) / 1.8; Writeln('A temperatura em graus Centigrados é: ', (vTempC) :0:2); Write('Tecle "Entrer" para sair.'); Readln; end. |
Por pedido de usuários, vamos a um exemplo em C.
Sugestão de resposta em C, C++ / C Builder
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 | #include <vcl.h> #pragma hdrstop #include <tchar.h> #include <stdio.h> #include <conio.h> #include <stdlib.h> #include <time.h> #include <string.h> //--------------------------------------------------------------------------- #pragma argsused void _tmain(){ printf("Algoritmo 00003 - Algoritmos sequenciais. Show Delphi.\n"); system("chcp 1252 > nul"); printf("\nInforme a temperatura em graus Fahrenheit: "); float vTempF; scanf("%f", &vTempF); float vTempC; vTempC = (vTempF - 32) / 1.8; printf("\nA temperatura em graus Centígrados é: %-7.2f", (vTempC)); printf("\n\n"); system("pause"); } |
Também por pedidos de usuários, vamos a um exemplo em java.
Sugestão de resposta em Java
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | package exercicio3; import javax.swing.JOptionPane; /** * * @author Franciele Benedetti */ public class Exercicio3 { public static void main(String[] args) { Double grausFahrenheit = 0.0; Double grausCentigrados; System.out.println("Informe a temperatura em graus Fahrenheit"); grausFahrenheit = Double.parseDouble(JOptionPane.showInputDialog("Informe a temperatura em graus Fahrenheit")); grausCentigrados = (grausFahrenheit - 32) / 1.8; System.out.println("A temperatura em graus Centigrados é: " + grausCentigrados); } } |
Para facilitar vamos assistir a implementação ao vivo em Lazarus.
Abaixo segue o exemplo implementado no vídeo da série algoritmo ao vivo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | program alt3; uses sysutils; var vGrausFahrenheit : Double; vGrausCentigrados : Double; begin { parte 1 } Write('Informe a temperatura em graus Fahrenheit: '); ReadLn(vGrausFahrenheit); { parte 2 } vGrausCentigrados := (vGrausFahrenheit - 32) / 1.8; { parte 3 } Write(Utf8ToAnsi('A temperatura em graus Centígrados é de: ')); WriteLn(FormatFloat('#0.00', vGrausCentigrados)); Write('Enter para fechar!'); ReadLn; end. |
Novas linguagens? Solicite pelos comentários.
Dúvidas ou sugestões? Deixe o seu comentário!
Um abraço e até a próxima pessoal. Valeu!
