Bedava forum kurmaya hazir misin ? | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Yetkinblog
ForumAlem

ForumAlem
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 NET MAASI BULMA

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ToPrAk
Admin
Admin
avatar

Mesaj Sayısı : 457
Kayıt tarihi : 05/08/08
Yaş : 28
Nerden : KONYA

MesajKonu: NET MAASI BULMA   Cuma Ağus. 08, 2008 6:03 pm

program MaaS;
uses wincrt;
var
vergi,brut,Nmaas,Vorani:real;
begin
Vorani:=0.25;
write('Brut maas giriniz:');
readln(brut);
if brut>=1000000 then
begin
vergi:=brut*Vorani;
Nmaas:=brut-vergi;
writeln('NET MAAS=',Nmaas:12:2)
end
else
begin
Nmaas:=brut;
writeln('NET MAAS=',Nmaas:12:2)
end;
end.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
NET MAASI BULMA
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumAlem :: Programlama Dilleri :: PascaL-
Buraya geçin: