|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.04.2009, 00:15 | #1 |
Новичок
Джуниор
Регистрация: 23.12.2008
Сообщений: 1
|
Задача в Паскале компилируется но не запускается(((...Помогите пожалуйста,на завтра нужно!
Программа рисующая координатную сетку:
program tabl; uses crt, graph; var x0,y0:integer; {координаты начала координатных осей} dx,dy:integer; {шаг координатной сетки (в пикселах)} h,w:integer; {высота и ширина области вывода координатной сетки} x,y:integer; lx,ly:real; {метки (оцифровка) линий сетки по X и Y} dlx,dly:real; {шаг меток (оцифровки) линий сетки по X и Y} cross:integer; {счетчик неоцифрованных линий сетки} dcross:integer; {количество неоцифрованных линий между оцифрованными} s,q:string; begin x0:=30; y0:=220; {оси начинаются в точке (40,250)} dx:=40; dy:=40; {шар координатной сетки 40 пикселов} dcross:=1;{ помечать линии сетки X: 1 — каждую; 2 — через одну; 3 — через две;} dlx:=0.5;{ шаг меток оси X} dly:=1.0; {шаг меток оси Y, метками будут: 1, 2, 3 и т. д.} h:=200; w:=300; begin cross:=dcross; Line(x0,y0,x0,y0-h); {ось X} Line(x0,y0,x0+w, y0); {ось Y} {засечки, сетка и оцифровка по оси X} x:=x0+dx; lx:=dlx; repeat Line(x,y0-3,x,y0+3); {засечка} cross:=cross-1; if cross = 0 then {оцифровка} begin str(lx:x:y,s); Outtextxy(x-8,y0+5,s); cross:=dcross ; end; {Pen.Style:=psDot;} Line(x,y0-3,x,y0-h); {линия сетки} {Pen.Style:=psSolid; } lx:=lx+dlx; x:=x+dx; until (x>x0+w); {засечки, сетка и оцифровка по оси Y} y:=y0-dy; ly:=dly; repeat Line(x0-3,y,x0+3,y); {засечка} str(ly:x:y,q); outTextxy(x0-20,y,q); {оцифровка} {Pen.Style:=psDot;} Line(x0+3,y,x0+w,y); {линия сетки} {Pen.Style:=psSolid;} y:=y-dy; ly:=ly+dly; until (y<y0-h); end; readkey; end. |
07.04.2009, 00:42 | #2 |
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
|
Здесь InitGraph нужен
|
07.04.2009, 00:44 | #3 |
Участник клуба
Регистрация: 16.03.2009
Сообщений: 1,013
|
Да что такое.... я сегодня нигде не успеваю....
вроде такого.. там ненужный begin еще.. восклицательными знаками отметил изменения Код:
Uguu~
Последний раз редактировалось __STDC__; 07.04.2009 в 00:47. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пожалуйста помогите завтра экзамен!!! | muha | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 14.01.2009 01:43 |
задача в паскале, помогите пожалуйста я полный ноль | Arsenal777 | Помощь студентам | 8 | 03.06.2008 22:22 |