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
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 12:06 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 12
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 12:03 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 11
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 11:49 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 10
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 11:47 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 09
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 11:36 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 08
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 11:29 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 07
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 11:28 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 06
Hesap Makinesi Programı Icon_minitimeSalı Haz. 30 2009, 11:27 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 05
Hesap Makinesi Programı Icon_minitimeC.tesi Haz. 27 2009, 20:18 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 04
Hesap Makinesi Programı 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
 

 Hesap Makinesi Programı

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

Hesap Makinesi Programı Empty
MesajKonu: Hesap Makinesi Programı   Hesap Makinesi Programı Icon_minitimeCuma Haz. 06 2008, 11:57
program hesap_makinesi;
uses wincrt;
var
s1,s2:integer;
op:char;
sonuc:real;
begin
writeln('1. sayiyi girin:');readln(s1);
writeln('2. sayiyi girin:');readln(s2);
writeln('operatörü girin:');readln(op);
if op='+' then sonuc:=s1+s2;
if op='-' then sonuc:=s1-s2;
if op='*' then sonuc:=s1*s2;
if op='/' then sonuc:=s1/s2;
writeln(s1,op,s2,'=',sonuc:10:2);
readln;
end.
Sayfa başına dön Aşağa gitmek
 
Hesap Makinesi Programı
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-

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: