עבור לתוכן

View in the app

A better way to browse. Learn more.

HWzone

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS

Tap the Share icon in Safari
Scroll the menu and tap Add to Home Screen.
Tap Add in the top-right corner.

To install this app on Android

Tap the 3-dot menu (⋮) in the top-right corner of the browser.
Tap Add to Home screen or Install app.
Confirm by tapping Install.

התחבר
התחברות

כתובת אימייל

סיסמה

זכור אותי
לא מומלץ לסמן במחשבים ציבוריים

שכחת סיסמה?

או התחבר עם אחד מהשירותים האלה
צור חשבון

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

פורסם 2004 בדצמבר 620 שנים

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

הוא טוען שיש שגיאה ב-end האחרון... מה לעשות?

program project;

var
   con, points : integer;

function hisur:integer;
var
    n1, n2, result, i, l : integer;

begin
    writeln('Choose a level from 1-5.');
    readln(l);

    n1 := random(10)+1+(l-1)*10;
    n2 := random(10)+1+(l-1)*10;

    writeln(n1, '-', n2, '=');

    i := 1;

    while i <= 3 do
    begin
        readln(result);
        if result = n1 - n2 then
        begin
            writeln('Correct.');
            i := 4;
            hisur := 1;
        end
        else
        begin
            writeln('Wrong.');
            i := i+1;
            if i = 4 then
                hisur := 0
            else
                writeln('Try again.');
        end;
    end;
end;

function hibur:integer;
var
    n1, n2, result, i, l : integer;

begin
    writeln('Choose a level from 1-5.');
    readln(l);

    n1 := random(10)+1+(l-1)*10;
    n2 := random(10)+1+(l-1)*10;

    writeln(n1, '+', n2, '=');

    i := 1;

    while i <= 3 do
    begin
        readln(result);
        if result = n1 + n2 then
        begin
            writeln('Correct.');
            i := 4;
            hibur := 1;
        end
        else
        begin
            writeln('Wrong.');
            i := i+1;
            if i = 4 then
                hibur := 0
            else
                writeln('Try again.');
        end;
    end;
end;

function kefel:integer;
var
    n1, n2, result, i, l : integer;

begin
    writeln('Choose a level from 1-5.');
    readln(l);

    n1 := random(10)+1+(l-1)*10;
    n2 := random(10)+1+(l-1)*10;

    writeln(n1, '*', n2, '=');

    i := 1;

    while i <= 3 do
    begin
        readln(result);
        if result = n1 * n2 then
        begin
            writeln('Correct.');
            i := 4;
            kefel := 1;
        end
        else
        begin
            writeln('Wrong.');
            i := i+1;
            if i = 4 then
                kefel := 0
            else
                writeln('Try again.');
        end;
    end;
end;

function hiluk:integer;
var
    n1, n2, result, i, l : integer;

begin
    writeln('Choose a level from 1-5.');
    readln(l);

    n1 := random(10)+1+(l-1)*10;
    n2 := random(10)+1+(l-1)*10;

    writeln(n1, '/', n2, '=');

    i := 1;

    while i <= 3 do
    begin
        readln(result);
        if result = n1 / n2 then
        begin
            writeln('Correct.');
            i := 4;
            hiluk := 1;
        end
        else
        begin
            writeln('Wrong.');
            i := i+1;
            if i = 4 then
                hiluk := 0
            else
                writeln('Try again.');
        end;
    end;
end;

function main_menu:integer;

var
    a : integer;

begin
    writeln('If you want to lehaber, select 1.');
    writeln('If you want to lehaser, select 2.');
    writeln('If you want to likfol, select 3.');
    writeln('If you want to lehalek, select 4.');
    readln(a);

    case a of
    1: main_menu := hibur;
    2: main_menu := hisur;
    3: main_menu := kefel;
    4: main_menu := hiluk;

end;

begin
    points:=0;

    writeln('Hello.');
    writeln('To continue, enter 1.');
    readln(con);
    while con = 1 do
    begin
        points := points + main_menu;
        writeln('To continue, enter 1.');
    end;

    writeln('Your total score is ', points, '!');
    readln;
end.

ציטוט

פורסם 2004 בדצמבר 620 שנים

התוכן של ה-while וה-if לא אמורים להיות בתוך סוגריים?

וגם תנסה להשתמש בdebuger. אולי זה יעזור לך.

ציטוט

פורסם 2004 בדצמבר 620 שנים

מחבר

התוכן של ה-while וה-if לא אמורים להיות בתוך סוגריים?
וגם תנסה להשתמש בdebuger. אולי זה יעזור לך.

ניסיתי כבר עם ה-debugger הוא אומר על ה-end האחרון שכאילו צריך להיות ; אבל זה לא עוזר...

