Цикл с параметром и ветвление.
Выполните тест
Тест для проверки знаний основных операторов на Паскале.
1 Какой из циклов записан правильно?
1 ) for а:=15 to 20 do;
2 ) for k:=20 to 3 do;
3 )for d:=15 downto 4 ;
4 )for x:= -11 to -1;
2 Что будет выведено на экране в ходе выполнения программы for k:=0 to 3 do write(k);
3 Сколько раз выполнится цикл for k:=20 to 50 do write(k)?
4 Определите значение переменной b после исполнения данного алгоритма.
a := 5;
b := –3;
a := b + a * 3;
b := 360 / a;
b := a + b;
5 Выбрать оператор ветвления:
1 ) case ... of
2) if … then … else
3) while ... do
4) for ... to ... do
6 Какой ответ выдаст данная программа, если а=10?
var a: integer;
begin
write('Введите целое число ');
readln(a);
if a>0 then a:=a+1 else a:=a-2;
write(a)
end.
Опишите значение каждой строки и каждого оператора.
9 Выбрать верную запись оператора:
1) writeln(‘Я изучаю программирование);
2) writelen(‘Я изучаю программирование);
3) writeln(‘Я изучаю программирование’);
4) writeln(‘Я изучаю программирование’;
10 Укажите переменную типа Real:
1) K:=-0.2
2) C:= 64000
3) X= '5.5'
4) y:=false
Задание для самостоятельного выполнения:
1 Составьте блок-схему алгоритма и программу вывода на экран всех двузначных
чисел, кратных 9
2 Составьте программу вычисления суммы всех трехзначных чисел, кратных 17
Ответы
ответ на самостоятельную а тест щя решу
Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i:integer;
Begin
clrscr;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);
i:=100; {2 sposob}
while i<=999 do begin
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1;
end;
i:=100; {3 sposob}
repeat
if mas[i] mod 9=0 then writeln(mas[i]);
i:=i+1
until i=999
end.
2)
Program Pr1;
uses crt;
var mas:array[100..999] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=100 to 999 do mas[i]:=i; {1 sposob}
for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];
writeln(v);
i:=100; {2 sposob}
v:=0;
while i<=999 do begin
if mas[i] mod 17=0 then v:=v+mas[i];;
i:=i+1;
end;
writeln(v);
i:=100; {3 sposob}
v:=0;
repeat
if mas[i] mod 17=0 then v:=v+mas[i];
i:=i+1
until i=999;
writeln(v);
end.