יש לי שגיאה בתוכנת פסקל

[משיקומי]

אני כרגע מנסה להכין תוכנית שמחפש מספרים ראשוניים וכותבת אותם (לא תוכנה מסחרית, סתם בשביל הכיף)

ויש לי שגיאות. מישהו יכול להגיד לי מה לא טוב פה??:

Program Tamir;
Uses Crt;
Var
  X,Y: integer;
  ANSWER: char;
Begin
  clrscr;
  X:= 2;
  Y:= 2;
  Writeln ('Do you realy want to find First Numbers??');
  Readln (ANSWER);
  If (ANDWER ='n') Then EXIT
  Else Begin
       Writeln ('If you want to STOP press S');
       Repeat Begin
               If (X/Y mod 0) Then (X:=X+1,Y:=2)
               Else (Y:=Y+1);
               If (Y:=X) Then Writeln (X,' is a First Number);
          End;
       Until Readln ('S')
     End;
  Readln; 
END.   

[bykeking]

רק שתדע, מספר ראשוני זה Prime number. לא First number.

[משיקומי]

רק שתדע, מספר ראשוני זה Prime number. לא First number.

תודה על התיקון.

Prime זה לא גם ראשי?

[bykeking]

(ת') ראשי; עיקרי; מובחר; ראשוני; מעולה

(ש"ע) שלמות; מיטב; פריחה; אביב; ילדות; שחר; מספר ראשוני(במתמטיקה)

(פ') להפעיל; להכין(לשימוש); להטעין; להתחיל

באדיבות בבילון

[Daglas]

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

If (Y:=X) Then Writeln (X,' is a First Number);

תשים גרש אחרי Number.

[pavelr]

כן. לדעתי סתם סיבכתה, ויש לך די הרבה טעויות, למשל אתה צריך לכתוב X mod Y=0 ובתנאי השני אתה בעצם קולט את Y לתוך X, כך שהתנאי יהיה נכון תמיד. עדיף שתעשה לולאת FOR, שבה תבדוק עם המספר מתחלק בכל מספר עד שורשו, ואם הוא לא, אז הוא מספר ראשוני.

[kawaii]

ואה, ממבט מהיר, אין לך input, output' אחרי ה. PROGRAM

[משיקומי]

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

If (Y:=X) Then Writeln (X,' is a First Number);

תשים גרש אחרי Number.

שמתי, אבל יש עוד שגיאה.

כן. לדעתי סתם סיבכתה, ויש לך די הרבה טעויות, למשל אתה צריך לכתוב X mod Y=0 ובתנאי השני אתה בעצם קולט את Y לתוך X, כך שהתנאי יהיה נכון תמיד. עדיף שתעשה לולאת FOR, שבה תבדוק עם המספר מתחלק בכל מספר עד שורשו, ואם הוא לא, אז הוא מספר ראשוני.

תיקנתי את המוד, אבל עדיין יש עוד שגיאה .

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

תודה לכל מי שתיקן אותי.

עריכה:

ואה, ממבט מהיר, אין לך input, output' אחרי ה. PROGRAM

וזה גם לא משנה ב 99.99% מהמקרים.

[kawaii]

נכון, אבל לך תדע פה.

וזה יעזור אם תפרט איזה שגיאות אתה מקבל

[pavelr]

SqrtPrime:=sqrt(Prime);
count=0;

for i:=0 to i<SqrtPrime do
{
if ((Prime mod i)=0)
count:=count+1;
}
if (count) then
writeln("Not Prime");
else
writeln("Prime");

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

[McMerc]

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

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

program ww;
var
 num,sum,i,j:integer;
begin
 j:=1;
 sum:=0;
 writeln('Enter a Number:');
 readln(num);
 for i:=1 to num do
 begin
  while i mod j<>0 do j:=j+1;
  if (i=j)
  then begin
   writeln(i);
   sum:=sum+1;
  end;
  j:=2;
 end;
 writeln;
 writeln('The Number of "First Numbers" is ',sum,', Press Enter to Exit.');
 readln;
end.

[משיקומי]

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

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

program ww;
var
 num,sum,i,j:integer;
begin
 j:=1;
 sum:=0;
 writeln('Enter a Number:');
 readln(num);
 for i:=1 to num do
 begin
  while i mod j<>0 do j:=j+1;
  if (i=j)
  then begin
   writeln(i);
   sum:=sum+1;
  end;
  j:=2;
 end;
 writeln;
 writeln('The Number of "First Numbers" is ',sum,', Press Enter to Exit.');
 readln;
end.

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

התוכנה שלך מעולה, אבל ערכתי אותה ככה שתכתוב במקום

 Writeln (i) זה יהיה write (i,', ')

עכשיו, משהו שחשוב לי שיהיה בתוכנה. איך אני אעשה שהתוכנה תפעל עד שלוחצים על S וENTER?

[pavelr]

לגבי השאלה הראשונה - תיצור קובץ טקסט, תעתיק לשם את התוכנית ותשמור אותה עם סיומת pas.

לגבי השאלה השנייה - אני לא זוכר את הפקודה בפסקל, אבל מה שכן שבשביל ENTER תצטרך את קוד האסקי שלו, שזה 47 נדמה לי. ואות S אתה יכול לקלוט כ-CHAR ולעשות תנאי בהתאם.

[משיקומי]

לגבי השאלה הראשונה - תיצור קובץ טקסט, תעתיק לשם את התוכנית ותשמור אותה עם סיומת pas.

לגבי השאלה השנייה - אני לא זוכר את הפקודה בפסקל, אבל מה שכן שבשביל ENTER תצטרך את קוד האסקי שלו, שזה 47 נדמה לי. ואות S אתה יכול לקלוט כ-CHAR ולעשות תנאי בהתאם.

מה?? היה פעם לשכן שלי כלב האסקי.

[McMerc]

מה?? היה פעם לשכן שלי כלב האסקי.

זה לא האסקי, זה אסקי, הוא רק שם את המילה יחד עם "ה" הידיעה.

קוד אסקי זה קוד של כל התווים שיש לך במחשב.

(דרך אגב, ניראה לי ששמונה זה ציפצוף של הרמקול הפנימי או משהו בסיגנון).

אני כבר עברתי 3 יחידות בפסקל, קיבלתי בהן 100 עגול.

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