Цикл с параметром и ветвление.Сделайте тестТест для проверки познаний главных операторов
Цикл с параметром и ветвление.
Выполните тест
Тест для проверки познаний основных операторов на Паскале.
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 agt;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 ilt;=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 ilt;=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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.