Amin4All
پنج شنبه 11 خرداد 1391, 20:21 عصر
سلام.
نیاز مبرم به 4 تا(یا بیشتر ) مسئله ساده یا حرفه ای مالی به زبان پاسکال دارم .
مثل یه همچین چیزی :
برنامه ای بنویسید که حقوق یک کارمند را دریافت کرده و اگر کمتر از 4500000 ریال باشد بدون کسر مالیات ان را پرداخت کند.در غیر این صورت تا کمتر از 6000000 ریال 7 % مالیات کمتر از 7500000 , 10% مالیات , کمتر از 9000000 , 15 % و بیشتر از 9000000 , 20% مالیات کسر نماید (این برنامه حقوق خالص را مشخص میکند )
برنامه به زبان پاسکال :
program
var a count
begin
read :(a)
if a<4500000 then
write :=(a)
end
else
if (a>4500000)and (a<6000000) then
begin
b=(a-4500000)*7/100
a=a-b
write (a)
end
if (a>6000000)and (a<7500000)then
begin
.
.
.
نیاز مبرم به 4 تا(یا بیشتر ) مسئله ساده یا حرفه ای مالی به زبان پاسکال دارم .
مثل یه همچین چیزی :
برنامه ای بنویسید که حقوق یک کارمند را دریافت کرده و اگر کمتر از 4500000 ریال باشد بدون کسر مالیات ان را پرداخت کند.در غیر این صورت تا کمتر از 6000000 ریال 7 % مالیات کمتر از 7500000 , 10% مالیات , کمتر از 9000000 , 15 % و بیشتر از 9000000 , 20% مالیات کسر نماید (این برنامه حقوق خالص را مشخص میکند )
برنامه به زبان پاسکال :
program
var a count
begin
read :(a)
if a<4500000 then
write :=(a)
end
else
if (a>4500000)and (a<6000000) then
begin
b=(a-4500000)*7/100
a=a-b
write (a)
end
if (a>6000000)and (a<7500000)then
begin
.
.
.