הצעת פתרו בחינת הבגרות .מוגשת על ידי רשת אנקורי הפתרו נכתב על ידי מצוות מורי הרשת בגרות ופסיכומטרי נית למצוא את הפתרו ג ב 1.800.85.85.85 www.ankori.com www.yedtichon.co.il
במחשבי
איל פנחס
899222 שאלו
שורה 1 2 2.1.1 2 2 2.1.1 2 2 2.1.1 2 k 1 2 2 3 8 4 5 18 6 18 :פלט 2 שאלה
program tar2; uses crt; var i:integer; function sub(a,b:integer):integer; begin sub:=abs(a-b); end; begin clrscr; write( sub(i,i)); end.
1 שאלה
sum 0
3 שאלה
program tar3; uses crt; var tel,st1:string; begin clrscr; (a) readln(tel); (b) st1:='abc'+tel; (c) writeln(st1[7]); writeln(st1[8]); end.
4 שאלה
program tar4; uses crt; var mar:array[1..57] of integer; i,meot,ahadot:integer; begin clrscr; { *** } for i:=1 to 57 do begin meot:=mar[i] div 100; ahadot:=mar[i] mod 10; if meot=2*ahadot then writeln(mar[i)]; end { *** } end. 5 שאלה num 2 8 7 1 7 3 2 3 4 3 num 1 15 8 count 0
.א
3 הפלט 5,5 :ב. דוגמה לקלט 6 שאלה
n 8 1 0 2 0 3 0 4 0 flag 1 k a 876 52
:הפלט 8 7 7 6 6 5 5 2 .שאלה 6 סעי ב 8 7 6 5 4 1 .שאלה 6 סעי ג 9 8 7 6 3 2 .שאלה 6 סעי ג 8 7 6 5 4
7 שאלה
program tar7; uses crt; var i,j,avg,sum,grd,kamut:integer; name:string; begin clrscr; { *** } kamut:=0; for i:=1 to 30 do begin writeln('enter your name '); readln(name); sum:=0; for j:=1 to 3 do begin writeln('enter grade'); readln(grd); sum:=sum+grd; if (j=3) and (grd>85) then begin sum:=sum+15; if sum>300 then sum:=300; end; end; avg:=sum div 3; writeln(name,avg:4); if avg=100 then kamut:=kamut+1; end; writeln(kamut, ' got 100 '); { *** } end.
8 שאלה
program tar8; uses crt; procedure matim(var p_sel:integer; pl,pv:integer); var sel:integer; begin sel:=pv*pl; if sel<8 then p_sel:=0 else if sel<16 then p_sel:=1 else p_sel:=2; end; { of matim } var i,kamut,madad,limud,vetec:integer; begin clrscr; kamut:=0; for i:=1 to 100 do begin writeln('enter limud'); readln(limud); writeln('enter vetec'); readln(vetec); matim(madad,limud,vetec); if madad=2 then kamut:=kamut+1; end; writeln(kamut, ' got madad 2'); end.
9 שאלה
program tar9; uses crt; type arr=array[1..15,1..18] of integer; var a:arr; i,j,kamut:integer; function is_flr(pa:arr; fi,fj:integer):integer; begin is_flr:=0; if pa[fi,fj]=pa[fi-1,fj-1]+pa[fi+1,fj1]+pa[fi-1,fj+1]+pa[fi+1,fj+1] then is_flr:=1; end; { of is_flr } begin clrscr; kamut:=0; for i:=2 to 14 do for j:=2 to 17 do kamut:=kamut+is_flr(a,i,j); if kamut>4 then writeln('yes pirhoni') else writeln('no pirhoni'); end.
10 שאלה
program tar10; uses crt; procedure klita(p_n:integer;var p_ad, p_yr, p_tz:integer); var i:integer; colr:char; begin for i:=1 to p_n do begin writeln('enter haruz r or g or y'); readln(colr); if colr='r' then p_ad:=p_ad+1; if colr='g' then p_yr:=p_yr+1; if colr='y' then p_tz:=p_tz+1; end; end; { of klita } var n,total,pgoomim,ad,yr,tz:integer; function pagoom(fr,fg,fy:integer):integer; begin pagoom:=1; if (fr=fg) and (fg=fy) then pagoom:=0; end; { of pagoom } begin { of main } clrscr; total:=0; pgoomim:=0; writeln('enter kamut haruzim'); readln(n); while n>0 do begin total:=total+1; klita(n,ad,yr,tz); pgoomim:=pgoomim+pagoom(ad,yr,tz); writeln('enter kamut haruzim),; readln(n); end; writeln('total=',total); writeln('pgoomim=',pgoomim); .end