Um dado pode armazenar diversos tipos?

Question

Estou tentando fazer esse algortimo,mas não entendi bem.

Escreva um algoritmo que receba um número seguido de um espaço e uma letra. Se a letra seguinte ao número for F, o algoritmo deve tratar o número digitado como uma temperatura em graus Fahrenheit...

Algoritmo FC;
var A,num: real;
caract: caractere; { Criei a variável caract pra armazenar uma letra,a num pra armazenar um número(real) e a A seria de que tipo? Real mesmo?? Se for,como ela vai armazenar caracteres?}

A<- num+ ' ' +caract;
{e o espaço,é de que tipo? Ou não precisa ser declarado?}

Escreva um algoritmo que receba um número seguido de um espaço e uma letra. Se a letra seguinte ao número for F, o algoritmo deve tratar o número digitado como uma temperatura em graus Fahrenheit, converter o número para o equivalente em graus Celsius e imprimir uma mensagem adequada. Se a letra seguinte ao número for C, o algoritmo deve tratar o número digitado como uma temperatura em graus Celsius, converter o número para o equivalente em graus Fahrenheit e imprimir uma mensagem adequada. Se a letra não for F nem C, o algoritmo deve imprimir uma mensagem avisando que os dados estão incorretos e terminar. Use uma estrutura Se/Então/SeNão e faça uso das fórmulas de conversão:
Celsius = (5.0 / 9.0) * (Fahrenheit - 32.0)
Fahrenheit = (9.0 / 5.0) * Celsius + 32.0


Algoritmo FC;
var num,Fahrenheit,Celsius: real;
' ': caractere;


Escreva ("Qual o valor? Número seguido de F ou número seguido de C ");
Leia(num);

Se (num)+( ' ' )+ (F) ou (num)+(F)então
{ até aqui está correto? }

Answer 1

putz, to com mta mas mtaaaaaaaaa preguiça mesmo de fazer em "portugol" vai em pascal mesmo..
se n conseguir converter me fala q eu penso no caso...



program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
lido, tipo: string;
temp, c, f: real;

begin
write('Qual o valor? Número seguido de F ou número seguido de C: ');
readln(lido);
tipo := copy(lido,length(lido),1);
temp := StrToFloat(copy(lido,1,length(lido)-1));
if(tipo='F')then
begin
c := (5.0 / 9.0) * (temp - 32.0);
writeln('a temperatura de '+floattostr(temp)+'F é equivalente a '+floattostr(c)+'C');
end
else if(tipo='C')then
begin
f := (9.0 / 5.0) * (temp + 32.0);
writeln('a temperatura de '+floattostr(temp)+'C é equivalente a '+floattostr(f)+'F');
end
else
writeln('nao valido');
read(lido);
end.

Answer 2

é simples. basta fazer um vetor ou matriz do tipo string

Answer 3

NÃO PRECISA NADA DISSO, DECLARA COMO CHAR E PRONTO, STRING