Система задач и упражнений по языку программирования Pascal. Часть 1 - 34 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

34
17. Переписать цикл FOR на алгоритмический язык:
17.1. с положительным шагом.
17.2. с отрицательным шагом.
18. Переписать цикл REPEAT на алгоритмический язык.
19. Переписать цикл WHILE через REPEAT.
20. Переписать цикл REPEAT через WHILE.
21. Переписать команду повторения "ДЛЯ" алгоритмического языка через FOR на
Паскаль:
21.1. с положительным шагом.
21.2. с отрицательным шагом.
21.3. в общем виде.
22.
Какие команды повторения на языке Паскаль и в каком случае не исполняются ни
разу?
23. Сколько раз исполнится данная серия команд:
(1). m:=0;
for i:=20 downto 2
do
m:=m+1;
(2). x:=1;
repeat
y:=sqr(x);
x:=x+2;
until x>=25;
(3). t:=-10;
while t<0 do
begin y:=sqr(x);
t:=t+1;
end;
(4). p:=1;
for i:=10 downto 8
do
p:=p*2;
(5). x:=1; y:=0;
for i:=1 to x do
for j:=5 downto y do
write(i+j);
(6). i:=1;
a:=i<=2; p:=false;
while a or p do begin
i:=i+1; a:=i<=2; p:=not(p) end;
(7). b:='123';
repeat
b:=b+b;
until true;
(8). a:= -1;
repeat
a:=a+1;
until a<>0;
24.При каком последнем значении будет исполняться цикл:
(1). for i=10 downto 8 do (2). g:=0;
while g<0 do
g:=g-1;
(3). L:=13;
repeat L:=13/2;
until L>6;
25. Каково будет значение параметра цикла после его окончания:
(1). n:=2;
for i:=10 downto 1 do
n:=n+3;
(2). y:=-1;
repeat h:=sqr(y);
y:=y+1;
until y>=16;
(3). u:=-25;
while u<=0 do
begin r:=sqr(u);
u:=u+5;
end;
(4). w:=1;
for i:=8 to 8 do
w:=w*2-1;
(5). for c:='a' to 'z' do
write(c);
(6). i:=1;
repeat
x:=10-i;
i:=i-4;
until i<-8;

Страницы