WwW.FoRumSTylE.TuRKpr0foRuM.NET
Would you like to react to this message? Create an account in a few clicks or log in to continue.
WwW.FoRumSTylE.TuRKpr0foRuM.NET


 
AnasayfaPorTaLGaleriAramaLatest imagesKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» kurtlar Vadisi Pusu Bölüm 13
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 12:06 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 12
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 12:03 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 11
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 11:49 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 10
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 11:47 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 09
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 11:36 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 08
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 11:29 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 07
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 11:28 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 06
Procedure İle Dört İşlem Icon_minitimeSalı Haz. 30 2009, 11:27 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 05
Procedure İle Dört İşlem Icon_minitimeC.tesi Haz. 27 2009, 20:18 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 04
Procedure İle Dört İşlem Icon_minitimeC.tesi Haz. 27 2009, 20:15 tarafından yasakmc

Dost siteler
Kral Forumtr

WwW.FoRumSTylE.TuRKpr0foRuM.NET :: Teknoloji üzerine herşey :: PROGRAMLAMA DİLLERİ :: PASCAL
 

 Procedure İle Dört İşlem

Aşağa gitmek 
YazarMesaj
GÖZDE
Admin
Admin
GÖZDE


Kadın
Mesaj Sayısı : 1274
Yaş : 31
Nerden : sakarya
Kayıt tarihi : 05/05/08

Procedure İle Dört İşlem Empty
MesajKonu: Procedure İle Dört İşlem   Procedure İle Dört İşlem Icon_minitimeCuma Haz. 06 2008, 12:55
Program girdiğiniz iki sayıyı dört işleme tabi tutar. Sonunda ekrana yazdırır.}


uses wincrt;
Var
a,b,c,t,f,x:real;

Procedure dortislem; {Procedure başlangıcı}
Begin
t:=a+b;
c:=a*b;
x:=a/b;
f:=a-b;
End;{Procedure bitişi}

Begin
write('Birinci Sayı = ');read(a);
write('İkinci Sayı = ');read(b);
dortislem; {Burda procedure'ü çağırıyoruz}
writeln('Fark: ',f:1);
writeln('Toplam: ',t:1);
writeln('Bölüm: ',x:1);
writeln('Çarpma: ',c:1);
End.
Sayfa başına dön Aşağa gitmek
 
Procedure İle Dört İşlem
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
WwW.FoRumSTylE.TuRKpr0foRuM.NET :: Teknoloji üzerine herşey :: PROGRAMLAMA DİLLERİ :: PASCAL-
Buraya geçin: