Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b – целые числа), перемещающую чертёжника из точки с координатами (x, y), в точку с координатами (x+a, y+b если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные — уменьшается. например, если чертёжник находится в точке с координатами (2, 4), то команда сместиться на (1, –5) переместит чертёжника в точку (3, –1). запись повтори k раз команда1 команда2 команда3 конец означает, что последовательность команд команда1 команда2 команда3 повторится k раз. чертёжнику был дан для исполнения следующий алгоритм: сместиться на (1, 3) повтори 4 раз сместиться на (0, 2) сместиться на (3, 1) сместиться на (–4, –4) конец какую команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение? 1) сместиться на (–3, –1) 2) сместиться на (3, 1) 3) сместиться на (–4, –4) 4) сместиться на (4, 4)
Ответы
Нарисуй систему координат и выполни последовательно все команды - тогда выйдешь на правильный вариант ответа.
//Как-то громоздко получилось, но я так вижу. Эх, выходные.
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if a[i]=j then inc(b[j]);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if (b[j]>1) and (a[i]=j) then a[i]:=9;
if a[i]<>9 then
begin;
inc(c);
ar[c]:=a[i];
end;
end;
writeln;
for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;
for i:=1 to c do
begin;
a[i]:=ar[i];
write(a[i]:4);
end;
end.
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if a[i]=j then inc(b[j]);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if (b[j]>1) and (a[i]=j) then a[i]:=9;
if a[i]<>9 then
begin;
inc(c);
ar[c]:=a[i];
end;
end;
writeln;
for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;
for i:=1 to c do
begin;
a[i]:=ar[i];
write(a[i]:4);
end;
end.
1. Для цикла For
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дан одномерный числовой массив. вычислить в какой позиции массива встретилось число со значением a.
Автор: Pavel_Olegovna1601
Это информатика по онлайн м мектеп
Автор: kononova_Pavel689
Задание в ворде с рисунком. прикрепите файлом
Автор: Zheleznyakova
Объясните смысл фразы " иформация - знание, знание - сила, сила - победа "
Автор: balabinatanya7174
КАК НАЗЫВАЮТ ПРОГРАМУ ПОЗВОЛЯЮЩУЮ РАОТАТЬ С ВЕКТОРНЩЙ ГРАФИКОЙ
Автор: bochkarevazh
