а) с помощью вспомогательной переменной; б) без использования вспомогательной переменной.
25.Поменяйте значения переменных M, N, P, T так, чтобы M приобрела значение T, N - M, P - N, T - P:
а) с помощью вспомогательной переменной; б) без использования вспомогательной переменной.
26.Перечислите виды условий. Как записывается условие на Паскале?
27.Перечислите операции отношения и логические операции. Назовите двуместные и одноместные логические операции.
28.Дайте определение логического выражения.
29.Сформулируйте правила вычисления логических выражений.
30.Объясните назначение и правила записи команды ветвления.
31.Объясните правила исполнения команды ветвления.
32.Объясните назначение и правила записи команды выбора.
33.Объясните правила исполнения команды выбора.
34.Сравните возможности команды выбора на алгоритмическом языке и Паскале.
35.Как надо поступать в случае, если в серию команд входит более одной команды?
36. Найдите синтаксические ошибки в записи команд:
(1). if 5 then S:=S+5;
(2). if B then x:=y; else B:=x;
(3). if x=y then x:=1; else x:=0;
(4). if (A=B) and P then P:=P+12;
(5). if (A<B) or C then C:='false';
(6). if P then P:='a=b';
(7). if x>y then begin x:=y else x:=z end;
(8). if C then A:=0 else C:=2;
(9). if x="false" then write ("ложь") else x:=true;
(10). if X or Y then begin write (Z) else write (T) end;
(11). if x<>y then else x:=y;
(12). if y=z then end;
(13) if x>0 then
y:=x
else y:=-x;
end;
(14) case n of
1..5: y:=3;
6..9: y:=4;
10: y:=5;
(15) if c>30
then
begin
y:=’жара’;
else y:=1-t
end;
(16) case k of
1.51: y:=2;
else 1.73: y:=3
end;
38. Найдите значение y после исполнения серии команд:
(1). x:=4;y:=5;
if x>0
then if y<8
then y:=sqr(x)
else y:=2*x+1
else y:=0;
(2). N:=7;
case N of
1..10: y:=1;
7: y:=2;
end;
(3). x:=-4;y:=5;
if x>0
then if x>0
then if x<8
then y:=sqr(x)
else y:=2*x+1;
(4). x:=12;y:=5;
if x>0
then if x<8
then y:=sqr(x)
else y:=2*x+1; y:=0;
(5). x:=8;
if x>9
then y:=2*x+1
else if x<7
then y:=0
else y:= sqrt(10-x);
(6). x:=5;
if x>0
then y:=2*x+1
else if x<8
then y:=sqr(-x)
else y:=0;
40. Перепишите команду ветвления через команду выбора: (x и t-целые числа в диапазоне от 0 до 70).
(1). if (t>=16) and (t<25) then writeln ('норма') else if (t>=26) then writeln ('повышена') else writeln ('понижена');
(2). if (x>=10) and (x<37) then y:=2*x+1 else if (x>=0) and (x<55) then y:=x*x*x else y:=0;
41.Перепишите команду выбора через команду ветвления.
(1). case t
-273..0: o:='лед';
1..100: o:='вода';
101..200: o:='пар';
end;
(2). case k of
10..20: f:=sqrt(k-5);
0..150: f:=sqr(k+1)
else f:=sqrt(abs(k))
end;
42. Определите, при каком значении аргументов после исполнения фрагмента программы получится указанный ответ (для каждого случая указать все решения).
(1). if (a=0) and (b>0) then writeln ('x-любое число') else if (a=0) and (b<=0) then writeln ('решений нет') else if (a<0) then writeln ('х<',-b/а:5:2) else if (a>0) then writeln ('х>',-b/а:5:2);
(2). if (x >=-1) and (x <=3) then y:=x*2 else if (x >=-4) and (x<5) then y:=x*x-10 else if (x >=5) then y:=x else y:=1;
ОТВЕТ:1. x<5
2. решений нет
3. 3. x>-3
ОТВЕТ:1. y=6 2.
2. y=-25 3.
3. y=1
43. Как работает при разных значениях аргументов следующий фрагмент программы?
d:=b*b-4*a*c;
if d<=0
then writeln('Действительных корней нет')
else x1:=(-b-sqrt(d))/2/a; x2:=(-b-sqrt(d))/2/a;
writeln('x1=',x1:5:2,' x2=',x2:5:2);
44.Перепишите команду ветвления без составных условий.
(1). if (t>=36) and (t<37)
then writeln ('норма')
else if (t>=37) and (t<42)
then writeln ('повышена')
else if (t>=35) and (t<36)
then writeln ('понижена')
else writeln ('ошибка');
(2). if (a=0) and (b=0)
then writeln ('x-любое число')
else if (a=0) and (b<>0)
then writeln ('решений нет')
else if (a<>0)
then writeln ('х=',b/а:5:2);
(3). if (x >=-6) and (x<7)
then y:=x+2
else if (x >=0) and (x<12)
then y:=-x*x
else if (x >=5) and (x<26)
then y:=x else y:=1;
(4). if (x>=0) and (x<7)
then y:=2*x+1
else if (x>=-7) and (x<25)
then y:=x*x*x
else if x>=35
then y:=1-x
else y:=0;
(5). if (a=0) and (b>0)
then writeln ('x-любое число')
else if (a=0) and (b<=0)
then writeln ('решений нет')
else if (a<0)
then writeln ('х<',-b/а:5:2)
else if (a>0)
then writeln ('х>',-b/а:5:2);
Циклы
1. Объясните назначение команды повторения.
2. Назовите различные формы команды повторения на Паскале.
3. В каких случаях используется оператор FOR?
4. Какие формы записи оператора FOR существуют?
5. Как происходит работа оператора FOR?
6. Как могут располагаться друг относительно друга различные циклы внутри одной программы?
7. Какими должны быть идентификаторы параметров вложенных циклов?
8. Для каких значений параметра исполняется серия команд цикла с параметром?
9. Какие ограничения на начальное, конечное значение параметра и величину шага существуют на языке Паскаль?
10. Сколько раз исполнится тело цикла FOR в зависимости от формы оператора, начального и конечного значений:
НЗ<КЗ
НЗ=КЗ
НЗ>КЗ
for to
for downto
11. Как организовать цикл с помощью оператора REPEAT?
12. Как организовать цикл с помощью оператора WHILE?
13. В чем отличие и сходство циклов REPEAT и WHILE?
14. Сравните работу циклов FOR, WHILE, REPEAT по следующим параметрам:
a) обязателен ли параметр цикла, и каким он должен быть;
b) требуется ли начальная установка параметра цикла;
c) возможно ли изменение параметра цикла в теле цикла;
d) в каком случае цикл завершается, и как определяется количество повторов;
e) может ли цикл не выполнится ни разу;
f) исполняется ли цикл всегда хотя бы один раз;
g) обязательно ли наличие операторных скобок в составном операторе тела цикла.
15. Переписать цикл FOR через WHILE (с положительным шагом).
16. Переписать цикл FOR через WHILE (с отрицательным шагом).
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;
(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;
(7). writeln(q)
y:=t-8;
q:=y+t-q;
until q<y or t>y;
(8). for i=1 to p/2 do q:=q+2;
(9). q:=10; q:=(q+25)/5;
for p:=1 to q do write(‘*’);
(10). t:='ура'
for k to 1 do
t:=t+'!';
(11). S:='1';
for i:=1 to S do
write(S);
(12). S:=0 or S:=1;
while (S=0) end (S<’1’)
begin k:=k+1;
S:=S-1;
(13). a:= -1; b:=1;
repeat:
if a<1 then b:=b-1
if a>1 then b:=b+1;
until: a>5
(14). for ch:=’a’ to ‘z’
S:=ch*2-ch;
write(S);
(15). while i<7 do
begin if i:=1 then i:=4-x else i:=’8’;
28. Определите, что делает данный фрагмент программы:
(1). S:=0; n:=0; for i:=1 to 25 do if i mod 3 =0 then begin n:=n+1; S:=S*(n-1)/n+i/n end;
(2). for i:=1900 to 2000 do if (i mod 4=0) and (i mod 100<>0) or (i mod 400=0) then write(i);
(3). while m<>n do if m>n then m:=m-n else n:=n-m; write(m);
(5). f:=false; i:=1; write('n='); readln(n); repeat write('m='); readln(m); i:=i+1; if m<n then f:=true else n:=m; until f or (i=100); if f then writeln('нет') else writeln('да');
(6). k:=0; i:=0; f:=true; repeat write('n='); readln(n); i:=i+1; if (n<0) and f then k:=k+1 else f:=false; until (i=50) or not(f); writeln(k);
(7). write('n='); readln(n); m:=0; for i:=1 to n-1 do if n mod i=0 then m:=m+i; if m=n then write('да') else write('нет');
29. Напишите фрагмент программы для вычисления:
(1) суммы чисел, обратных к первым N натуральным числам;
