Пусть искомая команда имеет вид: Сместиться на (x, y)
И пусть начальные координаты Чертёжника (0,0).
После выполнения команды Сместиться на (–4, 8)он будет в точке (-4,8).
Далее, после выполненя цикла из 4-х команд:
Координата Х = -4 + 4*[х+(-2)+4]
Координата Y = 8 + 4*[y+(-5)+6]
Чтобы Чертёжник вернулся в исходную точку, его координаты X и Y должны быть равны начальным: X = 0, Y = 0.
То есть нам нужно решить два уравнения:
-4 + 4*[х+(-2)+4] = 0
-4 + 4х - 8 + 16 = 0
4х + 4 = 0
4х = -4
x = -1
8 + 4*[y+(-5)+6] = 0
8 + 4y - 20 + 24 = 0
4y + 12 = 0
4y = -12
y = -3
Значит, Команда1 должна иметь вид: Сместиться на (-1, -3)
Программа на языке Паскаль.
const N=30;
var i, s0, k, a: integer;
b: array [1..N] of integer;
begin
readln(a);
s0:=0;
k:=0;
randomize;
for i:=1 to N do
begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
if (b[i]<0) then s0:=s0+b[i];
if (b[i]>0) and (b[i]<=a) then inc(k);
end;
if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
else writeln('отрицательных чисел нет');
if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.
Ответ:
Что за piton может Python
Объяснение:
Можно попробовать через оператор выбора case (условие со многими выходами) если только такой оператор есть в турбо. в обычном паскале есть.
Например:
writeln(‘Введите цифру ‘);
readln(a);
case a of
0 : writeln (‘ноль‘);
1 : writeln (‘один‘);
2 : writeln (‘два‘);
3 : writeln (‘три‘);
4 : writeln (‘четыре‘);
5 : writeln (‘пять‘);
6 : writeln (‘шесть‘);
7 : writeln (‘семь‘);
8 : writeln (‘восемь‘);
<span> 9 : writeln (‘девять‘);
</span>