[בקשה] אתרים עם תרגילי פסקל (ותשובות)

[MeToRaF]

שלום אנשים ,
אני מאוד זקוז לעזרה הבאה:
אני אשמח אם תוכלו להביא לי אתרים שבהם תרגילים בנושא פסקל עם תשובות
תרגילים כאלה שאפשר לבוא איתם למבחן ולהיעזר בהם מאוד (מי שלא יודע,במבחנים במחשבים אפשר לבוא עם דפים,מחברות וספרים איך שבא)

תודה רבה רבה!!!

:eye:

[Taimors]

-נמחק-

[אור]

www.kadman.net

[MeToRaF]

דבר ראשון, איזה כיתה אתה ?

כיתה י"א

[Xn4T]

אז אתה מתכוון לעיצוב תוכנה לא?

[AvixTz]

עיצוב תוכנה ..
אתה יחידה 2 או 3 ?
אני אעזור לך .. תגיד לי מה אתה רוצה

[Alonh]

יש כאלה שעושים עיצוב תוכנה ביב'

[AvixTz]

ויש כאלה ביא'

[MeToRaF]

האמת לא יודע להסביר מה אני לומד
אני כיתה י"א והשנה אני עושה את הבגרות הראשונה במחשבים
אנחנו לומדים פסקל...
יותר מזה קשה לי להרחיב
תביאו כל מה שיש
ותודה למי שכבר הביא
מת עליכם.

[AvixTz]

יחידה ראשונה של פסקל ?
היא הכי קלה בעולםםםם
Readln
writeln
אפילו לולאות יהיה לכם רק את הבסיס , טוב מצאתי משהו קצר אז אני עושה הודעה כפולה * מצטער*

[AvixTz]

טוב אז הנה המדריך השני בסדרה של מדריכים פסקל ( יש עוד כמה בדרך )

מה יהיה במדריך?
1. פעולות Div ו Mode
2. פונקציות תקניות
3. ביטווי תנאי
4. Begin & End;
5. לולאת For
6. לולאת While


1. פעולות Div ו Mod

הערה: פעולות Div ו Mod פועלות רק על מספרים שלמים

מה זה Div ?
Div זאת פעולת חילוק ללא שארית
המבנה שלה הולך ככה

קוד:

Num Div Num2

כלומר מה שיצא מ Num חלקי Num2 ללא שארית
דוגמא ממשית:

קוד:

5 Div 2

אם היינו עושים 5 חלקי 2 זה היה מחזיר 2וחצי
אבל בפעולת div
זה מחזיר רק 2
כי זה ללא שארית.


מה זה Mod ?
Mod זוהי גם פעולת חילוק רק שפה זה מוציא את השארית

שימוש:

קוד:

Num mod Num2

כאילו מה שנשאר מ Num חלקי Num2

דוגמא ממשית:

קוד:

5 Mod 2

יחזיר 1

דוגמא לכתיבה

קוד:

program ex1;
var
Num,Num2:integer;
begin
Writeln('הקלד שני מספרים ');
readln(Num,Num2);
writeln('השארית של Num חלקי Num2 היא',Num mod Num2);
writeln('החילוק ללא שארית של Num חלקי Num2 היא',Num Div Num2);
end.

2. פונקציות תיקניות
מהם פונקציות?
פונקציות הם מין פקודות שמקבלות ערך ומחזירות ערך
בפסקל יש הרבה פונקציות אני אכתוב פה כמה בסיסיות.
לצורך העניין Num יהיה משתנה המכיל מספר כלשהו.

קוד:

1. Abs(Num) - מחזיר ערך מוחלט של Num
2. Sqr(Num) - מחזיר את Num בריבוע ( בחזקת 2 )
3. Sqrt(Num) - מחזיר את השורש ריבועי של Num
4. Round(Num) - מחזיר ערך מעוגל של Num
5. Trunc(Num) - מחזיר ערך מקוצר של Num
6. Succ(Num) - מחזיר את הערך העוקב של Num ( לא חייב להיות מספר יכול להיות גם תו )
7. Pred(Num) - מחזיר ערך קודם של Num ( לא חייב להיות מספר יכול להיות גם תו )

דוגמאות:

קוד:

Abs
1. Abs(5) - מחזיר 5
2. Abs(-5) - מחזיר 5

Sqr
1. Sqr(3) - מחזיר 9
2. Sqr(-2) - מחזיר 4

Sqrt
1. Sqrt(81) - מחזיר 9
2. Sqrt(9) - מחזיר 3

Round
1. Round(1.3) - מחזיר 2
2. Round(4.7) - מחזיר 5

Trunc
1. Trunc(2.6) - מחזיר 2
2. Trunc(3.1) - מחזיר 3

Succ
1. Succ(2) - מחזיר 3
2. Succ('B') - יחזיר C

Pred
1. Pred(2) - מחזיר 1

2. Pred('B') - מחזיר A

כמו ששמתם לב שהשתמשתי באותיות שמתי גרשים כדי שזה לא יחשב כמשתנה

יש עוד פונקציה שלא הזכרתי אותה מקודם
הפונקציה היא

קוד:

Rndom(Max) - מחזיר מספר רנדומלי בין 0 ל Max
Random(Max-Min+1)+Min - יחזיר מספר רנדומלי בין Min - Max

Min = גבול תחתון
Max = גבול עליון

הערה: פונקציה זאת תפעל רק אם לפני ההפעלה תרשמו

קוד:

Randomize;

כמה דוגמאות בתוכנית לשימוש בפונקציות:

קוד:

Program ex1;
Var
Min,Max:integer;
Begin
writeln('הקלד גבול תחתון ולאחר מכן הקלד גבול תחתון');
readln(Min,Max);
Randomize;
writeln('הערך המוחלט של גבול התחתון הוא',abs(Min));
writeln('המספר העוקב של הגבול העליון הוא',Succ(Max));
writeln('המספר הרנדומלי שיצא מהגבול עליון ומהגבול תחתון הוא',random(Max - Min + 1)+Min);
end.

כפי ששמתם לב
שהצגתי פלט את הטקסט שמתי בתוך גרשים ואת הפונקציה לא והפרדתי בינהם בפסיק
אז רק שתדעו אם אתם רוצים להציג משתנה וטקסט ביחד מפרידים כמו שעשיתי
ואם אתה רוצים להפריד שני משתנים עושים ככה

קוד:

Writeln(Var1,Var2);

3. ביטויי תנאי

המבנה של פקודת התנאי הוא:

If Then Else
בתרגום לעברית זה
אם אז אחרת

סימני התנאי הם:



עכשיו אני אתן לכם שני דוגמאות של תנאי

קוד:

1.
if (var1 > 3) then
writeln('ShagaLaga');

2.
if (Var1 <> 3) then
writeln('ShagaLaga')
else
writeln('FunScript');

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

קוד:

writeln('ShagaLaga')

אין נקודה פסיק
זה בגלל שאם אנו רוצים לעשות else אז לא שמים נקודה פסיק לפני

הארה: בביטוים בולאינים ) true או false ( אין צורך לרשום = וכדומה ניתן לרשום רק את הביטוי
כלומר:

קוד:

Program ex1;
var
Name:boolean;
begin
Name:=true;
if (Name) then
writeln('ShagaLaga')
else
writeln('FunScript');
end.

כמו שראיתם רשמתי רק את ששם המשתנה
בפסקל זה בודק אם זה true זה עושה את הפקודה הראשונה אחרת זהעושה את הפקודה השנייה

קשרים לוגיים
אם אנו רוצים לעשות שני תנאים או לעשות תנאי שאם אחד משני תנאים מתבצע צריכים להשתמש בקשרים לוגיים

אם אני למשל רוצה לבדוק אם המשתנה Var1 גדול מ 10 וקטן מ 20 אני צריך להשתמש בקשר לוגי and
להלן דוגמא:

קוד:

if (Var1 > 10) and (Var1 < 20) then
writeln('ShagaLaga')
else
writeln('FunScript');

אם אני רוצה לבדוק ש Var2 קטן מ -0 או גדול מ -10 אז צריך להשתמש בקשר לוגי OR
לדוגמא:

קוד:

if (Var2 > 0) or (Var2 > 10) then
writeln('ShagaLaga')
else
writeln('FunScript');

אפשר גם להשתמש בשניהם
דוגמא:

קוד:

if (Var2 > 0) or (Var2 > 10) or (Var1 > 10) and (Var1 < 20) then
writeln('ShagaLaga')
else
writeln('FunScript');

4. Begin & End;

Begin ו End;
נועדו כדי לרשום רצף של פקודות בתוך לולאה או תנאים או כל דבר אחר שמצריך כמה פעולות ( בתכנית עצמה אין צורך אלא אם כן זה בתוך פקודה )

לדוגמא
אם תעשו:

קוד:

if (Var1 = Var2) then
Writeln('ShagaLaga');
Writeln('FunScript');

התנאי הזה אמור לבדוק אם Var1 שווה ל Var2 אז זה יציג כפלט
ShagaLaga
FunScript
הבעיה היא שהוא ידפיס FunScript בכל מקרה
אז כדי שזה יבצע כמה פקודות צריך להשתמש ב Begin ו End;
והתנאי צריך להיות ככה

קוד:

if (Var1 = Var2) then
Begin
Writeln('ShagaLaga');
Writeln('FunScript');
End;

הערה: כל Begin צריך להיסגר ב End; אם לא יווצרו לכם בעיות וזה גם לא יעבור את הקומפייל ( מהדר )

הנה דוגמא לעוד תנאי

קוד:

if (Var1 = Var2) then
Begin
Writeln('ShagaLaga');
Writeln('FunScript');
End
else
begin
Writeln('FunScript');
Writeln('ShagaLaga');
end;

לאלה ששואלים למה לא שמתי ; ב End הראשון
זה בגלל שעשיתי Else
ואם עושים Else אז לפני זה לא יהיה ;

5. לולאת For

מה זה לולאה?
לולאה זאת פקודה שמאפשרת לנו לבצע פקדות כמה פעמים שנרצה
וזה גם עוזר לקצר את התוכנית

מבנה לולאת For

קוד:

For Variable:=Start TO/DownTO Max/Min Do

Variable = משתנה הלולאה כל שם שתירצו ( אתם חייבים לכריז על המשתנה )
Start = המספר שאיתו תתחיל הלולאה
TO/DownTO = או שזה יעלה או שזה ירד
Max/Min = עד איזה מספר יגיע

בוא ניתן דוגמא כדי שתבינו יותר

קוד:

For i:=1 to 30 do

הפקודה הנ"ל אומרת
עבור i שווה לאחת עד 30 בצע

עוד דוגמא

קוד:

For i:=30 DownTo 1 do

הפקודה הנ"ל אומרת עבור i שווה 30 עד 1 בצע
כאילו במקרה זה הלולאה יורדת ובמקרה הראשון הלולאה עולה.
חשוב לציין שבלולאת For זה מקדם את משתנה הלולאה לבד

בוא ניתן דוגמא ממשית שתעזור
אם אנחנו רוצים לעשות 5 פעמים

קוד:

Writeln('ShagaLaga');
Writeln('FunScript');

אז בטח היינו עושים כך:

קוד:

Writeln('ShagaLaga');
Writeln('FunScript');
Writeln('ShagaLaga');
Writeln('FunScript');
Writeln('ShagaLaga');
Writeln('FunScript');
Writeln('ShagaLaga');
Writeln('FunScript');
Writeln('ShagaLaga');
Writeln('FunScript');

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

קוד:

For i:=1 to 5 do
begin
Writeln('ShagaLaga');
Writeln('FunScript');
end;

שמתם לב שהשתמשתי פה ב Begin ו End;
כי רציתי לעשות שני פעולות
אם הייתי רוצה לעשות רק פעולה אחת יכולתי לעשות ככה

קוד:

For i:=1 to 5 do
writeln('ShagaLaga');

6. לולאת While

הפירוש של המילה While
זה כל עוד.
עכשיו יש כאלה ששואלים למה יש את While אם יש את For
אז אני אגיד לכם למה
בלולאת While כדי שהלולאה תמשיך צריך שיהיה תנאי
בלולאת For אי אפשר לעשות כל תנאי אלא רק תנאי שכל עוד מספר קטן ממספר
וב While זה כן אפשרי

מבנה הלולאה:

קוד:

While (תנאי) Do

הערה:התנאים ב לולאת While זה אותם תנאים כמו ב if

הנה דוגמא ללואת Whileבתוך תוכנית


קוד:

Progrma ex1;
var
Num:integer;
FL:boolean;
begin
Fl:=True;
Readln(Num);
while (Fl) do
begin
Num:=Num-1;
if (Num = 0) then
FL:=False;
end;
end.

מה שעשיתי כאן זה קלטתי מספר למשתנה Num
והצבתי ב Fl true
עכשיו עשיתי לולאה שכל עוד FL ( כל עוד הוא True)
זה יבצע את הפקודה הבאות:
יוריד 1 מהמספר Num
יבדוק אם Num שווה ל 0
אם כן זה יציב ב Fl false
ואז FL = false זה יצא מהלולאה

ניתן גם לעשות תבנאי של הלולאה and ו or
כמו שאמרתי זה תקף כמו ב if
( חוץ מ else )

עד כאן המדריך
המדריך נכתב ע"י Nati323


רק כמה מילים לסוף קודם כל אני מקווה שזה עזר לך ,
במידה ואתה מתחיל לקרוא מהסוף אז יש פה כמה דברים שאתה בטוח לא צריך , תבדוק ואז תקרא .

[MeToRaF]

לפי מה שהבנתי אנחנו גם עושים השנה 2-3 יח' בנוסף ליחידה הראשונה
ומה זה תודה לכל אלה שעוזרים באמת!!!
אם יש משהו גם ל2-3 אז תודה רבה

[Hoobastank]

את השטויות האלה אפילו אני זוכר למרות שלמדתי מחשבים רק בכיתה ט' ולא המשכתי יותר.

[kraft1]

תודה רבה yellow slider הייתי צריך את זה