רוטר - נתקעתי בשאלה בפסקל- אנא עזרו יום ג בגרות!

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"נתקעתי בשאלה בפסקל- אנא עזרו יום ג בגרות!"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #6191	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 6191

TheTom

14:03 07.06.03

נתקעתי בשאלה בפסקל- אנא עזרו יום ג בגרות!

עבר עריכה לאחרונה בתאריך 07.06.03 בשעה 14:12

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

דוגמאות: עבור המספר 21978 הפונקציה תחזיר את הערך TRUE, כיוון ש:
21978*4= 87912
בבקשה עזרו לי..גם במתכונת נפלתי על שאלה כזו!

זה מה שאני ניסיתי לעשות:

program tomdaking;
var
mispar,i: integer;
stri_string,stri_mar:string;
begin
readln(mispar);
str(mispar, stri_string);
for i:=1 to length(stri_string) do
stri_mar(i):= stri_string(length(stri_string)-i+1) ;
val (stri_string,(4*mispar),code);
if code=0 then
writeln ('nahon') else
writeln ('wrong');
readln;
אבל משום מה בפונקצה "ואל" יש טעות מספר 122- בפסיק לפני משתנה
code.

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
הנה:	eli13	07.06.03 14:35	1
יווו אחי תודה רבה לך!!	TheTom	07.06.03 14:44	2

eli13

14:35 07.06.03

1. הנה:
בתגובה להודעה מספר 0

עבר עריכה לאחרונה בתאריך 07.06.03 בשעה 14:37

FUNCTION ELI (NUM:INTEGER):BOOLEAN;
VAR
NEW,TEMP:INTEGER;
BEGIN
NEW:=0;
TEMP:=NUM*4;
while (num<>0) do
BEGIN
x:=num mod 10;
NEW:=NEW*10+X;
NUM:=NUM DIV 10;
END;
IF (NEW=TEMP) THEN
ELI:=TURE
ELSE
ELI:=FALSE;
END;

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

TheTom

14:44 07.06.03

2. יווו אחי תודה רבה לך!!
בתגובה להודעה מספר 1

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד