Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //ALUNO: Luiz Henrique Forino
- //PROGRAMAÇÃO I, PROFESSOR PX
- //2014/02
- Program TABELA_CELSIUS_FARENHEIT ;
- const cini = -100;
- const cfinal = 100;
- var t, tf :real;
- Begin
- t := cini;
- while t <= cfinal do
- begin
- tf := 9.0/5*t+32;
- writeln ('Celsius: ', t:5:2, ' ---- Farenheit: ', tf:5:2, '.');
- t := t+5
- end;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement