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.

{ 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.

#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");
}

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);
    }
}

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.