Em um exercício que solicitava a conversão de temperaturas conforme sua unidade, tentei proceder da forma descrita abaixo. O intuito era criar condições para que os cálculos das temperaturas já tivessem armazenados, só precisando na entrada de dados informar as unidades, mas meu resultado só dá zero.
Minha duvida: Quero saber se há como fazer realmente essa condição. Vi que fiz uma condição para o tipo de unidade e ai executar o calculo. Isso pode? Abraços e obrigado.
Program q6;varC,F,K,T:REAL;U1,U2:STRING;ce,fa,ke:STRING;Beginwriteln('digite a temperatura: ');readln(T);writeln('digite a unidade: ');readln(U1);writeln('digite a unidade para conversao: ');readln(U2);if (U1=ce) and (U2=fa) thenF:=((9*T)+160)/5;writeln('a temperatura é: ',F);if (U1=fa) and (U2=ce) thenC:= ((5*T)-160)/9;writeln('a temperatura é: ',C); if (U1=ce) and (U2=ke) thenK:=(T+273);writeln('a temperatura é: ',K);if (U1=ke) and (U2=ce) thenC:=(T-273);writeln('a temperatura é: ',C);if (U1=fa) and (U2=ke) then K:= ((5*T)+2297)/9;writeln('a temperatura é: ',K);if (U1=ke) and (U2=fa) thenF:=((9*T)-2297)/5;writeln('a temperatura é: ',F);End.