[Konrad]

Сообщение от demon5053

про учить ты неправ я же попросил описать в коментах к каждому оперетору что он выполняет да и я поралельно с учебой пытаюсь учить и сам язык. а вот со временем полная лажа его хватает можно сказать только на учебу

Тоесть тебе нужно сделать прогу, потом к каждой строке проги написать коммент?
Описать назначение каждого оператора , а ты уже по этому выучишь делфи?
Ну так в разделе работа тебе все напишут и помогут.

[demon5053]

ребята что ни у кого нет исходников такой проги?

[Konrad]

Сообщение от demon5053

ребята что ни у кого нет исходников такой проги?

В разделе работа тебе помогут.
Что тут еще не понятно?

Или тебе жалко рэ?
Лучше те рэ потратить на ягу?)))

Честно говоря, уже тошнит от таких хитрож%пых школьников, которые думают что они умнее всех.
Или делай сам или, если не хочешь сам делать работу - плати кому-то чтоб тот кто-то её сделал за тебя.

Знаю я таких - думают "ну ничего за меня все сделают и я получу диплом, а с дипломом буду косить бабос."
Так вот приходит устраиваться такое вот нечто, и на собеседовании сразу видно что оно полный 0.
И это увидит даже посредственный прогер, не говоря уже о толковых прогерах.
И никому ( повторю НИКОМУ) такое счастье на работе не нужно.

[demon5053]

да епт я учусь в 10 класе а не в универе и мну препад очень хороше попросил сделать такую штуку а я хз как ее лепить

[Konrad]

Сообщение от demon5053

да епт я учусь в 10 класе а не в универе и мну препад очень хороше попросил сделать такую штуку а я хз как ее лепить

Это просто нету слов.

Ну и что что попросил?

[demon5053]

сейчас у меня имеется такой код:

Код:

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.

Админ: Пользуемся тегами при оформлении кода!

как мне вывести на элимент имаге точки которые выходят при расчете? подскажите плиз

[ChinYan]

на PaintBox - имэдж не очень тут удобен. Сформируй массив точек и с помощью PolyLine начерти. Будет несколько ломано, но если возмешь маленький промежуток t это будет глазом не очень заметно

[AlexSku]

Я тоже предлагаю 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;

Y=0 находится вверху (ось Y направлена вниз), поэтому координаты Y пересчитываем.

(можно было и с помощью массива, но я решил попроще)

[demon5053]

ребята я новичек в этом можно поподробнее для чайников желательно и гда найти процедуру PaintBox1.Canvas. немогу понять

[PhoeniX]

Сообщение от demon5053

процедуру PaintBox1.Canvas

[ChinYan]

Canvas это не процедура, это свойство класса TPaintBox. Что такое класс знаешь?

[demon5053]

Сообщение от ChinYan

Canvas это не процедура, это свойство класса TPaintBox. Что такое класс знаешь?

нет незнаю и немогу понять PaintBox находится на вкладках как и имаге

[ChinYan]

вкладка System.
Если не знаешь что такое класс и ООП - тебе рано программировать на Delphi

[demon5053]

Сообщение от ChinYan

Если не знаешь что такое класс и ООП - тебе рано программировать на Delphi

а можешь посоветовать литературу которая мне в этом поможет????

[ChinYan]

Культин и Фаронов