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

הנה השאלה

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

-מספר הקופסאות המלאות (בבקבוקים) שניתן לארוז

-מספר הבקבוקים הלא ארוזים

-המחיר הכולל של הקופסאות קרטון אלו

מה הבעיה?

מספר הקופסאות המלאות זה מספר_הבקבוקים \ 6, כשאתה לוקח את המספר המלא ללא שארית

מספר הבקבוקים הלא ארוזים זאת השארית של אותו חישוב

המחיר הכולל זה 0.3 כפול מספר הקופסאות שחישבת כבר...

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

div מחזירה פעולת חילוק ללא שארית.

mod מחזירה רק את השארית.

לדוגמא:

5 div 2 = 2

5 mod 2 = 1

program hishuv;

var

Numbakbukim,Babukim,kufsaot,bloaruz:integer;

Pkufsa:real;

begin

writeln ('Enter The number of the bottles");

readln (numbakbukim);

bakbukim:=6;

pkufsa:=0.3;

kufsaot:=numbakbukim mod bakbukim;

Kufsaot:=Bakbukim*pkufsa;

טוב, לא סיימתי את זה אבל בעיקרון אפשר לעשות את זה ככה....

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

בבקשה בבקשה!!!!!!!!

program hishuv;

var

     Numbakbukim,Babukim,kufsaot,bloaruz:integer;

     Pkufsa:real;

begin

    writeln ('Enter The number of the bottles");

    readln (numbakbukim);

    bakbukim:=6;

    pkufsa:=0.3;

    kufsaot:=numbakbukim mod bakbukim;

    Kufsaot:=Bakbukim*pkufsa;

טוב, לא סיימתי את זה אבל בעיקרון אפשר לעשות את זה ככה....

אפשר אפילו לפשט יותר:

                                                            program hishuv

var

Numbakbukim:integer;

 

begin

  writeln ('Enter The number of the bottles");

    readln (numbakbukim

writeln('מספר הקופסאות המלאות:',numbakbukim div 6) הערה אנחנו מניחים שבקלט יתקבל מספר גדול מ6.

writeln('מספר הבקבוקים הנותרים:', numbakbukim mod 6);

writeln('מחיר הקופסאות הוא:',( (nmbakbukim div 6)* 0.3);

end.

                                                           program hishuv

var

Numbakbukim:integer;

begin

  writeln ('Enter The number of the bottles");

    readln (numbakbukim

writeln('מספר הקופסאות המלאות:',numbakbukim div 6) הערה אנחנו מניחים שבקלט יתקבל מספר גדול מ6.

writeln('מספר הבקבוקים הנותרים:', numbakbukim mod 6);

writeln('מחיר הקופסאות הוא:',( (nmbakbukim div 6)* 0.3);

end.

יותר מובן

אני לא חושב שזה לפי הדרישות, מאיתנו דורשים לכל חישוב לעשות משתנה.

בשביל מה? זה ביזבוז זיכרון.

בכל מקרה, dartinations, נתנו לך פה כבר הכל... אם אתה לא יודע מה לעשות מכאן אז המצב רע...