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

UptoLike

ВУЗ: 

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

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

Рубрика: 

35
(7). i:=1;
a:=i<=2; p:=false;
while a or p do
begin i:=i+1;
p:=not(p) end;
(8). y:=4<5; x:=-2;
repeat
x:=sqr(x);
y:=not(y);
until y;
26. Найдите значение y после исполнения серии команд:
(1). y:=1;
for i:=14 downto 2 do
y:=3*y-2;
(2). y:=12;
repeat y:=y/2+3;
until y>0;
y:=y/3;
(3). y:=1;
while (y>12) and (y<25)
y:=sqr(y)-5;
(4). readln(b);
y:=56;
repeat
q:=b+10
y:=y/8;
until q>b;
(5). y:=8;
w:=true;
while (y>0) and w do begin
if not(y mod 2=0)
then w:=not(w)
else y:=y/2;
end;
(6). y:=45;
w:=false;
while not(w) do begin
if y mod 3=0
then y:=y/3
else w:=true;
end;
(7). f:=256;y:=f;
for i:=5 to trunc(f/32) do
y:=sqrt(y);
(8). s:=’’;y:=-2;
repeat
if y>5
then s:=’big’
else y:=y+2;
until s<>’big’;
(9). soob:=true;y:=0
for i:=0 to 5 do begin
if soob
then begin
soob:=false; y:=y+5; end;
if not(soob)
then begin
soob:=true; y:=y+2; end;
end;
27. Найдите ошибки в записи серии команд:
(1). r:=0;
for i:=1 to n do
к:=k+i end;
(2). q:=0;
for i:=1 to n
if q<0 then begin
q:=q+i end;
(3). p:=6;
for j:=9 to 8 do begin
p+1:=i+1 end; readln(‘p=’,p);
(4). q:=10;s:=’’;
while q<>0 do
s:=q*5-1;
q:=q-1;
writeln(s);
(5). n:=0;q:=true;
while i<=5 and q do
if i nod 2 =3
then trunc(i/2)=i/2 then q:=not(q);i:=0;
else q:=false;i:=i-1;
(6). readln(a);
repeat;
a:=a/2;
until if a<2;
(8). for i=1 to p/2 do q:=q+2; (7). writeln(q)
y:=t-8;
q:=y+t-q;
until q<y or t>y;
(9). q:=10; q:=(q+25)/5;
for p:=1 to q do write(‘*’);

Страницы