programa AlgoritmoSequencial0002;
 
var
  vTempC, vTempF : Real;
inicio
  // parte 1
  escreva('Informe a temperatura em graus Centígrados');
  leia(vTempC);
 
  // parte 2
  vTempF := vTempC * 1.8 + 32;
 
  // parte 3
  escreva('A temperatura em graus Fahrenheit é: ', (vTempF));
 
fim.

{ Para escrever acentos em pascal, devemos usar a tabela ASCII. }
 
program Prj00002AlgoritmosSequencias;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  vTempC, vTempF : Real;
begin
  Writeln('Algoritmo 00002 - Algoritmos sequenciais. Show Delphi.');
 
  Write(#10 + 'Informe a temperatura em graus Centigrados: ');
  Readln(vTempC);
 
  vTempF := vTempC * 1.8 + 32;
 
  Writeln(#10 + 'A temperatura em graus Fahrenheit '#130': ', (vTempF) :0:2);
 
  Write(#10#10, 'Tecle "Entrer" para sair.');
  Readln;
end.

#pragma hdrstop
#pragma argsused
 
#ifdef _WIN32
#include <tchar.h>
#else
  typedef char _TCHAR;
  #define _tmain main
#endif
 
#include <stdio.h>
#include <tchar.h>
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <time.h>
#include <string.h>
 
 int _tmain(int argc, _TCHAR* argv[]) 
{
        printf("Algoritmo 00002 - Algoritmos sequenciais. Show Delphi.\n");
	system("chcp 1252 > nul");
 
	printf("\nInforme a temperatura em graus Centígrados: ");
	float vTempC;
	scanf("%f", &vTempC);
 
	float vTempF;
	vTempF = vTempC * 1.8 + 32;
 
	printf("\nA temperatura em graus Fahrenheit é: %-7.2f", (vTempF));
 
	printf("\n\n");
	system("pause");    
}

package exercicio2;
 
import javax.swing.JOptionPane;
 
/**
 *
 * @author Franciele Benedetti
 */
public class Exercicio2 {
 
    public static void main(String[] args) {
 
        Double grausCentigrados;
        Double grausFahrenheit;
 
        System.out.println("Informe a temperatura em graus Centigrados");
        grausCentigrados
                = Double.parseDouble(JOptionPane.showInputDialog("Informe a temperatura em graus Centigrados: "));
 
 
        grausFahrenheit = ((grausCentigrados * 1.8)+32);
        System.out.println("A temperatura em graus Fahrenheit é" + grausFahrenheit );
 
    }
 
}

program alt000002;
 
uses
  sysutils;
 
var
  vTempCentigrados, vTempFahrenheit : Double;
 
begin
  { Solicitando a temperatura em graus Centígrados }
  Write(Utf8ToAnsi('Informe a temperatura em graus Centígrados: '));
  ReadLn(vTempCentigrados);
 
  { Convertendo a temperatura }
  vTempFahrenheit:= (vTempCentigrados * 1.8) + 32;
 
  { Mostrar o resultado do calculo }
  Write(Utf8ToAnsi('A temperatura em graus Fahrenheit é de: ') +
    FormatFloat('#0.00', vTempFahrenheit));
 
  WriteLn('');
  Write('Enter para fechar!');
  ReadLn;
end.