ציטוט

פורסם 2004 בדצמבר 620 שנים

באמת שכחת END אחד... תספור פשוט כמה BEGIN יש וכמה END יש ותראה...

ציטוט

פורסם 2004 בדצמבר 720 שנים

באמת שכחת ;end אחרי השורה הלפני האחרונה (;readln)

שכחת לסגור את הפונק'. כנראה התבלבלת אם הend של הפונ' לend של התוכנית.

ציטוט

פורסם 2004 בדצמבר 720 שנים

מחבר

מישהו יכול לרשום כאן את הקוד עם התיקון?

ציטוט

פורסם 2004 בדצמבר 920 שנים

program project;

var
  con, points : integer;

function hisur:integer;
var
  n1, n2, result, i, l : integer;

begin
  writeln('Choose a level from 1-5.');
  readln(l);

  n1 := random(10)+1+(l-1)*10;
  n2 := random(10)+1+(l-1)*10;

  writeln(n1, '-', n2, '=');

  i := 1;

  while i <= 3 do
  begin
    readln(result);
    if result = n1 - n2 then
    begin
      writeln('Correct.');
      i := 4;
      hisur := 1;
    end;
    else
    begin
      writeln('Wrong.');
      i := i+1;
      if i = 4 then
        hisur := 0
      else
        writeln('Try again.');
    end;
  end;
end;

function hibur:integer;
var
  n1, n2, result, i, l : integer;

begin
  writeln('Choose a level from 1-5.');
  readln(l);

  n1 := random(10)+1+(l-1)*10;
  n2 := random(10)+1+(l-1)*10;

  writeln(n1, '+', n2, '=');

  i := 1;

  while i <= 3 do
  begin
    readln(result);
    if result = n1 + n2 then
    begin
      writeln('Correct.');
      i := 4;
      hibur := 1;
    end;
    else
    begin
      writeln('Wrong.');
      i := i+1;
      if i = 4 then
        hibur := 0
      else
        writeln('Try again.');
    end;
  end;
end;

function kefel:integer;
var
  n1, n2, result, i, l : integer;

begin
  writeln('Choose a level from 1-5.');
  readln(l);

  n1 := random(10)+1+(l-1)*10;
  n2 := random(10)+1+(l-1)*10;

  writeln(n1, '*', n2, '=');

  i := 1;

  while i <= 3 do
  begin
    readln(result);
    if result = n1 * n2 then
    begin
      writeln('Correct.');
      i := 4;
      kefel := 1;
    end;
    else
    begin
      writeln('Wrong.');
      i := i+1;
      if i = 4 then
        kefel := 0
      else
        writeln('Try again.');
    end;
  end;
end;

function hiluk:integer;
var
  n1, n2, result, i, l : integer;

begin
  writeln('Choose a level from 1-5.');
  readln(l);

  n1 := random(10)+1+(l-1)*10;
  n2 := random(10)+1+(l-1)*10;

  writeln(n1, '/', n2, '=');

  i := 1;

  while i <= 3 do
  begin
    readln(result);
    if result = n1 / n2 then
    begin
      writeln('Correct.');
      i := 4;
      hiluk := 1;
    end;
    else
    begin
      writeln('Wrong.');
      i := i+1;
      if i = 4 then
        hiluk := 0
      else
        writeln('Try again.');
    end;
  end;
end;

function main_menu:integer;

var
  a : integer;

begin
  writeln('If you want to lehaber, select 1.');
  writeln('If you want to lehaser, select 2.');
  writeln('If you want to likfol, select 3.');
  writeln('If you want to lehalek, select 4.');
  readln(a);

  case a of
  1: main_menu := hibur;
  2: main_menu := hisur;
  3: main_menu := kefel;
  4: main_menu := hiluk;

end;

begin
  points:=0;

  writeln('Hello.');
  writeln('To continue, enter 1.');
  readln(con);
  while con = 1 do
  begin
    points := points + main_menu;
    writeln('To continue, enter 1.');
  end;

  writeln('Your total score is ', points, '!');
  readln;
end.

שכחת להוסיף ; אחרי כל END

מקווה שזו הייתה הבעיה :xyxthumbs:

ציטוט

פורסם 2004 בדצמבר 1020 שנים

אני לא הכי יודע פסקל אבל אתה אמור בלולאה בתוכנית הראשית לקלוט את CON אחרת זה יהיה לולאה אינ-סופית

מקווה שעזרתי לך ;D

ציטוט

ארכיון

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

עבור לרשימת הדיונים

Chrome (Android)

Tap the lock icon next to the address bar.
Tap Permissions → Notifications.
Adjust your preference.

Chrome (Desktop)

Click the padlock icon in the address bar.
Select Site settings.
Find Notifications and adjust your preference.