רוטר - צריך עזרה בשאלה במחשים.. פסקל כיתה י'

האשכול	מחבר	תאריך כתיבה	מספר
זה לא בעייה אחי... אני כבר כותב לך...	gogo211	01.02.04 16:20	1
יוו תודה רבה גבר!!!	ToMeR	01.02.04 16:24	2
אם יש טעויות תתקן	gogo211	01.02.04 16:51	3
מזה הT????	ToMeR	01.02.04 16:58	4
זה טוב מה שעשיתי???	ToMeR	01.02.04 21:47	5

gogo211

16:20 01.02.04

1. זה לא בעייה אחי... אני כבר כותב לך...
בתגובה להודעה מספר 0

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

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

ToMeR

16:24 01.02.04

2. יוו תודה רבה גבר!!!
בתגובה להודעה מספר 1

הצלת אותי!!

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

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

gogo211

16:51 01.02.04

3. אם יש טעויות תתקן
בתגובה להודעה מספר 2

ערכתי לאחרונה בתאריך 01.02.04 בשעה 16:51 בברכה, gogo211

program name gogo211;
var
t,z,x,y:integer;
h:string;
begin
writeln ('את השנה, החודש והיום');
readln (x,y,z);
case y of
1..12: h:='תקין';
1: t:=30;
4,6,9,11: t:=28;
3,5,7,8,10,12: t:=31;
if z> = t then writeln ('תקין',z+1,y,x)
else writeln ('לא תקין');
end.

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

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

ToMeR

16:58 01.02.04

4. מזה הT????
בתגובה להודעה מספר 3

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

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

ToMeR

21:47 01.02.04

5. זה טוב מה שעשיתי???
בתגובה להודעה מספר 0

program checkdate;
var
day,mon,year,temp,lastday:integer;
begin
writeln('type day,mon,year');
readln(day,mon,year);
temp:=0;
lastday:=0;
case mon of
2:begin
if (day>28) then
temp:=9 else
if (day=28) then
lastday:=1
end;
end;
case mon of
4,6,9,11:begin
if (day>30) then
temp:=9 else
if (day=30) then
lastday:=1
end;
end;
case mon of
1,3,5,7,8,10:begin
if (day>31) then
temp:=9 else
if (day=31) then
lastday:= 1
end;
end;
case mon of
12:begin
if (day>31) then
temp:=9 else
if (day=31) then
lastday:=2
end;
end;
case mon of
13..99:temp:=9
end;
case lastday of
0: day:=day+1;
1: begin
day:=1;
mon:=mon+1
end;
2: begin
day:=1;
mon:=1;
year:=year+1
end;
end;
case temp of
9: writeln ('date not ok');
0: begin
writeln ('date is ok');
writeln (day, ' ', mon, ' ', year, ' ')
end
end;
end.

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

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