Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
35 / 35 / 3
Регистрация: 26.02.2013
Сообщений: 176
1

Определить, в каком необходимо построить школу для удобства всего населенного пункта

17.07.2013, 19:12. Показов 990. Ответов 1
Метки нет (Все метки)

Имеется населенный пункт(т А12,...).Определить,в каком необходимо построить школу для удобства всего населенного пункта.(Решение подтвердить ,используя модуль GRAPH).
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.07.2013, 19:12
Ответы с готовыми решениями:

Определить, можно ли попасть по дорогам из первого населенного пункта в последний
Поделитесь мыслями, как можно сделать это задание. Вот и само условие задания. На местности имеется...

Сброс нумерации строк для каждого населенного пункта
Подскажите как поправить мне код. Есть код который выводит такой отчет (вложение 333.jpg). ...

Выведите одно целое число — координату точки, в которой лучше всего построить школу
В деревне Интернетовка все дома расположены вдоль одной улицы по одну сторону от нее. По другую...

Коммутация населенного пункта
ДД. Меня зовут Максим. Я занимаюсь программирование на PHP и JS. Заинтересовал такой вопрос....

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
17.07.2013, 20:21 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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt,graph;
const nmax=100;
var a:array[1..nmax] of pointtype;
    sh:pointtype;
    s:real;
    n,i,g,d:integer;
begin
clrscr;
randomize;
repeat
write('Количество домов от 2 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  a[i].x:=5+random(630);
  a[i].y:=5+random(470);
 end;
writeln('Координаты домов:');
for i:=1 to n do
 begin
  write(i:3,'[',a[i].x:3,';',a[i].y:3,'] ');
  if i mod 6=0 then writeln
 end;
writeln;
s:=0;
for i:=1 to n do
s:=s+a[i].x;
sh.x:=round(s/n);
s:=0;
for i:=1 to n do
s:=s+a[i].y;
sh.y:=round(s/n);
writeln('Координаты школы X=',sh.x,'  Y=',sh.y);
writeln('Нажмите Enter для перехода в графический режим');
readln;
initgraph(g,d,'');
setcolor(6);
setfillstyle(1,6);
for i:=1 to n do
bar(a[i].x-4,a[i].y-4,a[i].x+4,a[i].y+4);
setcolor(10);
setfillstyle(1,10);
bar(sh.x-4,sh.y-4,sh.x+4,sh.y+4);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.07.2013, 20:21

CMS для небольшого портала небольшого населённого пункта
Добрый день всем. Попросили тут помочь с созданием сайта для небольшого села тыщ на 5 жителей......

Определение местонахождения (название населенного пункта)
Всем привет. Мне надо реалозовать местонахождение планшета на карте, только мне надо получить не...

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

Найти название населенного пункта, который ближе всех расположен к центру
Для некоторого района области известны расстояния его населенных пунктов от районного центра. Найти...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru