|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.11.2012, 18:01 | #1 |
Регистрация: 30.11.2012
Сообщений: 8
|
Lazarus исправте код!
Помогите исправить ошыбку в коде!
Код:
Последний раз редактировалось Stilet; 30.11.2012 в 20:50. |
30.11.2012, 18:29 | #2 |
Пользователь
Регистрация: 30.10.2012
Сообщений: 31
|
i,j:=Smallint; => i,j:Smallint
пока 1 ошибка |
30.11.2012, 18:30 | #3 |
Пользователь
Регистрация: 30.10.2012
Сообщений: 31
|
да что вообще должен делать этот код и что он не делает
|
30.11.2012, 18:46 | #4 |
Регистрация: 30.11.2012
Сообщений: 8
|
Когда комплетирую вот ето подчеркивает!
i:=detect;initgraph(i,j,); |
30.11.2012, 19:14 | #5 |
Пользователь
Регистрация: 30.10.2012
Сообщений: 31
|
unit Unit1;
{$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, Graph; type { TForm1 } TForm1 = class(TForm) Image: TImage; procedure FormCreate(Sender: TObject); procedure ImageClick(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; i,j:smallint; x,y:real; a,b,xc,yc,t:real; xe,ye,Mx,My:Smallint; maxX,maxY,minx,miny:real; implementation {$R *.lfm} { TForm1 } procedure TForm1.ImageClick(Sender: TObject); begin end; procedure TForm1.FormCreate(Sender: TObject); begin Mx:=800; My:=640; t:=0; i:=detect; initgraph(i,j,''); maxX:=9; maxY:=9; minX:=-9; minY:=-9; Repeat begin x:=2.0*cos(t); y:=3.0*sin(t); xe:=round((x-minx)/(maxx-minx)*Mx); ye:=round(My-(y-miny)/(maxy-miny)*My); Image.Canvas.Pixels[xe][ye]:=255; t:=t+0.01; end; until t>2; end; end. Последний раз редактировалось grandmixer; 30.11.2012 в 19:19. |
30.11.2012, 19:18 | #6 |
Пользователь
Регистрация: 30.10.2012
Сообщений: 31
|
Код:
|
30.11.2012, 19:19 | #7 |
Пользователь
Регистрация: 30.10.2012
Сообщений: 31
|
рисует красную полудугу какуето =)
|
30.11.2012, 19:39 | #8 |
Регистрация: 30.11.2012
Сообщений: 8
|
Ето задание было!
|
30.11.2012, 19:44 | #9 |
Регистрация: 30.11.2012
Сообщений: 8
|
З етой строкой что то не то!Из-за етих скобок('') пустое окно!
initgraph(i,j,''); |
30.11.2012, 20:08 | #10 | |
Пользователь
Регистрация: 30.10.2012
Сообщений: 31
|
Цитата:
Procedure InitGraph (Var GraphDriver : Integer; Var GraphMode : Integer; PathToDriver : String); скачал лазурас и переписал твой код и у меня все рисует попробуй так Код:
Последний раз редактировалось grandmixer; 30.11.2012 в 20:16. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
исправте код | Screame | Microsoft Office Excel | 16 | 11.02.2016 23:30 |
Исправте код C# | NickJons | Общие вопросы .NET | 0 | 02.11.2012 17:54 |
Робота с файлами. Исправте код. | aerosm | Помощь студентам | 2 | 02.03.2011 18:05 |
исправте код( | basav1k | Помощь студентам | 1 | 20.05.2010 12:16 |