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

[pho]

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

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

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

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

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

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

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

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

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

[Holy]

ממש עצוב

תעשה את השיעורים שלך לבד

ותעיף את כל הסימני קריאה מהכתורת (חוקי הפורום)

[MasterOr]

לא מבין מה הבעיה תרגיל כל כך פשוט הכל שם זה IFים

באיזה שיטה אתה רוצה את הפתרון ? פרוצדורה או תוכנית פשוטה ?

[Pure-Gold]

אני זוכר שעשיתי תוכנית כזו שלמדתי פסקל.

אני בדעה של Holy

[Saliman]

תן לי לנחש...

אתה בטכ"ם, וכרגע למדתם מה זה Case of ואין לך שמץ של מושג מה לעשות בזה?

קיצר כל מה שאתה צריך לעשות זה לעשות readln (workersallary) למשכורת ולהריץ על זה case of workersallary

בלה בלה

אותו דבר גם לגבי הקריטריון השני

[pho]

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.

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

[Bug2000]

קשה מאוד להבין מה כתבת כי זה התבלגן עם העיברתי והאנגלית :\

במבט ראשון רואים ששחכת לכתוב input,output .

[114508534]

זה מאד פשוט או IF או CASE רק תבחר .