Вероникапривет
04.09.2021 05:50

Создайте три вектора с элементами различного типа данных. Над каждым из векторов выполните следующие операции, используя специальные методы (функции):
1)введите одну половину элементов вектора с конца, другую - с начала;
2)упорядочите вектор в порядке возрастания;
3)вставьте в вектор элемент на заданную позицию (элемент и позиция вводятся с клавиатуры);
4)определите размер вектора;
5)упорядочите вектор в порядке убывания;
6)удалите из вектора элемент на заданной позиции (позиция вводится с клавиатуры);
7)очистите вектор.
После каждого действия выводите вектор на экран. За нарушение антиплагиата - бан!
2. Выберите любой объект (от школьника до многоэтажки, от дерева до кота) и:
опишите его структурой, которая содержит не менее трех различных полей разного типа данных;
введите(считайте) информацию об N объектах в массив элементов, имеющих тип созданной структуры;
1)выведите на экран полную информацию о введенных объектах, упорядочив записи по одному из поля структуры;
2)выведите на экран информацию о объектах, которые соответствуют некоторому введенному с клавиатуры составному условию (например, вывести клички всех котов, проходивших лечение в клинике, с породой сфинкс и возрастом более года).
П.С. У каждого ученика должен быть УНИКАЛЬНЫЙ ОБЪЕКТ! За нарушение антиплагиата - бан!
3.Выберите любой объект, который можно представить в виде пары параметров (например, русское слово - его иностранный аналог, имя абонента - его номер телефона, ФИО человека - серия и номер его документа и др.) и:
опишите его с словаря (структура map);
1)введите(считайте) информацию об N объектах;
2)выведите на экран полную информацию о введенных объектах, упорядочив записи по одному из поле структруы;
3)выведите на экран информацию о объектах, которые соответствуют введенному ключу (например, выведите ФИО по введенному номеру документа);
4)вставьте новый элемент в словарь с специального метода (функции) словаря;
5)удалите элемент из словаря с специального метода (функции) словаря.
П.С. У каждого ученика должен быть УНИКАЛЬНЫЙ ОБЪЕКТ! За нарушение антиплагиата - бан!
4. Создайте два множества и:
1)заполните эти множества (отдельно друг от друга), попутно выводя информацию о том, содержится ли вводимый элемент в множестве или нет;
2)выведите количество элементов первого множества, используя специальные методы (функции);
3)выведите количество элементов второго множества, используя специальные методы (функции);
4)выведите элементы, которые входят в оба множества, используя специальные методы (функции);
5)выведите элементы, которые входят только в одно множество (для каждого из множеств отдельно), используя специальные методы (функции).
За нарушение антиплагиата - бан

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
dzeratigieva
10.11.2021 18:15
Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.
0,0(0 оценок)
Ответ:
Askmay
28.04.2022 06:23
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.r_i^2=x_i^2+y_i^2

// PascalABC.NET 3.0, сборка 1088
var
  x1,x2,y1,y2,r1,r2:real;
begin
  Write('Введите координаты первой точки: '); Read(x1,y1);
  Write('Введите координаты второй точки: '); Read(x2,y2);
  r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
  if r1>r2 then Writeln('Ближе вторая точка')
  else
    if r1<r2 then Writeln('Ближе первая точка')
    else Writeln('Точки равноудалены')
end.

Тестовое решение:
Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота