Pascal GraphWPF

@C I C A D A · Регистрация: 17.02.2019

Author24 — интернет-сервис помощи студентам

Всем Привет !

Решил для себе сделать занимательную (немного тупую) программу, чисто поиграться.
У меня не выходит зациклить действия. Надеюсь на вашу помощь и поддержку, заранее спасибо

Требуется сделать так, чтобы по клику была отрисовка изображения, вот код :

Pascal

Program F_L_Y ;
uses GraphWPF;
const g = 10;
Var x1, y1, t, t1, cos, sin : real;
    fly:boolean;
    V:longint;
begin
  fly := true;
  line(0,500,10000,500);
  V:=20;
    while true do begin
      OnMouseMove := procedure(x,y,mb) -> if mb = 0 then begin
      Window.Clear();
      line(0,500,10000,500);
      line(0,500,x,y);
       
        OnMouseDown := procedure(x,y,mb) -> if mb = 1 then begin
            t:=0;
            x1:=0;
            y1:=500;
            var c:real;
            c:=sqrt(sqr(x-x1)+sqr(y1-y));
              cos:=(x-x1)/c;
              sin:=(y1-y)/c;
            x:=0;
            y:=0;
            moveto(x1,y1);
                while fly do begin
                    lineto(round(x1+20*x),round(y1-20*y));
                    sleep(1);
                    t:=t+0.01;
                    x:=V*cos*t;
                    y:=V*sin*t-g*t*t/2;
                    t1:=round(y1-20*y);
                    if t1>500 then Fly:=false;
               end;
        end;
      end;
  end;
end.

@Joy · 18.02.2019, 09:46

так что-ли?

Pascal

Program F_L_Y ;
uses GraphWPF;
const g = 10;
Var x1, y1, t, t1, cos, sin : real;
    fly:boolean;
    V:longint;
begin
//  fly := true;
  line(0,500,10000,500);
  V:=20;
    while true do begin
      OnMouseMove := procedure(x,y,mb) -> if mb = 0 then begin
        Window.Clear();
        line(0,500,10000,500);
        line(0,500,x,y);
      end; //
        OnMouseDown := procedure(x,y,mb) -> if mb = 1 then begin
            t:=0;
            x1:=0;
            y1:=500;
            var c:real;
            c:=sqrt(sqr(x-x1)+sqr(y1-y));
              cos:=(x-x1)/c;
              sin:=(y1-y)/c;
            x:=0;
            y:=0;
            moveto(x1,y1);
            fly:=true;  //
                while fly do begin
                    lineto(round(x1+20*x),round(y1-20*y));
                    sleep(1);
                    t:=t+0.01;
                    x:=V*cos*t;
                    y:=V*sin*t-g*t*t/2;
                    t1:=round(y1-20*y);
                    if t1>500 then Fly:=false;
               end;
      end;
   // end;  
  end;
end.

@C I C A D A · 18.02.2019, 21:46 **[ТС]**

Да, спасибо огромное ! )
Я забыл обновлять переменную fly , спасибо ))

Добавлено через 1 минуту
Дааа! Спасибо огромное ))
Я забыл обновлять переменную fly ...
Спасибо

@C I C A D A 0 / 0 / 0 Регистрация: 17.02.2019 Сообщений: 3
	18.02.2019, 21:46 [ТС]	3
	Да, спасибо огромное ! ) Я забыл обновлять переменную fly , спасибо )) Добавлено через 1 минуту Дааа! Спасибо огромное )) Я забыл обновлять переменную fly ... Спасибо 0

Опции темы

Pascal GraphWPF

Решение