Kral-Forum - En Büyük Paylaşım Platformu
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Kral-Forum - En Büyük Paylaşım Platformu

Alemin En Kral Paylaşım Platform Sitesi
 
AnasayfaPortalLatest imagesKayıt OlGiriş yapsitemiekle

Kral-Forum - En Büyük Paylaşım Platformu :: Programlama Dilleri :: PascaL
 

 Net Maaşı Bulma

Aşağa gitmek 
YazarMesaj
By LaZoLi53
Administratör
By LaZoLi53


Erkek Mesaj Sayısı : 152
Nerden : mars\'dan
İş/Hobiler : pc,hacked
Kayıt tarihi : 18/02/08

By Poyraz
masterhack:
Net Maaşı Bulma Left_bar_bleue0/0Net Maaşı Bulma Empty_bar_bleue  (0/0)
Net Maaşı Bulma Empty
MesajKonu: Net Maaşı Bulma   Net Maaşı Bulma Icon_minitimeC.tesi Mart 22, 2008 12:49 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
https://kral-forum.catsboard.com
 
Net Maaşı Bulma
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Kral-Forum - En Büyük Paylaşım Platformu :: Programlama Dilleri :: PascaL-
Buraya geçin: