Дана прога на геометрию.Нужно сделать её без использования записей!

@Просто Эндрю · Регистрация: 17.12.2009

Студворк — интернет-сервис помощи студентам

Pascal
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
type
toch=record
x:integer;
y:integer;
end;
mastoch=array [1..20] of toch;
var
r,n,kv,kn:integer;
pix,pixv,pixsn:mastoch;
x1,y1,x2,y2,x3,y3:integer;
i,j,g:byte;
 
begin
clrscr;
writeln('Vvedite radius i kolichestvo tochek');
readln(r,n);
writeln('Vvedite koordinati tochek');
for i:=1 to n do
begin
  with pix[i] do
  begin
    readln(x,y);
    if (abs(x)<=r) and (abs(y)<=r) then
    begin
      kv:=kv+1;
      pixv[kv]:=pix[i];
    end
    else
    begin
      kn:=kn+1;
      pixsn[kn]:=pix[i];
    end;
  end;
end;
for i:=1 to kv do
with pixv[i] do
begin
  x1:=x;
  y1:=y;
  for j:=1 to kn-1 do
  begin
    x2:=pixsn[j].x;
    y2:=pixsn[j].y;
    for g:=j+1 to kn do
    begin
      x3:=pixsn[g].x;
      y3:=pixsn[g].y;
      Writeln('((',x1,',',y1,')','(',x2,',',y2,')','(',x3,',',y3,'))');
    end;
  end;
end;
readkey;
end.

@WolfCF · 20.12.2009, 12:51

Не по теме:

а задание то какое?

@Просто Эндрю · 20.12.2009, 13:15 **[ТС]**

На плоскости заданы множество точек и окружность радиусом R с центром в начале координат.
Построить множество всех треугольников с вершинами в заданых точка,имеющих непустое пересечение с окружностью.

@Puporev · 20.12.2009, 13:58

m=array [1..2,1..20] of real;
Просто пиши для х m[1,i]; для у m[2,i];

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@WolfCF
	20.12.2009, 12:51
	Не по теме: а задание то какое? 0

@Просто Эндрю 1 / 1 / 0 Регистрация: 17.12.2009 Сообщений: 27
	20.12.2009, 13:15 [ТС]
	На плоскости заданы множество точек и окружность радиусом R с центром в начале координат. Построить множество всех треугольников с вершинами в заданых точка,имеющих непустое пересечение с окружностью. 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	20.12.2009, 13:58
	m=array [1..2,1..20] of real; Просто пиши для х m[1,i]; для у m[2,i]; 0

Опции темы