М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
varich83
varich83
16.05.2021 00:39 •  Информатика

На языке паскале сделайте 4 программы
а) Напишите программу, которая получает слово до точки и заменяет все маленькие латинские буквы a в ней на заглавные. Остальные не изменяет.

В этой программе массивы использовать нельзя.

Sample Input:

Sator Arepo tenet opera rotas.
Sample Output:

SAtor Arepo tenet operA rotAs.
б) Напишите функцию, которая получает длину массива чисел и сам массив, а возвращает максимальное нечетное число этого массива.

Sample Input:

5
1 21 30 4 15
Sample Output:

21
в)Напишите программу, которая получает слово до точки и заменяет все маленькие латинские буквы в ней на заглавные и наоборот. Остальные не изменяет.

В этой программе массивы использовать нельзя.

Sample Input:

To be or not To be.
Sample Output:

tO BE OR NOT tO BE.
г) Напишите программу, которая в последовательности целых чисел определяет их количество и сумму чётных чисел. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму чётных чисел.

В этой программе массивы использовать нельзя.

Sample Input:

4
60
15
0
Sample Output:

3
64

👇
Открыть все ответы
Ответ:
Duxa22
Duxa22
16.05.2021
Введение

Итак, целевой язык - С++.

Так как мы с тобой - парни попсовые, то будем делать по красоте. Я хочу получить инструментарий для описания произвольных фигур подобного рода с минимальными изменениями в коде. При этом хочу, чтобы описания этих фигур в коде были наглядными и позволяли представить, как строятся эти фигуры.

В связи с этим, обычное простое математическое описание нам не подходит. Так как банальное разбиение по четвертям и написание вложенных if - путь презрения. Не будь таким.

Что я предлагаю сделать вместо этого? Всё гениальное просто!

Описание предметной области и подхода к решению

Предлагаю воспользоваться свойством расстояний. Как думаешь, какое расстояние имеет точка M(x, y) до окружности O с центром в (0; 0) и радиусом 20? Правильно, L = \sqrt{(x - 0)^2 + (y-0)^2} - 20. При чем, если мы возьмем точку, например, М(15, 15), то получим L > 0. Если же возьмём M(3; 3), то получим L <= 0.

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

Функции расстояния зависят от вида объекта. Для окружности я привел выше. Для квадрата тоже есть своя функция расстояния.

В нашей задаче мы имеем две окружности Big(0, 0, 20) и Small(0, 0, 10).

При этом из меньшей окружности вырезали первую и третью четверти, что можно выразить как сумму двух квадратов вырезанных из этой окружности: Quarter1(0,0, 10,10) и Quarter3(0,0, -10,-10).

Разность Small и этих двух квадратов даёт нам фигуру вырезанной области, которую мы вычитаем из Big.

Арифметика фигур

Как же работает это сложение? Ну, если мы складываем две фигуры, то нам интересно минимальное расстояние до любой из них. Мы считаем, все их одной фигурой.

Если мы пересекаем две фигуры, то нас интересует максимальное расстояние до любой из них.

Если мы отрицаем фигуру, мы получаем инверсию области. Для большого круга это было бы всё, что вне круга.

Если мы вычитаем фигуры, то нас интересует максимальное расстояние: до первой фигуры или до инверсии вычитаемой фигуры.

Big - (Small - (Quarter1 + Quarter3))

Хотелось бы  в коде получить подобное понятное и наглядное описание, как мы привели здесь.

Что мы имеем из этих требований. Набор объектов и методов работы с ними, которые разняться от типа к типу. Как под копирку описание Объектно-ориентированного подхода.

Какие сущности мы можем выделить их описаний?

ТочкаФигураОкружностьПрямоугольник (общий случай квадрата)Фигура-суммаФигура-разностьФигура-пересечениеТочка

По сути просто набор из координат X и У.

Но есть ряд полезных методов, которые могут нам пригодиться:

Сложение точек;Вычитание точек;Максимальная комбинация;Длина соответствующего вектора.

Эти методы сильно упростят нам, простым смертным жизнь.

Фигура

Общее определение для всех других фигур.

Сама по себе ничего не значит: мы ведь не можем знать, круг это или квадрат, или, может, какая комбинация?

Для чего оно надо? Оно даёт обобщение понятия фигура. Есть же у фигур что-то общее, из-за чего их зовут фигурами! В нашем случае:

Для всех фигур можно точно сказать, находится ли точка M внутри;До всех фигур можно посчитать расстояние из точки M;Все фигуры можно складывать, вычитать и пересекать.Круг

Объект с точкой О и радиусом R.

Как считать расстояние уже было показано: разница точек -> длина соответствующего вектора - R.

Прямоугольник

Задаётся 2 точками (A и B), лежащими на одной диагонали прямоугольника.

Расстояние, может показаться, считается хитро, но на самом деле, нет.

В коде можно посмотреть.

Фигура-сложение (объеднинеие)

UnitedFigure

Состоит из двух фигур.

Расстояние - минимальное расстояние до одной из фигур.

Фигура-вычитание (дополнение)

ComplementedFigure

Состоит из двух фигур.

Расстояние - максимальное расстояние либо до первой фигуры, либо до инверсии второй фигуры.

Фигура-пересечение (пересечение)

IntersectedFigure

Состоит из двух фигур.

Расстояние - максимальное расстояние до любой из фигур.

Код

Пришло время кода! Ура!!

Он простой и с пояснениями. И найти его ты можешь в приложениях к ответу (файл .CPP).

Пример работы приведен на изображении.

Можешь удалить вызовы функций test_this_point.


Определить принадлежит ли точка М(x,y), заданной фигуре?
Определить принадлежит ли точка М(x,y), заданной фигуре?
4,5(44 оценок)
Ответ:
sirkoalbina
sirkoalbina
16.05.2021
Pascal:
const n = 10;
var a:array [1..n] of integer;
     i,max,c:integer;
begin
 clrscr;
 readln (a[1]);
 max:=a[1];
 c:=1;
 for i:=2 to n do
  begin
   readln (a[i]);
   if a[i]>max then
    begin
     max:=a[i];
     c:=1;
    end
    else if a[i]=max then inc(c);
  end;
 writeln ('Kol-vo: ',c);
end.

C++:
#include <iostream>
using namespace std;

int main()
{
  int a[10];
  int c = 0,max;
  cin >>a[0];
  max = a[0];
  for (int i = 1; i<10; i++)
  {
    cin >>a[i];
    if (a[i]>max)
    {
      max = a[i];
      c = 1;
    }
    else if (a[i]==max)
             ++c;
  }
  cout <<"KOL_VO: " <<c <<endl;
  return 0;
}
4,8(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