Advertisement
henriqueforino

LISTA03_EX05 2014/02

Oct 8th, 2014
192
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.35 KB | None | 0 0
  1. //ALUNO: Luiz Henrique Forino
  2. //PROGRAMAÇÃO I, PROFESSOR PX
  3. //2014/02
  4.  
  5. Program TABELA_CELSIUS_FARENHEIT ;
  6. const cini = -100;
  7. const cfinal = 100;
  8. var t, tf :real;
  9. Begin
  10.   t := cini;
  11.   while t <= cfinal do
  12.     begin
  13.       tf := 9.0/5*t+32;
  14.       writeln ('Celsius: ', t:5:2, ' ---- Farenheit: ', tf:5:2, '.');
  15.       t := t+5
  16.     end;      
  17. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement