Princesska88
02.03.2020 05:14

Перепишите решение этой на паскале(или сами напишете) с этого сайта кому удобнее дан список точек плоскости с целочисленными координатами. необходимо определить: 1) номер координатной четверти k, в которой находится больше всего точек; 2) точку a в этой четверти, наименее удалённую от осей координат; 3) расстояние r от этой точки до ближайшей оси. если в нескольких четвертях расположено одинаковое количество точек, следует выбрать ту четверть, в которой величина r меньше. при равенстве и количества точек, и величины r необходимо выбрать четверть с меньшим номером k. если в выбранной четверти несколько точек находятся на одинаковом минимальном расстоянии от осей координат, нужно выбрать первую по списку. точки, хотя бы одна из координат которых равна нулю, считаются не принадлежащими ни одной четверти и не рассматриваются. напишите эффективную, в том числе по памяти, программу, которая будет решать эту . перед текстом программы кратко опишите алгоритм решения и укажите используемый язык программирования и его версию. описание входных данных в первой строке вводится одно целое положительное число - количество точек n. каждая из следующих n строк содержит координаты очередной точки - два целых числа (первое — координата x, второе — координата у). описание выходных данных программа должна вывести номер выбранной четверти k, количество точек в ней m, координаты выбранной точки a и минимальное расстояние r по образцу, ниже в примере. пример входных данных: 7 −3 4 1 2 1 1 0 4 −2 −3 −6 8 −12 1 пример выходных данных для выше примера входных данных: k = 2 m = 3 a = (−12, 1) r = 1 примечание. считайте, что во входных данных имеется хотя бы одна точка, не лежащая на осях координат. решение. программа читает исходные данные, не запоминая все точки в массиве. для каждой четверти хранятся количество точек в этой четверти, координаты ближайшей к осям точки, минимальное расстояние до оси. для каждой точки определяется, в какой четверти она лежит, после чего данные соответствующей четверти корректируются. при этом точки, лежащие на осях (одна из координат равна нулю), не рассматриваются. пример правильной и эффективной программы на алгоритмическом языке алг нач цел n цел х, у целтаб м[1: 4], rm[1: 4], ха[1: 4], уа[1: 4] цел i цел к нц для i от 1 до 4 м [i] : =0 rm[i]: =0 кц ввод n нц n раз ввод х, у выбор при х> 0 и у> 0 : к : = 1 при х< 0 и у> 0 : к : =2 при х< 0 и у< 0 : к : =3 при х> 0 и у< 0 : к : =4 иначе к : =0 все если к> 0 то м[к]: =м[к]+1 если (imin(iabs(х),iabs(у))0) или rm[k]=0 то rm[к]: =imin(iabs(х),iabs(у)) ха[к]: =х; уа[к]: =у все все кц к: =1 нц для i от 2 до 4 если м[i]> м[к] или m[i]=m[k] и rm[i] < rm[k] то к: =i все кц вывод "к = ", к, нc вывод "м = " м [ к] , нc вывод "а = (", ха[к], ", ", уа[к], ")", нc вывод "r =" ,rm[к] кон

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
yourdream23
02.03.2023 11:23

1. Заметим, что первый вариант дает в результате 0 во всех случаях, так как конъюнкция ложна, если ложен хотя бы один из её аргументов, а это не соответствует значениям F.

 

2. Выражение в варианте 2, как и в варианте 4, принимает ложные значения, если X не эквивалентно Z, а значит, по первой и третьей строчке и 2, и 4 вариант удовлетворяют F.

 

3. Остается сравнить их по второй строке, в которой F – истинно. В этой строке X=0, Y=1, Z=0, значит, выражение в варианте 2 здесь истинно.

 

4. Так как значения F и значения функции в варианте 2 сошлись по всем трем строкам, вариант 2 является ответом к данной задаче.

Объяснение:

0,0(0 оценок)
Ответ:
diankapazyukа
25.12.2020 02:47

Решение Pascal

Delphi/Pascal

program Case5;

var

 N,A,B:Integer;

begin

 Write('Введите номер действия: ');

 Readln(N);

 Write('Введите число A: ');

 Readln(A);

 Write('Введите число B: ');

 Readln(B);

 

 Case N of

   1: Writeln(A+B);

   2: Writeln(A-B);

   3: Writeln(A*B);

   4: Writeln(A/B);

 end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

program Case5;

var

 N,A,B:Integer;

begin

 Write('Введите номер действия: ');

 Readln(N);

 Write('Введите число A: ');

 Readln(A);

 Write('Введите число B: ');

 Readln(B);

 

 Case N of

   1: Writeln(A+B);

   2: Writeln(A-B);

   3: Writeln(A*B);

   4: Writeln(A/B);

 end;

end.

 

Решение C

C

#include <stdio.h>

 

int main(void)

{

  system("chcp 1251");

  int n;

  float a,b;

  printf("N:") ;

  scanf ("%i", &n);

  printf("A:") ;

  scanf ("%f", &a);

  printf("B:") ;

  scanf ("%f", &b);

 

  switch (n) {

  case 1:

      printf("%f\n",a+b) ;

      break;

  case 2:

      printf("%f\n",a-b) ;

      break;

  case 3:

      printf("%f\n",a*b) ;

      break;

  case 4:

      printf("%f\n",a/b) ;

      break;

  }

  return 0;

}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

#include <stdio.h>

 

int main(void)

{

  system("chcp 1251");

  int n;

  float a,b;

  printf("N:") ;

  scanf ("%i", &n);

  printf("A:") ;

  scanf ("%f", &a);

  printf("B:") ;

  scanf ("%f", &b);

 

  switch (n) {

  case 1:

      printf("%f\n",a+b) ;

      break;

  case 2:

      printf("%f\n",a-b) ;

      break;

  case 3:

      printf("%f\n",a*b) ;

      break;

  case 4:

      printf("%f\n",a/b) ;

      break;

  }

  return 0;

}

Объяснение:

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