Hogyan kell működő ágyút csinálni free pascal-ban?

Megtöltöd puskaporral, ráteszed a fojtást, utána a golyót és kész.

Viccet félretéve kicsit konkrétabban fogalmazd már meg a kérdést.

Golyó sebesség, röppálya stb. ilyenekre lenne szükséged ?

Ezt találtam Delphiben, kijavítottam fok - radián probléma. Szép ívet rajzol.

procedure TForm1.Button1Click(Sender: TObject);

var

x,vo,alfa,voy,vox,g,t : real;

xx,yy : integer;

begin

g:=9.81; //gyorsulás

t:=0;

vo:=StrToInt(Edit1.Text); //kezdősebesség m/s

alfa:=StrToInt(Edit2.Text); //fok

alfa:=alfa*(3.141592654/180); //fok -> radián

vox:=cos(alfa)*vo;

repeat

t:=t+0.01;

voy:=vo*sin(alfa)-g*t;

x:=vox*t;

xx:=Round(x);

yy:=Round(x*(Sin(alfa)/cos(alfa))-(g*x*x)/(2*vo*vo*cos(alfa)*cos(alfa)));

Canvas.Pixels[xx+0,300-yy]:=clBlue;

until t>2*vo*sin(alfa)/g;

end;

Ne sertodj meg, de a kerdesed alapjan inkabb tegy par lepest hatra, es kezdj el a programozas alapjaival ismerkedni. Akkor majd legalabb tudsz konkret kerdeseket feltenni, pl. hogy kezeljunk le egy gombnyomast, stb.

Ennyi erovel azt is kerdezhetned, hogyan kell hazat epiteni, azt varva, hogy valaki szepen kifejti neked a burokraciatol kezdve, az epitesi technikakon at, a lakberendezesig.

Nem a kedved akarom elvenni, hanem segiteni! Talan gitarozni sem ugy tanultal meg, hogy addig tepted a hurokat mig egyszer csak el nem kezdett jol szolni, hanem biztos egyszerubb dolgokkal kezdtel. Akkordok, skalazas, stb.

Es a kerdesednek ebben a formaban sajnos tenyleg nincs ertelme.