|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Цитата:
Описать назначение каждого оператора , а ты уже по этому выучишь делфи? Ну так в разделе работа тебе все напишут и помогут. Последний раз редактировалось Konrad, 02.04.2011 в 23:51. |
#17
|
|||
|
|||
ребята что ни у кого нет исходников такой проги?
|
#18
|
||||
|
||||
Цитата:
Что тут еще не понятно? Или тебе жалко рэ? Лучше те рэ потратить на ягу?))) Честно говоря, уже тошнит от таких хитрож%пых школьников, которые думают что они умнее всех. Или делай сам или, если не хочешь сам делать работу - плати кому-то чтоб тот кто-то её сделал за тебя. Знаю я таких - думают "ну ничего за меня все сделают и я получу диплом, а с дипломом буду косить бабос." Так вот приходит устраиваться такое вот нечто, и на собеседовании сразу видно что оно полный 0. И это увидит даже посредственный прогер, не говоря уже о толковых прогерах. И никому ( повторю НИКОМУ) такое счастье на работе не нужно. Последний раз редактировалось Konrad, 03.04.2011 в 23:49. |
#19
|
|||
|
|||
да епт я учусь в 10 класе а не в универе и мну препад очень хороше попросил сделать такую штуку а я хз как ее лепить
|
#20
|
||||
|
||||
Цитата:
Это просто нету слов. Ну и что что попросил? |
#21
|
|||
|
|||
сейчас у меня имеется такой код:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; LabeledEdit1: TLabeledEdit; LabeledEdit2: TLabeledEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); const g=9.8; VAR v,a,x,y:real; i,t,q:word; begin a:=45; q:=0; v:=strtoint(LabeledEdit1.Text); t:=strtoint(LabeledEdit2.Text); for i:=1 to t do begin q:=q+1; x:=v*cos(a)*i; y:=(v*sin(a))*i-g*i*i/2; end; end; end. как мне вывести на элимент имаге точки которые выходят при расчете? подскажите плиз Последний раз редактировалось Admin, 07.04.2011 в 18:22. |
#22
|
|||
|
|||
на PaintBox - имэдж не очень тут удобен. Сформируй массив точек и с помощью PolyLine начерти. Будет несколько ломано, но если возмешь маленький промежуток t это будет глазом не очень заметно
|
#23
|
|||
|
|||
Я тоже предлагаю PaintBox, т.к. это почти напрямую Canvas, а Image в основном для вставки картинок.
Безымянный.jpg Код:
procedure TForm1.Button1Click(Sender: TObject); const g = 9.8; var x, y: Integer; v, a: real; i, t, q: word; begin a:= 45; //q:= 0; v:= strtoint(LabeledEdit1.Text); t:=strtoint(LabeledEdit2.Text); x:= 0; y:= 0; PaintBox1.Canvas.MoveTo(x, PaintBox1.Height - y); for i:=1 to t do begin //q:= q + 1; x:= Round(v * cos(a) * i); y:= Round((v * sin(a)) * i - g * i * i / 2); PaintBox1.Canvas.LineTo(x, PaintBox1.Height - y); end; end; (можно было и с помощью массива, но я решил попроще) Последний раз редактировалось AlexSku, 07.04.2011 в 18:31. |
#24
|
|||
|
|||
ребята я новичек в этом можно поподробнее для чайников желательно и гда найти процедуру PaintBox1.Canvas. немогу понять
Последний раз редактировалось demon5053, 07.04.2011 в 18:49. |
#25
|
||||
|
||||
Цитата:
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#26
|
|||
|
|||
Canvas это не процедура, это свойство класса TPaintBox. Что такое класс знаешь?
|
#27
|
|||
|
|||
Цитата:
|
#28
|
|||
|
|||
вкладка System.
Если не знаешь что такое класс и ООП - тебе рано программировать на Delphi |
#29
|
|||
|
|||
Цитата:
|
#30
|
|||
|
|||
Культин и Фаронов
|