פתרון המבחן
.1
ProgramNumber;
ver N, I, num: integer;
begin
writln(('הקש מספר שלם' ;
readln (N);
for 1:=1 to N do
begin
read(num);
if num mod 3 - 0 then
counter:=counter + 1;
end;
writeln(counter, ' : מספר המספרים המתחלקים ב-3') ;
end.
(num mod 10 = num div 10) and (num 50) .2
3. א. פלט התכנית: 24
20
16
12
8
4
ב.
I:=24;
repeat
writeln(I);
I:=I-4;
until I = 0;
4.
for i:=1 to 100 do
if I mod 2=0 then
list[I]:= 'B'
else
list[I]:='A';
5. א. הטעות היא שנכנס ללולאה אין סופית כיוון שבקידום num ערכו לא יהיה 20.
ב. שינוי תנאי הכניסה ללולאה ל-while Num = 20 do
Program targil 6;
Var 1:integer;
begin
for 1:=100 to 999 do
begin
digitl: = 1 mod 10;
digit2: = 1 mod 100;
digit2: = digit2 div 10;
digit3: = 1 div 100;
if digitl+digit2 = sqr(1) then
writeln (1);
end;
end;
7. א. הערכים שתחזיר הפונקציה הם: 9 ו 16.
ב. ערך הפרמטר Num : 27 או 225
ג.
sum:=0;
read (Num);
while Num > 0 do
if Num mod SumOfDigit(Num) = 0 then
begin
writeln(Num);
sum:=sum+1;
end;
writeln(sum, ':'כמות המספרים המקיימים את התנאי);
8. א. פלט התכנית יהיה: 9 5
ב. פלט התכנית יהיה: 2 5
ג. פלט התכנית יהיה: 9 7
9. א. קלט - ציוני 200 התלמידים במקצוע מחשבים
פלט - הציונים הנמוכים מהממוצע.
ב. משתנים ומערכים:
avg - משתנה לחישוב ממוצע הציונים, טיפוסי ממשי.
sum - משתנה עזר לחישוב הממוצע.
grade array - מערך לקליטת ציוני התלמידים, טיפוס האיברים במערך - שלם.
ג.
program grades;
const students = 200;
type gr ar = array [1..students] of integer;
var
avg:real;
sum,I:integer;
grade array_:gr_ar;
begin
sum:=0;
for i:=1 to students do
begin
read (grade _ array[i]);
sum: =sum + grade _ array [i];
end;
avg:=sum/students;
for I:= 1 to students do
if grade array [I] avg then
write (grade_array [I]:5);
end.
10.
program shoes;
var
katalog, I:integer;
dep1, dep2, dep3, dep4:integer;
function hundred(katalog:integer):integer;
begin
hundred:=katalog div 100;
end;
begin
dep1:=0; dep2; =0; dep3:=0; dep4:0;
read(katalog);
while katalog > 0 do
begin
case hundred(katalog) of
1 : dep1 : =dep1+1;
2 : dep2 : =dep2+1;
3 : dep3 : =dep3+1;
4 : dep4 : =dep4+1;
end;
read(katalog);
end;
write(dep1, dep2, dep3, dep4, (dep1+dep2+dep3+dep4)/4;
end;
גולשים מקוונים: 14