רוטר - מישהו בבקשה יכול לכתוב תוכנית ברקורסיה שיוצרת שעון חול?

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

"מישהו בבקשה יכול לכתוב תוכנית ברקורסיה שיוצרת שעון חול?"

גירסת הדפסה

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

אשכול מספר 11307

Dark Megical

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

19:59 03.11.04

מישהו בבקשה יכול לכתוב תוכנית ברקורסיה שיוצרת שעון חול?

ערכתי לאחרונה בתאריך 03.11.04 בשעה 20:00 בברכה, Dark Megical

יעני מקבלת מספר N
ועושה שעון חול כזה:
5 5 5 5 5
-4 4 4 4
--3 3 3
---2 2
----1
----1
---2 2
--3 3 3
-4 4 4 4
5 5 5 5 5
בפסקל כמובן
אני לא מחפש הסבר
אני רק צריך את התוכנית
בבקשה ממכם אם תוכלו =]

כמובן בלי המקפים

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
כבר שאלו את זה	E-do	03.11.04 22:16	1
לא מצאתי =\ לא תוכל לעזור?	Dark Megical	04.11.04 07:12	2
לא אני כתבתי את התוכנית	E-do	04.11.04 11:04	3
תסתכל על זה:	liranr	04.11.04 15:27	4
תודה רבה לך	Dark Megical	04.11.04 17:33	5

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

22:16 03.11.04

1. כבר שאלו את זה
בתגובה להודעה מספר 0

תריץ חיפוש ותמצא תשובה.
זה היה או כאן או בפורום מחפשים בשבילך.

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

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

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

Dark Megical

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

07:12 04.11.04

2. לא מצאתי =\ לא תוכל לעזור?
בתגובה להודעה מספר 1

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

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

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

11:04 04.11.04

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

חפש, תאמין לי זה לא נעלם.

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

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

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

liranr

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

15:27 04.11.04

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

procedure hourglass(num,spaces : integer);
var
i : integer;
begin
if num>0 then
begin
for i:=1 to spaces do
write(' ');
for i:=1 to num do
write(num,' ');
writeln;

hourglass(num-1,spaces+1);

for i:=1 to spaces do
write(' ');
for i:=1 to num do
write(num,' ');
writeln;
end;
end;

או בקובץ: https://rotter.name/User_files/nor/418a1fb15deb7f81.txt
הקריאה לפונקציה תתבצע משהו כמו
hourglass(5,0);

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

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

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

Dark Megical

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

17:33 04.11.04

5. תודה רבה לך
בתגובה להודעה מספר 4

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

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