רוטר - עזרה בפסקאל

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

"עזרה בפסקאל"

גירסת הדפסה

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

אשכול מספר 7260

Kobe_Bryant
חבר מתאריך 19.3.02
730 הודעות, דרג אמינות חבר זה

21:47 01.11.03

עזרה בפסקאל

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

תודה לעוזרים

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
באמצעות שימוש במה?	E-do	01.11.03 22:12	1
כן ע''י DIV וMOD	Kobe_Bryant	01.11.03 23:06	2
אוקיי אז ככה	E-do	01.11.03 23:42	3
ככה	StavmaN	01.11.03 23:50	4
אפשר לעשות גם בדרך אחרת	SpyCop	10.11.03 20:17	7

E-do
חבר מתאריך 29.10.03
2160 הודעות, דרג אמינות חבר זה

22:12 01.11.03

1. באמצעות שימוש במה?
בתגובה להודעה מספר 0

אני יכול לעשות לך את זה ע"י DIV וMOD, וגם ע"י רקורסיה...

-----------------
בברכה,
e-do

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

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

Kobe_Bryant
חבר מתאריך 19.3.02
730 הודעות, דרג אמינות חבר זה

23:06 01.11.03

2. כן ע''י DIV וMOD
בתגובה להודעה מספר 1

תודה

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

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

E-do
חבר מתאריך 29.10.03
2160 הודעות, דרג אמינות חבר זה

23:42 01.11.03

3. אוקיי אז ככה
בתגובה להודעה מספר 2

ערכתי לאחרונה בתאריך 02.11.03 בשעה 01:07 בברכה, E-do

program kobe;
uses crt;
var a:integer;
begin
clrscr;
write('please enter number:');
readln(a);
while not a=0 do
begin
write(a mod 10);
a:=a div 10;
end;
end.

לא ניסיתי להריץ את זה, אבל זה אמור לעבוד (צריך לבדוק את תנאי היציאה, אין לי מושג מה קורה כשעושים div 10 למשהו חד ספרתי, זה אמור להוציא 0, אבל תמיד יש הפתעות)

-----------------
בברכה,
e-do

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

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

StavmaN

דרג אמינות חבר זה

23:50 01.11.03

4. ככה
בתגובה להודעה מספר 0

program order;
var
num, sum: integer;
begin
sum := 0;
readln (num);
while num <> 0 do
begin
sum := sum * 10 + num mod 10;
num := num div 10;
end;
writeln (sum);
readln;
end.

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

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

SpyCop

דרג אמינות חבר זה

20:17 10.11.03

7. אפשר לעשות גם בדרך אחרת
בתגובה להודעה מספר 0

עם פירוק מחרוזת
אבל לא חושב שזה מה שאתה צריך

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

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