Чертёжнику был дан для исполнения следующий алгоритм: Сместиться на вектор (–4, 8) Повтори 4 раза Команда1 Сместиться на вектор (–2, –5) Сместиться на вектор (4, 6) конец Какую команду надо выполнить Чертёжнику вместо команды Команда1, чтобы вернуться в исходную точку, из которой он начал движение?
Сместиться на вектор (-1,3) Сместиться на вектор (1,-3) Сместиться на вектор (1,3) Сместиться на вектор (-1,-3)
Чертёжнику был дан для исполнения следующий алгоритм: Сместиться на вектор (2, 6) Повтори 2 раз Сместиться на вектор (2, 1) Сместиться на вектор (–5, 4) Сместиться на вектор (1,–4) Конец Сместиться на вектор (-2,-8) Сместиться на вектор (2,8) Сместиться на вектор (2,-8) Сместиться на вектор (-2,8)
Чертёжнику был дан для исполнения следующий алгоритм: Сместиться на вектор(−1,1) Повтори 4 раз Сместиться на вектор(3,1) Сместиться на вектор(0, 2) Сместиться на вектор(−1, 4) конец
Сместиться на вектор (-7,-29) Сместиться на вектор (7,-29) Сместиться на вектор (7,29) Сместиться на вектор (-7,29)
Восстановите правильный порядок команд исполнителя Чертёжник, чтобы получился рисунок
Задание 1. var A, B, C, F: boolean; i, j, k: integer;
begin for i := 0 to 1 do for j := 0 to 1 do for k := 0 to 1 do begin A := (i = 1); B := (j = 1); C := (k = 1); F := ((A and B) and C) = (A and (B and C)); Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F) end end.
Результат выполнения программы: A=False, B=False, C=False, результат сравнения:True A=False, B=False, C=True, результат сравнения:True A=False, B=True, C=False, результат сравнения:True A=False, B=True, C=True, результат сравнения:True A=True, B=False, C=False, результат сравнения:True A=True, B=False, C=True, результат сравнения:True A=True, B=True, C=False, результат сравнения:True A=True, B=True, C=True, результат сравнения:True
Задание 2. var a, b, c: integer;
begin for a := 1 to 9 do for b := 0 to 9 do for c := 0 to 9 do if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c) end.
var s,s1:string; a:array[1..100] of string; n,i,j,k:byte; begin writeln('Введите текст из слов, разделенных пробелами'); readln(s); s:=' '+s+' '; n:=length(s); i:=2;k:=0;while i<=n do if (s[i]<>' ')and (s[i-1]=' ') then begin k:=k+1; j:=i; s1:=''; while (j<=n) and (s[j]<>' ') do begin s1:=s1+s[j]; j:=j+1; end; a[k]:=s1; i:=i+length(s1); end else i:=i+1; for i:=1 to k-1 do for j:=i+1 to k do if a[i]>a[j] then begin s1:=a[i]; a[i]:=a[j]; a[j]:=s1 end; writeln('Слова текста в алфавитном порядке:'); for i:=1 to k do writeln(a[i]); end.
var
A, B, C, F: boolean;
i, j, k: integer;
begin
for i := 0 to 1 do
for j := 0 to 1 do
for k := 0 to 1 do
begin
A := (i = 1); B := (j = 1); C := (k = 1);
F := ((A and B) and C) = (A and (B and C));
Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F)
end
end.
Результат выполнения программы:
A=False, B=False, C=False, результат сравнения:True
A=False, B=False, C=True, результат сравнения:True
A=False, B=True, C=False, результат сравнения:True
A=False, B=True, C=True, результат сравнения:True
A=True, B=False, C=False, результат сравнения:True
A=True, B=False, C=True, результат сравнения:True
A=True, B=True, C=False, результат сравнения:True
A=True, B=True, C=True, результат сравнения:True
Задание 2.
var
a, b, c: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c)
end.
Результат выполнения программы:
100
147
s,s1:string;
a:array[1..100] of string;
n,i,j,k:byte;
begin
writeln('Введите текст из слов, разделенных пробелами');
readln(s);
s:=' '+s+' ';
n:=length(s);
i:=2;k:=0;while i<=n do
if (s[i]<>' ')and (s[i-1]=' ') then
begin k:=k+1;
j:=i;
s1:='';
while (j<=n) and (s[j]<>' ') do
begin
s1:=s1+s[j];
j:=j+1;
end;
a[k]:=s1;
i:=i+length(s1);
end
else i:=i+1;
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i]>a[j] then
begin s1:=a[i];
a[i]:=a[j];
a[j]:=s1
end;
writeln('Слова текста в алфавитном порядке:');
for i:=1 to k do
writeln(a[i]);
end.