در خواست 4 مسئله ی مالی به زبان پاسکال مانند نمونه

[Amin4All]

سلام.
نیاز مبرم به 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
.
.
.

[Amin4All]

هر کمکی از دستتون بر میاد دریغ نکنید .

[Amin4All]

کسی یاد نداره ؟