11-01-2005, 18:28
|
|
|
חבר מתאריך: 18.12.02
הודעות: 5
|
|
אחי, פיתרון מלא לתוכנית א' למרות שאני לא בטוחה שהבנתי אותה נכון
הילד מקבל אישור מחלה רק אם החום היה במשך 3 ימים רצוף מעל 38? או מספיק
שפעם אחת הוא היה מעל 38 לאישור מחלה?
בכל מקרה אני עשיתי רק למקרה של 3 ימים רצוף הוא מקבל אישור מחלה ל-3 ימים.
אם אתה רוצה לשנות לאישור מחלה אחד תשנה את ה-mone ל-1.
הינה התוכנית...
קוד:
Program exm;
uses wincrt;
type
arr=array [1..30] of integer;
var
s:arr;
procedure ch(var m:arr);
var
i,mone:integer;
begin
for i:=1 to 30 do
begin
writeln ('הכנס כמה מעלות חום');
readln (m[i]);
end;
mone:=0;
for i:=1 to 30 do
begin
if m[i]>=38 then
if m[i+2]>=38 then
if m[i+3]>=38 then
mone:=mone+3;
end;
writeln (mone);
end;
begin
ch(s);
end.
|