IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Построение с помощью циркуля и линейки
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Помогите люди добрые! короче надо составить программу автоматизирующюю процесс построения фигур на плоскости с помощью циркуля и линейки. программа должна уметь выполнить следующие команды:
- отметить произвольную точку и обозначить её
- построить прямую, проходящую через две точки
- построить произвольную прямую
- построить окружность с заданным центром заданного радиуса
- построить и обозначить точку пересечения двух линий.
Программа должна содерать 2-3 стандартных задачи по построению школьного курса геометрии, предлагать их для решения и контролировать процесс построения и полученное решение.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Нехилое такое заданьице.. Надеюсь, не к завтрому нужно? smile.gif

Сам уже хоть что-то сделал? Начал? Если да - покажи, если нет - начинай..


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






делать начал. тока не смог ниче придумать кроме как построить.

program r;
uses graph;
var driver, mode:integer;
k,x,y,x1,y1:integer;
procedure first ;
begin
writeln ('влберите фигуру для построения');
writeln ('1:произвольная точка');
writeln ('2:произвольная прямая чз две точки');
writeln ('3:произвольная точка');
writeln ('4:построить окружность');
writeln ('5:точка пересечения двух линий');
write ('ваш выбор: ');
end;
procedure second;
var xc,yc,r:integer;
begin
writeln ('введите центр окружности');
readln(xc,yc);
writeln ('введите радиус окружности');
readln®;
circle(xc,yc,r);
end;
procedure third;
var xl1,xl2,yl1,yl2:integer;
begin
writeln('введите координатл первой точки');
readln(xl1,yl1);
writeln('введите координатл второй точки');
readln(xl2,yl2);
circle (xl1,yl1,5);
circle (xl2,yl2,5);
l ine (xl1-30,yl1-30,xl2+30,yl2+30);
end;
procedure fourth;
var xl,yl:integer;
begin
writeln('введите координатл точки');
readln(xl,yl);
circle (xl,yl,5);
line (xl,yl,x1+50,y1+50);
line (xl-50,yl,x1,y1);
end;
begin
driver:=detect;
initgraph (driver,mode,'d:\tp7\bgi');
first;
readln(k);
randomize;
x:=random(610)+30;
y:=random(350)+30;
x1:=random(610)+30;
y1:=random(350)+30;
case k of
1: begin circle (x,y,5);OutTextXY(x+5,y+5,'A');end;
2: third;
3: line (x,y,x1,y1);
4: second;
5: fourth;
end;
readln
end.


а как задачу приделать не представляю.

М
Юзай теги CODE, плз



Сообщение отредактировано: Lapp -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


1. Переходи полностью в графику. Вместо WriteLn используй OutTextXY. Для ввода используй ReadKey. Процедура для ввода с строки с ReadKey есть в FAQ, переделай ее под графику.

2. Думаю, что нужно делать меню. Сценарии задач отслеживать по пунктам меню. Продумай интерфейс как следует.



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 5:40
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name