www.liderhacker.tr.gg
   
  OKS
  TEST ÇÖZME TEKNİKLERİ
 
Program uc_notun_ortalamasini_bulur; uses crt; Var {degisken tanimlama blogu} not1,not2,not3 : integer; ortalama : real; Begin {Ana Program Bloğu} textcolor(1); write('notlari girmek icin enter a basin ***********(en fazla 10 basamak)************'); ReadLn; textcolor(3); write('1. notu giriniz (rakamla)---------------->:');ReadLn(not1); textcolor(3); write('2. notu giriniz (rakamla)---------------->:');ReadLn(not2); textcolor(3); write('3. notu giriniz (rakamla)---------------->:');ReadLn(not3); ortalama:=(not1+not2+not3)/3; WriteLn('******************************************************************************'); textcolor(9); WriteLn('Ortalama Bulundu gormek icin enter a basin'); WriteLn('******************************************************************************'); ReadLn; textcolor(3); WriteLn('uc notun ortalamasi =',ortalama:5:2); textcolor(12); WriteLn('------------------------------------------------------------------------------'); textcolor(9); WriteLn('programi kullandiginiz icin tesekkurler.............................. Fatih Ok'); textcolor(12); WriteLn('------------------------------------------------------------------------------'); WriteLn('scientist.fatih@gmail.com '); WriteLn('------------------------------------------------------------------------------'); textcolor(3); WriteLn('uc notun ortalamasi =',ortalama:5:2); textcolor(90); WriteLn('***************bu program pascal dili ile yazilmistir*************************'); textcolor(12); WriteLn('programi sonlandirmak icin Entera basin---------------FATIH OK-------P@SCAL---'); WriteLn('******************************************************************************'); WriteLn('programi sonlandirmak icin Entera basin---------------FATIH OK-------P@SCAL---'); WriteLn('******************************************************************************'); ReadLn; end. fatih ok scientist.fatih@gmail.com
 
 
  Bugün 10 ziyaretçi (13 klik) kişi burdaydı!  
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol