Что будет нарисовано в результате выполнения алгоритма использовать Чертежник алг нач сместиться в точку (-3, 5) опустить перо сместиться на вектор (4, 3) сместиться на вектор (2, -1) сместиться на вектор (4, 0) сместиться на вектор (2, 1) сместиться на вектор (2, -2) сместиться на вектор (0, -4) сместиться на вектор (-3, -2) сместиться на вектор (-1, 2) сместиться на вектор (0, -4) сместиться на вектор (-1, -1) сместиться на вектор (-3, 0) сместиться на вектор (0, 1) сместиться на вектор (2, 0) сместиться на вектор (0, 1) сместиться на вектор (-1, 3) сместиться на вектор (-1, -1) сместиться на вектор (-2, -1) сместиться на вектор (-3, 2) сместиться на вектор (-1, 3) сместиться на вектор (-4, -1) сместиться на вектор (-3, -3) сместиться на вектор (-1, -3) сместиться на вектор (1, 1) сместиться на вектор (1, -3) сместиться на вектор (0, -5) сместиться на вектор (3, 0) сместиться на вектор (0, 1) сместиться на вектор (1, 0) сместиться на вектор (0, 5) сместиться на вектор (3, 0) сместиться на вектор (0, -6) сместиться на вектор (3, 0) сместиться на вектор (0, 5) сместиться на вектор (1, 0) сместиться на вектор (0, -1) сместиться на вектор (-1, -3) сместиться на вектор (3, -1) сместиться на вектор (1, 4) сместиться на вектор (0, 2) кон
Ответы
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/db195.jpg)
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/0a7c0.jpg)
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.
Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Решить задачу на языке Паскаль x=1, 82; y=18, 23
Автор: LIN1022
Написать программу на с++. вариант 14
Автор: Vik1744184
решить выражения по информатике
Автор: tat122
По точкам получается слон