home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / pascal / 7839 < prev    next >
Encoding:
Text File  |  1993-01-04  |  926 b   |  40 lines
  1. Newsgroups: comp.lang.pascal
  2. Path: sparky!uunet!cs.utexas.edu!torn!watserv2.uwaterloo.ca!sciborg.uwaterloo.ca!nowinski
  3. From: nowinski@sciborg.uwaterloo.ca (Andrew Nowinski)
  4. Subject: tvquestion
  5. Message-ID: <C0C9px.7GA@watserv2.uwaterloo.ca>
  6. Sender: news@watserv2.uwaterloo.ca
  7. Organization: University of Waterloo
  8. Date: Mon, 4 Jan 1993 16:56:20 GMT
  9. Lines: 29
  10.  
  11.  
  12. Hi,
  13.    my name Mark Nowinski I was wondering how I can put my program
  14. into Turbo Vision. (Program listed below)
  15.  
  16. Program Convert;
  17. Uses CRT;
  18. const
  19.     intercept = 32.0;
  20.     slope = 1.8;
  21. Var
  22.   fahrenheit, celsius : real;
  23. begin
  24. ClrScr;
  25.      write('Enter the degrees in Celsius: ');
  26.      readln(celsius);
  27.      fahrenheit := intercept + celsius * slope;
  28.      writeln('That is equal to ',fahrenheit:3:0,' degrees F');
  29. repeat until keypressed;
  30. ClrScr;
  31. end.
  32.  
  33.  
  34. I would appreciate if someone wrote a short demo program.
  35.  
  36. --
  37. Mark Nowinski
  38. E-Mail: nowinski@sciborg.uwaterloo.ca
  39.  
  40.