31 Oca 2012 @ 8:58 PM 
 

-20 ile +20 arası celcius ve fahrenheit’e dönüştürüp ekrana yazdıran program.

 

uses crt;
var
a,fahrenheit:real; x:integer;
begin
clrscr;
x:=1;
a:=-21;
while a<1 do begin
a:=a+1;
x:=x+1;
gotoxy(1,1); writeln(‘celcius’);
gotoxy(15,1); writeln(‘fahrenheit’);
gotoxy(1,x); write(a:3:0);
gotoxy(15,x); fahrenheit:=(9/5*a)+32; writeln(fahrenheit:3:1); end;
readln;
end.

Tags Kategori: Pascal Programlama Konu Sahibi: NIKIMLOSAC
En son düzenleme: 31 Oca 2012 @ 08 58 PM

Email • Permalink
Önceki Konu Next
 

Responses to this post » (None)

 

Post a Comment

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Comment Meta:
RSS Feed for comments
TrackBack URI
\/ More Options ...
Son Açılan 50 Konu
Back
Register an account
Change Theme...
  • Users » 1
  • Posts/Pages » 310
  • Comments » 5
Change Theme...
  • VoidVoid « Default
  • LifeLife
  • EarthEarth
  • WindWind
  • WaterWater
  • FireFire
  • LightLight

Pascal Örnekleri



  • No Child Pages.

Wp eklenti listesi



  • No Child Pages.