Муҳаммад ал хоразмий номидаги


Borland C++->File->New->Application



Download 5,01 Kb.
Pdf ko'rish
bet34/128
Sana12.07.2022
Hajmi5,01 Kb.
#781830
1   ...   30   31   32   33   34   35   36   37   ...   128
Bog'liq
KIBER XAVFSIZLIK MUAMMOLARI VA ULARNING

Borland C++->File->New->Application. 
Yangi formaga komponentalar palitrasidan kerakli komponentalarni formaga 
joylashtiramiz. 
Standart
tarkibidan 
label
va 
button
tugmachalarni formaga 
ketma-
ket joylashtiriladi. So’ngra 
System
tarkibidan 
TPaintBox
formaga 
joylashtiriladi. Funksiyaga doir argumentlarni kiritishda qadam berish va otilish 
burchak kattaliklariga e’tibor berish kerak. Quydagi dastur kodlarini 
kiritganimizdan so’ng kompillyatsiya jarayonini amalga oshirishimiz 
mumkin. 
#
include  
#include  
#pragma hdrstop 
#include "Unit4.h" 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
__fastcall TForm1::TForm1(TComponent* 
Owner) 
: TForm(Owner) 


void 
__fastcall 
TForm1::Button1Click(TObject *Sender) 

double g=10,t,v0,pi=3.1415926; 
double x,x1,f,h,x2,x0,y0,fx,fy; 
Canvas->MoveTo(450,200); 
Canvas->LineTo(440,205); 
Canvas->MoveTo(450,200); 
Canvas->LineTo(440,195); 
Canvas->MoveTo(10,0); 
Canvas->LineTo(5,15); 
Canvas->MoveTo(10,0); 
Canvas->LineTo(15,15); 
Canvas->MoveTo(10,200); 
Canvas->LineTo(10,0); 
Canvas->MoveTo(450,200); 
Canvas->LineTo(10,200); 
Canvas->TextOutA(20,5,"Y"); 
Canvas->TextOutA(450,210,"X"); 
f=StrToInt(Edit1->Text); 
v0=StrToInt(Edit2->Text); 
x=v0*v0*sin(2*pi*f/180)/(2*g); 
t=2*v0*sin(pi*f/180); 
h=v0*v0*sin((pi*f/180)*sin(pi*f/180))/(2*
g); 
Label1->Caption="H= 
"+FloatToStr(h)+"m; 
t="+FloatToStr(t)+"s;
L= "+FloatToStr(x)+"m"; 
x0=10;y0=200; 
x1=0;x2=400; 
x=x1; 
while (x
t=x/(v0*cos(pi*f/180)); 
fx=x0+5*x; 
fy=y0-5*(v0*sin(pi*f/180)*t-g*t*t/2); 
PaintBox1->Canvas-
>Pixels[fx][fy]=clBlue; 
x=x+0.0004; 


void 
__fastcall 
TForm1::Button2Click(TObject *Sender) 

double g=10,t,v0,pi=3.1415926; 
double x,x1,f,h,x2,x0,y0,fx,fy; 
f=StrToInt(Edit3->Text); 
v0=StrToInt(Edit4->Text); 
x=v0*v0*sin(2*pi*f/180)/(2*g); 
t=2*v0*sin(pi*f/180); 
h=v0*v0*sin((pi*f/180)*sin(pi*f/180))/(2*
g); 
Label2->Caption="H= 
"+FloatToStr(h)+"m; 
t="+FloatToStr(t)+"s; 
L= 
"+FloatToStr(x)+"m"; 
x0=10;y0=200; 
x1=0;x2=400; 
x=x1; 
while (x
t=x/(v0*cos(pi*f/180)); 
fx=x0+5*x; 


74 
fy=y0-5*(v0*sin(pi*f/180)*t-g*t*t/2); 
PaintBox1->Canvas-
>Pixels[fx][fy]=clRed; 
x=x+0.0004; 


void 
__fastcall 
TForm1::Button3Click(TObject *Sender) 

double g=10,t,v0,pi=3.1415926; 
double x,x1,f,h,x2,x0,y0,fx,fy; 
f=StrToInt(Edit5->Text); 
v0=StrToInt(Edit6->Text); 
x=v0*v0*sin(2*pi*f/180)/(2*g); 
t=2*v0*sin(pi*f/180); 
h=v0*v0*sin((pi*f/180)*sin(pi*f/180))/(2*
g); 
Label3->Caption="H= 
"+FloatToStr(h)+"m; 
t="+FloatToStr(t)+"s;
L= "+FloatToStr(x)+"m"; 
x0=10;y0=200; 
x1=0;x2=400; 
x=x1; 
while (x
t=x/(v0*cos(pi*f/180)); 
fx=x0+5*x; 
fy=y0-5*(v0*sin(pi*f/180)*t-g*t*t/2); 
PaintBox1->Canvas-
>Pixels[fx][fy]=clGreen; 
x=x+0.0004; 




75 
1-rasm. Borland C++ dasturlash tilini ishga tushiramiz
Formaga otilish burchagi va boshlang’ich tezlikning 
istalgan qiymatini 
kiritsak aniq natija kelib chiqishi bilan birgalikda grafik tasvirlari ham namoyon 
bo’ladi. Borland C++ dasturlash tilida gorizontga burchak ostida otilgan jism 
harakatida uchish uzoqligi, uchish vaqti, maksimal ko’tarilish balandligini 
hisoblash, harakat trayektoriyasini vizuallashtirish dasturini tuzishni amalga 
oshirdik. Bunday dasturlardan 
ta’lim sohasida fizika fanidan amaliy mashg’ulotlar 
jarayonida foydalanish mumkin. Borland C++ dasturlash tilida bu kabi dasturlar 
tuzish fizik jarayonlarni modellashtirish, laboratoriya ishlarini bajarishda 
ma’lumotlar tuzilmasini yaratish, multimediyali ishlanmalar tayyorlash kabi katta 
imkoniyatlar yaratadi. Informatika, fizika va matematika fanlarining fanlararo 
uzviyligini ta’minlaydi.
Xulosa qilib shuni aytish mumkinki, dasturlash tillari orqali fizik 
jarayonlarni vizuallshtirish amaliy jihatdan yuqori natijalar berishi bilan birga 
o’quvchilarning aniq va tabiiy fanlarga bo’lgan qiziqishini oshiradi.

Download 5,01 Kb.

Do'stlaringiz bilan baham:
1   ...   30   31   32   33   34   35   36   37   ...   128




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish