![](https://hwzone.co.il/community/uploads/set_resources_18/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
![](https://hwzone.co.il/community/uploads/set_resources_18/84c1e40ea0e759e3f1505eb1788ddf3c_default_photo.png)
pho
-
מספר הודעות
32 -
הצטרפות
-
ביקר לאחרונה
אף פעם
הודעות שנפתחו על-ידי pho
-
-
תרגיל להגשה!!!!!
קרא נתונים על פועל במפעל הכוללים:
מספר עובד, מספר שנות ותק, מספר שעות עבודה בחודש.
התנאים לחישוב המשכורת הוא:
עד 2000 שקל לא יורד מס הכנסה כל סכום מעל 2000 שקל ומתחת ל10000 יורדים 25%,
על כל סכום שהוא מעל 10000 שקל יורדים 50%
מחיר שעת עבודה בסיסית עבור 0 שנות ותק, הוא 15 שקלים, עבור כל שנת ותק מקבלים 5 שקלים תוספת לשעה (שעת עבודה).
כל המביא לנו תוכנית זו מוכנה פרס כדאי!!!
אמת בדברים....
עזרה דחופה בפסקל!!!!
ב תכנות
פורסם
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.
יש צורך בתיקונים?