עבור לתוכן

אני חייב עזרה בפסקל

Featured Replies

פורסם

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

הנה השאלה

במפעל קוקה קולה אורזים 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, נתנו לך פה כבר הכל... אם אתה לא יודע מה לעשות מכאן אז המצב רע...

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים