Помогите решить задачу на графику! - Помощь студентам

Fatality · 29.04.2009, 19:11

Ребята, выручайте! Тут дали задание до завтра сделать лабу по графике, а я еще к изучению этой темы не приступал(максимум знаю как инициализировать модуль graph...), т.к еще не доделал задание на предыдущую тему. Кому не трудно, сделайте пожалуйста!!! Вот изображение задания: http://s53.radikal.ru/i140/0904/84/1d2acf5c7c54.jpg

Sazary · 29.04.2009, 19:23

Код:

uses crt,graph;
const mas = 5;  // масштаб
var
d,m : smallint;  // для TP 7 изменить тип на integer
cntrx,cntry : integer;

begin
clrscr;
initgraph(d,m,'');

cntrx := getmaxx div 2;
cntry := getmaxy div 2;

circle(cntrx,cntry,35*mas);
moveto(cntrx,cntry-mas*13);
linerel(0,mas*26);
linerel(-mas*30,-mas*13);
linerel(mas*30,-mas*13);
linerel(mas*30,mas*13);
linerel(-mas*30,mas*13);

readln;
closegraph;
end.

Fatality · 29.04.2009, 19:48

Sazary, ОГРОМНЕЙШЕЕ СПАСИБО ТЕБЕ!! Уже не в первый раз выручаешь!! Только прога при запуске вылетает с ошибкой "16 разрядная подсистема мс-дос" Процессор NTVDM обнаружил недопустимую операцию... и т.д..

Sazary · 29.04.2009, 19:57

Цитата:

Только прога при запуске вылетает с ошибкой "16 разрядная подсистема мс-дос" Процессор NTVDM обнаружил недопустимую операцию... и т.д..

Не похоже на ошибку программы. Думаю, просто винда отказывается запускать дос-приложение.
Попробуйте использовать какой-нибудь эмулятор.

ps Или используйте Free Pascal

29.04.2009, 19:11	#1
Fatality Пользователь Регистрация: 03.12.2008 Сообщений: 37	Помогите решить задачу на графику! Ребята, выручайте! Тут дали задание до завтра сделать лабу по графике, а я еще к изучению этой темы не приступал(максимум знаю как инициализировать модуль graph...), т.к еще не доделал задание на предыдущую тему. Кому не трудно, сделайте пожалуйста!!! Вот изображение задания: http://s53.radikal.ru/i140/0904/84/1d2acf5c7c54.jpg

29.04.2009, 19:23	#2
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	Код: `uses crt,graph; const mas = 5; // масштаб var d,m : smallint; // для TP 7 изменить тип на integer cntrx,cntry : integer; begin clrscr; initgraph(d,m,''); cntrx := getmaxx div 2; cntry := getmaxy div 2; circle(cntrx,cntry,35mas); moveto(cntrx,cntry-mas13); linerel(0,mas26); linerel(-mas30,-mas13); linerel(mas30,-mas13); linerel(mas30,mas13); linerel(-mas30,mas13); readln; closegraph; end.` Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]*_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите решить задачу	sunny2212	Microsoft Office Excel	0	14.03.2009 05:35
помогите решить задачу	mihandroz	Паскаль, Turbo Pascal, PascalABC.NET	5	24.10.2008 19:52
Помогите решить задачу!!!	W_P	Паскаль, Turbo Pascal, PascalABC.NET	1	04.03.2008 21:54
Помогите решить задачу!	Алисик	Помощь студентам	1	24.12.2007 01:21
Помогите решить задачу.	Кронос	Помощь студентам	3	28.10.2007 14:11

29.04.2009, 19:48	#3
Fatality Пользователь Регистрация: 03.12.2008 Сообщений: 37	Sazary, ОГРОМНЕЙШЕЕ СПАСИБО ТЕБЕ!! Уже не в первый раз выручаешь!! Только прога при запуске вылетает с ошибкой "16 разрядная подсистема мс-дос" Процессор NTVDM обнаружил недопустимую операцию... и т.д..