Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos rásegítésű kerékpárok
- urandom0: Száműztem az AI-t az életemből
- Parci: Milyen mosógépet vegyek?
- GoodSpeed: Munkaügyi helyzet Hajdú-Biharban: észak és dél
- GoodSpeed: WELLPUR KVITA GF85 - JYSK - tapasztalatok
- bambano: Bambanő háza tája
Új hozzászólás Aktív témák
-
djdemi
csendes tag
sikerült a programot megírni, ha valakit érdekel...

#include <graphics.h>
#include <conio.h>
#include <math.h>double pi =3.141592654;
double G =9.81;
int graph_open(void);
void main(void){
double v0,v0x,v0y; // *** a hajítás paraméterei
double alfa;
double y0;
double tt,tb,bx,by,tx,ty;
clrscr();
printf("Tesztadatok (100 [m/s],30 [fok], 20 [m]");
printf("\nKérem a kezdősebesség nagyságát! [m/s] >");
scanf("%lf",&v0);
printf("\nKérem a hajítás szögét! [fok] >");
scanf("%lf",&alfa);
printf("\nKérem a pont kezdőmagasságát! [m] >");
scanf("%lf",&y0);printf("\n\nPress any key to continue:");
getch();v0x=v0*cos(alfa*pi/180);
v0y=v0*sin(alfa*pi/180);// A becsapodás adatai: idő, koordináták
tb=(v0y + sqrt( v0y*v0y + 2 * G * y0 ) ) /G;
bx=v0x*tb;
by=0;// A tetopont elérésének adatai: idő, koordináták
tt=v0y/G;
tx=v0x*tt;
ty=(-G/2 * tt*tt + v0y * tt + y0);
printf("\n\nA becsapódás adatai:\n");
printf(" Ideje [tb] :%lf s\n",tb);
printf(" Távolsága [bx] :%lf m\n",bx);
printf("\n\nA tetőpont elérésének adatai:\n");
printf(" Ideje [tt] :%lf s\n",tt);
printf(" Koordinátái [tx,ty]
%.4lf, %.4lf) m\n",tx,ty);printf("\n\nPress any key to continue:");
getch();
if ( !(graph_open()) ) {
int i,j;
double t,lp;if (bx/getmaxx()>ty/getmaxy())
lp=bx/getmaxx();
else
lp=ty/getmaxy();// Az idő paramétereként fejezzük ki az x(t) és y(t) koordinátákat:
for (t=0;t<=tb;t+=tb/getmaxx()) {// Pályaadatok:
i=floor(v0x*t/lp);
j=floor((-G/2*t*t+v0y*t+y0)/lp);// Pályagörbe
putpixel(i,getmaxy()-j,YELLOW);delay(20);
}getch();
closegraph();
} else {
printf("BGI ERROR! >%i \n");
printf("\n\nPress any key to continue:");
getch();
}
}int graph_open(void) {
int gd=DETECT,gm;
initgraph(&gd,&gm,"c:\\borlandc\\bgi");
return(graphresult());
}
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
● ha kódot szúrsz be, használd a PROGRAMKÓD formázási funkciót!
- Tudományos Pandémia Klub
- Allegro vélemények - tapasztalatok
- Milyen cserélhető objektíves gépet?
- Projektor topic
- Milyen egeret válasszak?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Bestbuy játékok
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- exHWSW - Értünk mindenhez IS
- Napelem
- További aktív témák...
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600 / RX 5700XT / 16GB DDR4 / 256 SSD + 2TB HDD
- Magyar menüs Delonghi Magnifica S cappuccino automata kávéfőző tejtartállyal
- SAMSUNG PM9E1 "9100 PRO" 2 TB M.2 NVME PCI-E 5.0 x4 - Új - 14.000-12.500 MBs - Eladó!
- Forza Horizon Xbox Limited Edition Controller Új! Bontatlan!!
- GAINWARD GeForce RTX 4070 Ghost 12GB GARANCIÁLIS, DOBOZZAL, SZÁMLÁVAL
- HIBÁTLAN iPhone 14 Pro 256GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, 100% Akkumulátor
- Xiaomi Redmi Note 13 8/256GB / 12 hónap jótállással!
- Dell Latitude 5320 - hibás kijelzők - i5 1135G7 ,16GB RAM, SSD, jó akku, számla
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- Lenovo ThinkPad X1 Yoga G6 (6th Gen) - i7-1185G7, 32GB, 512GB SSD, multitouch + TOLL
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest

%.4lf, %.4lf) m\n",tx,ty);
