ABA


"בעיה בפסקל כיתה י'"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7363 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 7363
aviel_xxx
חבר מתאריך 1.9.02
1335 הודעות
   11:27   15.11.03   
אל הפורום  
  בעיה בפסקל כיתה י'  
 
   היה לנו בוחן ואנחנו צריכים לעשות תיקון בקיצור יש להתשתמש בבעיה בהוראת התנאי "איף" ודיב ומוד
אני ממש חייב את הפתירון הנכון כי אני ממש לא יודע את התשובה

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

תודה ענקית מראש לעוזרים !


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

  האשכול     מחבר     תאריך כתיבה     מספר  
  מכתב TheCoolMan 15.11.03 12:24 1
     ניראה לי צריך לעשות עם משתנה אחד או משהו כזה aviel_xxx 15.11.03 13:41 2
         אי אפשר עם משתנה אחד link4u 15.11.03 14:19 3
         בילתי אפשרי!!! TheCoolMan 15.11.03 14:52 4
  פתרון reshef 15.11.03 21:53 5

       
TheCoolMan

   12:24   15.11.03   
אל הפורום  
  1. מכתב  
בתגובה להודעה מספר 0
 
   הרצתי את זה וזה פועל...

program xxx;
var
x,x1,x2,x3,x4,x5,num:integer;
begin
readln(num);
x:=num;
x1:=num div 10000;
num:=num mod 10000;
x2:=num div 1000;
num:=num mod 1000;
x3:=num div 100;
num:=num mod 100;
x4:=num div 10;
x5:=num mod 10;
if x3=x4+x5 then writeln(x)
else writeln(x4+x5);
end.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
aviel_xxx
חבר מתאריך 1.9.02
1335 הודעות
   13:41   15.11.03   
אל הפורום  
  2. ניראה לי צריך לעשות עם משתנה אחד או משהו כזה  
בתגובה להודעה מספר 1
 
  


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
link4u

   14:19   15.11.03   
אל הפורום  
  3. אי אפשר עם משתנה אחד  
בתגובה להודעה מספר 2
 
  


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
TheCoolMan

   14:52   15.11.03   
אל הפורום  
  4. בילתי אפשרי!!!  
בתגובה להודעה מספר 2
 
   אפשר אולי עם מערך שזה כאילו משתנה אחד...


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
reshef
חבר מתאריך 1.7.02
344 הודעות
   21:53   15.11.03   
אל הפורום  
  5. פתרון  
בתגובה להודעה מספר 0
 
  

program reshef ;
var N, Last_Two : integer ;
begin
writeln ('הכנס מספר בעל 5 ספרות:');
readln (N);
Last_Two := N mod 10 + N mod 100 div 10 ;
If (N div 100 mod 10 = Last_Two) then writeln (N)
else writeln (Last_Two);
end.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net