רוטר - מישהו יכול בבקשה לפתור לי שאלה בפסקל?

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

"מישהו יכול בבקשה לפתור לי שאלה בפסקל?"

גירסת הדפסה

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

אשכול מספר 7439

Amit

22:31 27.11.03

מישהו יכול בבקשה לפתור לי שאלה בפסקל?

היא מופיעה בספר יסודות מדעי המחשב, יסודות 2 בעמ' 111, שאלה 3.24.
אני ארשום את השאלה:
כתוב תוכנית לספירת מס' המופעים של כל ספרה במספר שלם.
לדוגמא: עבור הקלט 18515, הפלט יהיה
הספרה 1 מופיעה 2 פעמים, הספרה 5 מופיעה 2 פעמים הספרה 8 מופיעה 1 פעמים.
רצוי להשתמש בפרוצדורות!

תודה מראש.

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
בבקשה!	Elvaron	29.11.03 13:01	1

Elvaron
חבר מתאריך 21.6.03
364 הודעות, דרג אמינות חבר זה

13:01 29.11.03

1. בבקשה!
בתגובה להודעה מספר 0

Program Tar;
var
X:integer;
procedure count(num:integer);
var A:array of integer;
i,digit:integer;
begin
For i:=1 to 9 do
A:=0;
While num>0 do
begin
digit:=num mod 10;
A:=A+1;
num:=num div 10;
end;
For i:=1 to 9 do
if A>0 then writeln ('Then Digit ',i,' is in num: ',A,' times');
end;
Begin
writeln ('Enter Number');
readln (X);
count(X);
End.

למרות שהיה יותר טוב אילו היית חושב לבד......
Shbitzik

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

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