beglovatatiyana
?>

Одномерный массив а(15) заполнен случайным образом в интервале(-15, 20 получить массив в таким образом, чтобы его элементами были нечётные элементы массива а

Информатика

Ответы

nadjasokolova2017
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-15,20); a.Println;
  var b:=a.Where(t->t.IsOdd).ToArray; b.Println
end.

Пример
-5 17 0 6 -3 10 -5 18 1 15 3 18 -1 -1 12
-5 17 -3 -5 1 15 3 -1 -1
Yurevich1291

Извините, что-то я не заметил, что в задании на Паскале надо было написать, поэтому сначала на Питоне написал.

Вот на Паскале:

program HW;

var r,x,y: real;

var chk:string;

begin

   write('Введите радиус: '); readln(r);

   r := abs(r);

   write('Введите X координату точки: '); readln(x);

   write('Введите Y координату точки: '); readln(y);

   

   if (x>=0) and (abs(x)<=r) and (y>=0) and (abs(y)<=r) then chk := 'ВХОДИТ'

   else if (x<=0) and (abs(x)<=r) and (y<=0) and (abs(y)<=r) then chk := 'ВХОДИТ'

   else if (x<=0) and (abs(x)<=r) and (y>=0) and (abs(y)<=r) and (y<=-1*sqrt(sqr(r)-sqr(x+r))+r) then chk := 'ВХОДИТ'

   else if (x>=0) and (abs(x)<=r) and (y<=0) and (abs(y)<=r) and (y>=sqrt(sqr(r)-sqr(x-r))-r) then chk := 'ВХОДИТ'

   else chk := 'НЕ ВХОДИТ';

   

   writeln('Точка с координатам (', x:1:1, ', ', y:1:1, ') ', chk, ' в выделенную область.');

end.

А это то же на Питоне, вдруг пригодится:

import math

r = abs(float(input("Введите радиус: ")))

x = float(input("Введите X координату точки: "))

y = float(input("Введите Y координату точки: "))

if x>=0 and abs(x)<=r and y>=0 and abs(y)<=r: chk = 'ВХОДИТ'

elif x<=0 and abs(x)<=r and y<=0 and abs(y)<=r: chk = 'ВХОДИТ'

elif x<=0 and abs(x)<=r and y>=0 and abs(y)<=r and y<=-1*math.sqrt(r**2-(x+r)**2)+r: chk = 'ВХОДИТ'

elif x>=0 and abs(x)<=r and y<=0 and abs(y)<=r and y>=math.sqrt(r**2-(x-r)**2)-r: chk = 'ВХОДИТ'

else: chk = 'НЕ ВХОДИТ'

print("Точка с координатам (%.1f, %.1f) %s в выделенную область." % (x, y, chk))


Нужен код для паскаля и блок-схема. Написать программу, которая определяет, попадает ли точка с зада
Panda062000

Зачем нужны программы распознавания текста.

С их выполняется редактирование информации, исправление ошибок, сохранение данных в нужном формате и т.

Как происходит распознавание текста?

Поэтапное сканирование и распознавание текста. ... Далее происходит проверка на предмет синтаксических и орфографических ошибок

Какие программы распознавание текста вы знаете?

Они с легкостью переведут pdf, jpg, png или «бумажный файл» в редактируемый формат для Word и прочих офисных приложений.

ABBYY FineReader.

OCR CuneiForm.

Readiris Pro.

Freemore OCR.

ABBYY Screenshot Reader.

Adobe Acrobat Pro.

Scanitto Pro.

RiDoc.

Какими пользовались?

ABBYY FineReader.

OCR CuneiForm.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Одномерный массив а(15) заполнен случайным образом в интервале(-15, 20 получить массив в таким образом, чтобы его элементами были нечётные элементы массива а
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

krtatiana69
dsnewline
nane2924329
Look7moscow
olgolegovnak
ИвановнаВладимир1832
Anatolevich
krisrespect
ПетросовичЗаславский
ERodina1
zakupki
васильевич
александр496
sergeychelyshev197618
svo1961