חיפוש

עזרה

הרשמה

התחברות

עדכונים

תיכנות
UnderWarrior Forums : תיכנות

נושא: שלוש שאלות בפסקל לקראת הבגרות

כותב

הודעה

<< נושא קודם | נושא הבא >>

אריאל
אורח

הצטרף / הצטרפה: 01 October 2003
משתמש: אונליין
הודעות: 12647

נשלח בתאריך: 12 May 2006 בשעה 13:58

| IP רשוּם

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

אשמח לתשובה מהירה, אני נחוש להצליח! תודה רבה לכולם..

תמונה עם ההוראות

חזרה לתחילת העמוד

shoshan
מנהל האתר

הצטרף / הצטרפה: 16 July 2005
מדינה: Israel
משתמש: מנותק/ת
הודעות: 4637

נשלח בתאריך: 12 May 2006 בשעה 14:03

| IP רשוּם

קוד:

program ex1;
    var
        name:string;
        n1,n2,n3:integer;
    begin
        writeln('הכנס שם משפחה:');
        readln(name);
        writeln('הכנס מספר שיחות מטלפון ראשון:');
        readln(n1);
        writeln('הכנס מספר שיחות מטלפון שני:');
        readln(n2);
        writeln('הכנס מספר שיחות מטלפון שלישי:');
        readln(n3);
        if n1+n2+n3>1000 then
            writeln('זכאי לדיבורית');
    end.

__________________
עד מתי רשעים יעלוזו?

עַל כֵּן אֶמְאַס וְנִחַמְתִּי עַל עָפָר וָאֵפֶר.

חזרה לתחילת העמוד

shoshan
מנהל האתר

הצטרף / הצטרפה: 16 July 2005
מדינה: Israel
משתמש: מנותק/ת
הודעות: 4637

נשלח בתאריך: 12 May 2006 בשעה 14:07

| IP רשוּם

קוד:

program ex3;
    var
        n,sum:integer;
    begin
        sum:=0;
        writeln('מנהל בי"ס יקר, הכנס מספר תלמידים');
        readln(n);
        while n>=0 do
            begin
                sum:=sum+n;
                writeln('מנהל בי"ס יקר, הכנס מספר תלמידים');
                readln(n);
            end;
        writeln('הקלט הסתיים בהצלחה.');
        writeln('תלמידים ',sum,' נרשמו');
    end.

__________________
עד מתי רשעים יעלוזו?

עַל כֵּן אֶמְאַס וְנִחַמְתִּי עַל עָפָר וָאֵפֶר.

חזרה לתחילת העמוד

shoshan
מנהל האתר

הצטרף / הצטרפה: 16 July 2005
מדינה: Israel
משתמש: מנותק/ת
הודעות: 4637

נשלח בתאריך: 12 May 2006 בשעה 14:11

| IP רשוּם

קוד:

program ex2;
    var
        name:string;
        i,year,counter:integer;
    begin
        counter:=0;
        for i:=1 to 879 do
            begin
                writeln(i,' הכנס שם תקליט מספר');
                readln(name);
                writeln(i,' הכנס שמת תקליט מספר');
                readln(year);
                if year=2002 then
                    counter:=counter+1;
            end;
        writeln('מבין התקליטים הופקו בשנת 2002 ',counter);
    end.

__________________
עד מתי רשעים יעלוזו?

עַל כֵּן אֶמְאַס וְנִחַמְתִּי עַל עָפָר וָאֵפֶר.

חזרה לתחילת העמוד

shoshan
מנהל האתר

הצטרף / הצטרפה: 16 July 2005
מדינה: Israel
משתמש: מנותק/ת
הודעות: 4637

נשלח בתאריך: 12 May 2006 בשעה 14:11

| IP רשוּם

בהצלחה בבגרות!

__________________
עד מתי רשעים יעלוזו?

עַל כֵּן אֶמְאַס וְנִחַמְתִּי עַל עָפָר וָאֵפֶר.

חזרה לתחילת העמוד

אריאל
אורח

הצטרף / הצטרפה: 01 October 2003
משתמש: אונליין
הודעות: 12647

נשלח בתאריך: 12 May 2006 בשעה 14:14

| IP רשוּם

וואי תודה רבה רבה רבה רבה לך! אתה ענק... כל כך מהר ענית לי... תודה רבה!

חזרה לתחילת העמוד

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

גרסת הדפסה

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