בכל אופן, אני צריך תכנית שמשתמשת במשתנה מספרי ראנדומלי.
הקטע הוא שאני רוצה שיכנסו אליו גם ערכים שליליים וגם חיוביים ואני יודע רק איך לעשות ראנדום חיובי. לדוג-
קוד:x:=random(110);
יכניס למשתנה X ערכים מ0 עד 110.
מה עושים? תודה =]
ראשי > תיכנות > PASCAL.. עזרה
בכל אופן, אני צריך תכנית שמשתמשת במשתנה מספרי ראנדומלי.
הקטע הוא שאני רוצה שיכנסו אליו גם ערכים שליליים וגם חיוביים ואני יודע רק איך לעשות ראנדום חיובי. לדוג-
קוד:x:=random(110);
יכניס למשתנה X ערכים מ0 עד 110.
מה עושים? תודה =]
בכל אופן, אני צריך תכנית שמשתמשת במשתנה מספרי ראנדומלי.
הקטע הוא שאני רוצה שיכנסו אליו גם ערכים שליליים וגם חיוביים ואני יודע רק איך לעשות ראנדום חיובי. לדוג-
קוד:x:=random(110);
יכניס למשתנה X ערכים מ0 עד 110.
מה עושים? תודה =]
קודם כל זה לא מתאים לבניית אתרים.
דבר שני:
תעשה שני מספרים ראנדומליים.
אחד על מספרים שליליים
קוד:var1:=random(-110)
ואחד על מספרים חיוביים
קוד:var2:=random(110)
ואז תחבר בין שניהם.
ואז אם נניח המשתנה הראשון יקבל 90- והשני 40
לאחר החיבור בניהם יהיה המספר 30-.
אם הראשון יקבל 100 והשני 1- , אז לאחר החיבור יהיה 99.
יש מבין?
אבל אין מצב שלא בנו אופציה שמאחדת אותם.
או מן קומבינה של מה לכתוב בסוגריים...
התכנית גם ככה די מסובכת, ליצור 2 משתנים ואחר כך לאחד במשתנה שלישי.. מסובך מדי.
תודה בכל אופן.
קוד:function ran_min_max(a,b:integer):integer;
var
c:integer;
begin
c:=0;
{אני בודק שקבלנו מספר שלילי ומספר חיובי}
if (a<0) and (b=>0)
then begin
randomize;{בהנחה שלא השתמשו בו בתחילת התוכנית};
{אם אתה לא רוצה לקבל אפס אז אחרת תוריד את הלולאה:}
while c<>0 do
c:=random(b)+random(a);
end;
ran_min_max:=c;{החזרת אפס תסמל שגיאה }
end;
גם אפשרי.. תודה =]
עשיתם סלט מהכל... קצת מתמטיקה (או חשבון של כתה א’ במקרה הזה) פותר הרבה בעיות :) שבת שלום :D