אתה משתמש בדפדפן מיושן. יתכן והאתר הנוכחי יוצג באופן שגוי, כמו כן אתרים אחרים ברשת.
אנא שדרג את הדפדפן או השתמש בדפדפן חילופי.
אנא שדרג את הדפדפן או השתמש בדפדפן חילופי.
עזרה בפסקל
- פותח הנושא kobyp2
- פורסם בתאריך
=/
א. לא ביקשתי שיעור פרטי כולה עזרה קטנה העבודה שלי כמעט מוכנה רק יש לי איזה משהו שלא מסתדר לי, אפשר לחשוב מה כבר ביקשתי. ב. מה זאת ההתנפלות הזאת?! לא אמרתי שאתה עובד בשבילי או משהו תתחילו להרגע ג. הנה התוכנית Procedure Swap (var name1:StringType; var name2:StringType); var Temp:StringType; begin Temp:=name1; name1:=name2; name2:=temp; end;{Swap} {------------------------------------------------------------------} Function LessThan(var name1,name2:StringType;L1,L2:integer):boolean; var k:integer; begin k:=1; while(k<L1) and (K<L2) and (name1[k]=name2[k]) do k:=k+1; if name1[k]<name2[k] then lessthan:=true else if (l1<l2) and (name1[k] = name2[k]) then lessthan:=true else lessthan:=false; end; {------------------------------------------------------------} procedure SortByDictionary(var names:NamesType; var l:integer); var index,j,Imin:integer; flag:boolean; begin for index:=1 to l-1 do begin Imin:=index; for j:=I+1 to l do flag:=lessthan(names[j],names[Imin]); if flag=false then Imin:=J; Swap(names[j],names[Imin]) end; end; הבעיה שלי היא שהקומפיילר בשורה השישית מהסוף אומר לי EXPEXTED "," ואני לא מבין מהי הבעיה=( HELP ME PLEASE
א. לא ביקשתי שיעור פרטי כולה עזרה קטנה העבודה שלי כמעט מוכנה רק יש לי איזה משהו שלא מסתדר לי, אפשר לחשוב מה כבר ביקשתי. ב. מה זאת ההתנפלות הזאת?! לא אמרתי שאתה עובד בשבילי או משהו תתחילו להרגע ג. הנה התוכנית Procedure Swap (var name1:StringType; var name2:StringType); var Temp:StringType; begin Temp:=name1; name1:=name2; name2:=temp; end;{Swap} {------------------------------------------------------------------} Function LessThan(var name1,name2:StringType;L1,L2:integer):boolean; var k:integer; begin k:=1; while(k<L1) and (K<L2) and (name1[k]=name2[k]) do k:=k+1; if name1[k]<name2[k] then lessthan:=true else if (l1<l2) and (name1[k] = name2[k]) then lessthan:=true else lessthan:=false; end; {------------------------------------------------------------} procedure SortByDictionary(var names:NamesType; var l:integer); var index,j,Imin:integer; flag:boolean; begin for index:=1 to l-1 do begin Imin:=index; for j:=I+1 to l do flag:=lessthan(names[j],names[Imin]); if flag=false then Imin:=J; Swap(names[j],names[Imin]) end; end; הבעיה שלי היא שהקומפיילר בשורה השישית מהסוף אומר לי EXPEXTED "," ואני לא מבין מהי הבעיה=( HELP ME PLEASE
נו עוזרים לך
תפסיק להיות מסכן. נראה לי שחסר לך begin בתחילת הלולאה. תיקנת את זה וזה לא עוזר? לא אכפת לי מאיפה העתקת את זה. הלולאה הזאת נראית לי דפוקה. איך יכול להיות שאתה רץ מI+1 עד I??? אולי התכוונת downto ולא to. מתחת לחלון כתיבת ההודעה יש כל מיני לחצנים. שניים מהם הם [תחילת קוד] ו[סיום קוד] ופעם הבאה תעתיק לפה רק את הקוד/פונקציה רלוונטית.
תפסיק להיות מסכן. נראה לי שחסר לך begin בתחילת הלולאה. תיקנת את זה וזה לא עוזר? לא אכפת לי מאיפה העתקת את זה. הלולאה הזאת נראית לי דפוקה. איך יכול להיות שאתה רץ מI+1 עד I??? אולי התכוונת downto ולא to. מתחת לחלון כתיבת ההודעה יש כל מיני לחצנים. שניים מהם הם [תחילת קוד] ו[סיום קוד] ופעם הבאה תעתיק לפה רק את הקוד/פונקציה רלוונטית.
Copyright©1996-2021,Tapuz Media Ltd. Forum software by XenForo® © 2010-2020 XenForo Ltd.