Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
8 / 8 / 0
Регистрация: 21.01.2011
Сообщений: 128
1

Перечислить точки заданного множества точек на плоскости

31.03.2011, 14:42. Показов 671. Ответов 4
Метки нет (Все метки)

Порядок на точках плоскости определим следующим образом: (х,у)=<(u,v), если либо x<u, либо x=u и y=<v. Перечислить точки заданного множества точек на плоскости в соответствии с этим порядком.

В трехзначном числе, все цифры которого нечетны, зачеркнули среднюю цифру. Оказалось, что полученные двухзначное число является делителем исходного числа. Найдите все такие трехзначные числа.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2011, 14:42
Ответы с готовыми решениями:

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

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

Выбрать три различные точки из заданного множества точек
выбрать три различные точки из заданного множества точек на плоскости так, чтобы была минимальной...

Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек различались наименьшим образом
Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек,...

4
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
31.03.2011, 14:53 2
2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var i,j,k:integer;
begin
clrscr;
i:=1;
while i<=9 do
begin
 j:=1;
 while j<=9 do
 begin
  k:=1;
  while k<=9 do
  begin
   if (i*100+j*10*k) mod (i*10+k) =0 then
   writeln(i,j,k);
   inc(k,2);
  end;
 inc(j,2)
 end;
inc(i,2);
end;
readln;
end.
1
Puporev
02.04.2011, 13:52
  #3
 Комментарий модератора 
Вместо того чтобы плодить одноименные темы, напиши точное условие задачи и на русском языке, ибо ту хрень, которую ты пишешь понять невозможно.
1
8 / 8 / 0
Регистрация: 21.01.2011
Сообщений: 128
02.04.2011, 18:28  [ТС] 4
Цитата Сообщение от Puporev Посмотреть сообщение
Вместо того чтобы плодить одноименные темы, напиши точное условие задачи и на русском языке, ибо ту хрень, которую ты пишешь понять невозможно.

Так вот оно и условие такое!
0
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
02.04.2011, 18:48 5
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
uses crt;
const nmax=20;
type point=record
           x,y:integer;
           end;
var t:array[1..nmax] of point;
    n,i:byte;
    u,v:integer;
begin
clrscr;
randomize;
repeat
write('Количество точек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Множество точек:');
for i:=1 to n do
 begin
  t[i].x:=random(20)-9;
  t[i].y:=random(20)-9;
 end;
write('X:');
for i:=1 to n do
write(t[i].x:4);
writeln;
write('Y:');
for i:=1 to n do
write(t[i].y:4);
writeln;
writeln('Введите ограничения по Х,Y:');
readln(u,v);
writeln('Точки, удовлетворяющие условию (x,y)<=(u,v)');
for i:=1 to n do
if(t[i].x<=u)and(t[i].y<=v) then
writeln('x=',t[i].x:3,'  y=',t[i].y:3);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2011, 18:48

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Перечислить точки заданного множества
&quot;Порядок&quot; на точках плоскости определили следующим образом: (x,y)&lt;=(u,v), если либо x&lt;u, либо x=u b...

Из заданного на плоскости множества точек выбрать 3 различные
Из заданного на плоскости множества точек выбрать 3 различные так,чтобы разность между площадью...

Среди заданного множества точек найти две точки с максимальным расстоянием между ними
Среди заданного множества точек найти две точки с максимальным расстоянием между ними. то есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.