Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  drc_kf
Language: PASCAL
Code:
program derece_cevrim;
var
  c ,k   : integer;
  f:real;
begin
  write('santigrad derece :?');
  Readln(c);
  k:=273 + c;
  write(c,' derece centigrade is equal to:');
  writeln(k,'derece kelvin');
   
  f:= c*1.8 + 32;
  write(c,' derece centigrade is equal to:');
  writeln(f,'derece fahrenheit');

readln;
end.                  
          
          
          
          
          
Comments: