Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b — целые числа), перемещающую чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные — уменьшается. например, если чертёжник находится в точке с координатами (1, 1), то команда сместиться на (–2, 4) переместит чертёжника в точку (–1, 5). запись повтори k раз команда1 команда2 команда3 конец означает, что последовательность команд команда1 команда2 команда3 повторится k раз. чертёжнику был дан для исполнения следующий алгоритм: сместиться на (–3, 1) повтори 2 раз сместиться на (1, 1) сместиться на (−3, 2) сместиться на (0, −4) конец какую единственную команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение? 1) сместиться на (4, 2) 2) сместиться на (–4, –2) 3) сместиться на (7, 1) 4) сместиться на (–7, –1)
Ответы
3) Сместиться на (7, 1)
Const n=5;
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,n];
for i:=2 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do
begin
write(b[i]:4);
s:=s+b[i];
end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do
if b[i]>s/n then write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
10 19 15 17 10
12 12 10 1 5
17 8 8 14 15
12 11 8 0 13
2 2 4 10 6
1. max = 11
2. Массив B
10 1 8 0 2
3. среднее = 4.2
10 8
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,max,min,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,n];
for i:=2 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln('1. max = ',max);
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<min then min:=a[i,j];
b[i]:=min;
end;
s:=0;
writeln('2. Массив B');
for i:=1 to n do
begin
write(b[i]:4);
s:=s+b[i];
end;
writeln;
writeln('3. среднее = ',s/n);
for i:=1 to n do
if b[i]>s/n then write(b[i]:4);
writeln;
end.
Пример:
Исходный массив:
10 19 15 17 10
12 12 10 1 5
17 8 8 14 15
12 11 8 0 13
2 2 4 10 6
1. max = 11
2. Массив B
10 1 8 0 2
3. среднее = 4.2
10 8
Лучше скачайте прикреплённый файл, так как здесь всё слилось))
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вычислите значения следующих выражении: а) а81^16 + 377^16 б) 1ав^16 - 2cd^16
Автор: triumfmodern
100101 + 111100101 - 111100101 : 111100101 * 111
Автор: strager338
В этом файле код программы-клиента на python, но почему-то возникает ошибка с портом, исправьте ошибку
Автор: Станиславович ыфвыв
с информатикой нужно записать программу в Pydroid 3.Вообще не понимаю:((
Автор: palosik7621