רוטר - אפשר עזרה בפסקל משהו עוד יותר קל

האשכול	מחבר	תאריך כתיבה	מספר
בגלל שיש לי קצת זמן קבל את הראשונה	Yoni	24.03.04 18:35	1
תודה אחי	Hanan_Drob	24.03.04 18:45	2
קבל הנחיה:	Yoni	24.03.04 18:48	3
לא גבר	Hanan_Drob	24.03.04 18:49	4
אחי אפשר לדבר איתך באי סי קיו?	Hanan_Drob	24.03.04 18:50	5
ערכתי	Yoni	24.03.04 18:51	6
ניסיתי יצא לי בלאגן	Hanan_Drob	24.03.04 18:52	7
הנה השנייה	Electric	24.03.04 19:59	8

Yoni
חבר מתאריך 26.5.02
2305 הודעות

18:35 24.03.04

1. בגלל שיש לי קצת זמן קבל את הראשונה
בתגובה להודעה מספר 0

ערכתי לאחרונה בתאריך 24.03.04 בשעה 18:36 בברכה, Yoni

var
n,i,mone:integer;
c:char;
begin
mone:=0;
writeln('kma tavim?');
readln(n);
writeln('hahnes tavim');
for i:=1 to n do
begin
read(c);
if ((ord(c)>=ord('A')) and (ord(c)<=ord('Z')))
or
((ord(c)>=ord('a')) and (ord(c)<=ord('z'))) then
mone:=mone+1;
end;
writeln(mone,' chars from the ABC');
end.

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

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

Hanan_Drob

18:45 24.03.04

2. תודה אחי
בתגובה להודעה מספר 0

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

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

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

Yoni
חבר מתאריך 26.5.02
2305 הודעות

18:48 24.03.04

3. קבל הנחיה:
בתגובה להודעה מספר 0

ערכתי לאחרונה בתאריך 24.03.04 בשעה 18:50 בברכה, Yoni

אתה קולט בלולאת FOR את התוצאות עבור כל תלמיד לתוך מונה מסוייםת שאותו אתה מאפס כל פעם בלולאה.
בנוסף יש לך עוד 3 מונים:
מונה לתלמידים שענו על 3 כן
על 2 כן
על 1 כן
ואז בעזרת 2 IFים את מוסיף לאחד המונים.
זה הכל.

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

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

Hanan_Drob

18:49 24.03.04

4. לא גבר
בתגובה להודעה מספר 3

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

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

Hanan_Drob

18:50 24.03.04

5. אחי אפשר לדבר איתך באי סי קיו?
בתגובה להודעה מספר 4

האי סי שלי
169448052

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

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

Yoni
חבר מתאריך 26.5.02
2305 הודעות

18:51 24.03.04

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

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

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

Hanan_Drob

18:52 24.03.04

7. ניסיתי יצא לי בלאגן
בתגובה להודעה מספר 3

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

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

Electric

19:59 24.03.04

8. הנה השנייה
בתגובה להודעה מספר 0

begin
mone1:=0
mone2:=0
mone3:=0
for i :=1 to 400 do
writeln('יש לך מחשב');
readln(first);
writeln('יש לך מודם');
readln(second);
writeln('האם אתה יודע לגלות');
readln(third)
if (first=1) and (second=1) and (third=1) then
mone3:=mone3+1
else
begin
if (first=0) and (second=1) and (third=1) then
mone2:=mone2+1
else
if (first=1) and (second=1) and (third=0) then
mone2:=mone2+1
else
if (first=1) and (second=0) and (third=1) then
mone2:=mone2+1
else
if not (first=0) and (second=0) and (third=0) then
mone1:=mone1+1
end;
writeln(mone3);
writeln(mone2);
writeln(mone1)
end.

תבדוק קודם כ אם זה עובד וזה דרך לא יעילה אבל זה לא ממש משנה

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

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