[עזרה דחופה בפסקל!!!!]

Program Taxes;

(*תוכנית זו תקלוט מספר עובד, מספר שנות ותק, ומספר שעות עבודה בחודש, ותדפיס לפי נתונים אלה משכורת, לאחר ניקוי מסים.*)

Var Num,Years,Hours,PFH :Integer;

Pay1, Pay2 :Real;

Begin

Writeln(הקלד את מספר העובד שלך:);

Read(Num,);

Writeln(הקלד את מספר שנות הותק:);

Read(Years);

Writeln(הקלד את מספר שעות עבודה בחודש:);

Read(Hours);

If (Num >0) and (Years >0) and (c>0) and Hours <744) then begin

E:=15+5*b;

Pay1:= PFH * Hours;

If Pay1<=2000 then writeln (Pay1,משכורת חודשית היא:);

If (Pay1>2000) and (Pay1<10001) then begin

Pay1:= Pay2

Pay2:= Pay2-[ Pay1:(100*25)];

Writeln(Pay2,משכורת חודשית היא:);

end

Else begin

If (Pay1> 10000) then begin

Pay1:= Pay2;

Pay2:= Pay2-[Pay1/(100*50)];

Writeln(Pay2,משכורת חודשית היא:);

End;

End;

End;

Else writeln(עלייך להקליד מספר הקטן מ744);

End.

יש צורך בתיקונים?

[עזרה דחופה בפסקל!!!!]

תרגיל להגשה!!!!!

קרא נתונים על פועל במפעל הכוללים:

מספר עובד, מספר שנות ותק, מספר שעות עבודה בחודש.

התנאים לחישוב המשכורת הוא:

עד 2000 שקל לא יורד מס הכנסה כל סכום מעל 2000 שקל ומתחת ל10000 יורדים 25%,

על כל סכום שהוא מעל 10000 שקל יורדים 50%

מחיר שעת עבודה בסיסית עבור 0 שנות ותק, הוא 15 שקלים, עבור כל שנת ותק מקבלים 5 שקלים תוספת לשעה (שעת עבודה).

כל המביא לנו תוכנית זו מוכנה פרס כדאי!!!

אמת בדברים....