שאלה ב Pascal ../images/Emo131.gif
איך לגרום למערך להיות אין סופי? ---------------------------------------------------------------------- program x; var kids,z,a,b,sum:integer; q:real; st:string; c:array [1..{??}] of string; begin kids:=0; repeat st:=´finish´; writeln(´hakesh at shimcha´); readln(c[n]);{???} if c<>st then begin writeln(´im hegata levad hakesh 1´); writeln(´im hegata im ben o bat zoog hacesh 2´); readln(a); sum:=sum+a; writeln(´hakesh mespar haieladim she hegioo itcha´); readln(b); kids:=kids+b; end; until c=st; writeln(´mespar habogrim shehegioo hoo:´,sum); z:=kids mod 20; q:=kids/20; if z<>0 then kids:=kids+1; kids:=trunc(q); writeln(´mespar hamadrichim she sarix lehazmin hoo:´,kids); end. ----------------------------------------------------------- כלומר לקלוט את C לשימוש בהמשך התוכנה
איך לגרום למערך להיות אין סופי? ---------------------------------------------------------------------- program x; var kids,z,a,b,sum:integer; q:real; st:string; c:array [1..{??}] of string; begin kids:=0; repeat st:=´finish´; writeln(´hakesh at shimcha´); readln(c[n]);{???} if c<>st then begin writeln(´im hegata levad hakesh 1´); writeln(´im hegata im ben o bat zoog hacesh 2´); readln(a); sum:=sum+a; writeln(´hakesh mespar haieladim she hegioo itcha´); readln(b); kids:=kids+b; end; until c=st; writeln(´mespar habogrim shehegioo hoo:´,sum); z:=kids mod 20; q:=kids/20; if z<>0 then kids:=kids+1; kids:=trunc(q); writeln(´mespar hamadrichim she sarix lehazmin hoo:´,kids); end. ----------------------------------------------------------- כלומר לקלוט את C לשימוש בהמשך התוכנה