Delphi tilida

Write(‘Nuqta koordinatalarini kiriting:’); 
Read(xl,yl,x2,y2); 
d:=Sqrt(Sqr(xl-x2)+Sqr(yl-y2)); 
Writeln; 
Writeln(‘Nuqta koordinatalari: ’,xl,y1,x2,y2); 
Writeln(‘Masofa=’,d); 
Readln; 
End. 
2.2.Delphining konsol ilovasini yaratish 

>» 

3.Form a va loyihalarni 
saqlash uchun ochilgan maxsus 
oynadan (bu oynaga Delphi arxiv
oynasi deyiladi) «Console 
Application» piktogrammasi 
tanlanadi va Ok tugmasi bosiladi. 

f
r

m .

4.Natijada ekranda 
loyiha oynasi ochiladi 
(.dpr kengayt-mali nom 
bilan). 
Begin — end ichiga 
olingan. 

20 

Tuzilgan dasturni ishga tushirishdan oldin uni saqlash kerak 
boladi. Uni saqlash uchun file=>Save All buyruqTni berish lozim. 
Har bir loyiha alohida yangi papkada saqlanishni tavsiya etadi. 
Loyiha faylini saqlashda alohida ko'rsatilm agan holatida 
ProjectN.dpr nomli fayl nomini tavsiya etadi. Bu yerda N har bir 
ketma-ket nomlanadigan loyiha nomeri (son, masalan 1,2,3,..). 
Lekin biz loyiha faylini istalgan nom bilan saqlashimiz mumkin. 
Masalan MyProgram.dpr. Bu nom avtomatik ravishda chiqadi. 
Loyihani saqlab bolgandan so‘ng. uni bajarishga beramiz. Buning 
uchun bosh menyudan quyidagi buyruqni berish lozim: Run=>Run 
yoki F9 funksional tugmachasini bosish kerak boladi. Dastur normal 
ishga tushgandan so‘ng ekranda DOSning standart dastur oynasi 
namoyon boladi. 
Misol: Ikkita sonning yigTndisi, ayirmasi, ko'paytmasi va 
bolinmasini hisoblash dasturini yarating. 
Bu misolni yechish uchun yuqorida keltirilgan to‘rtta ketma- 
ketlikni bajaramiz va dastur kodini kiritamiz. 
Dastur kodi kiritilgandan so‘ng uni saqlab keyin ishga tushiramiz. 
Natijada ekranda Dos oynasi ochilib, unda «Ikkita son kiriting:» 
so‘zi chiqadi. Keyin ikkita son kiritilib Enter tugmasini bosish kerak 
bo'ladi. 

■
■
^ ^ 1
-

S |5(' 
-

» _J

* J
U w
P c o j v c t J r 
rfJUWSfehp C t M T Q U F 
liP-n
V a r n.b. P* s r T t « ] r

IIr .it■! j .1e e : l i

k a t i t s i E g c 1] r

P c * d i n 1v rb| ■
Ht j LwJ n |1 lfc.fc.3LB M3-a 
Pflti^i-br

1‘fc'J irdj n

,t ■ 1 1 LO 1 1> j

- r s i —
■
j f F( i
l-l r

b - K j ■ * ’Fi:

W n fc*J n |1 l U i t i
^ ' p K r i H U j ; *B r n x i LD i5> J

h t 1 1 i
U r n + J b r ] E E i t t ■-=-*. 
PiHdJ.n

b  E t t b u l a „ r * u JO: i| p

-

«■ J
„________ ,
>
1

i
;•
tfwmt
r - v /

Natijada quyidagi javoblar chiqadi. 

5.Keyin obyekt inspektori (Object Inspector) va obyekt daraxtlar 
(Object TreeView) oynalari yopiladi. 

21 

2.Bosh menyudan File punktini ochib, u yerdan New, keyin esa, 
Application buyruqlari beriladi. File=> New=> Application 
3.Forma oynasi yopiladi. 
4.Dastur kodini yozish (modul) oynasi yopiladi. Yopish vaqtida 
«Save changes to U nitl.pas?» («U nitl.pasdagi o'zgarishlar 
saqlansinmi?») so‘rov oynasi chiqadi. U yerdan «NO» (Yo‘q) buyrug‘i 
beriladi. 

22 

B I>rc17,dpr 
|T .'n 'y 

• 
Um 

A I 

Terhai 

ttf: * .r « | 

Jll. 
JLppltcat iod .Kunj 

■C

1 I 


H vjtm t 


\C -.-if f 

______ 

ishlaganligi haqida axborotlar saqlanadi. 

Loyiha opsiya va konfiguratsiyasi fayllari loyiha faylining tuzilishi 
bilan bir vaqtda Delphi tomonidan avtomatik ravishda tuziladi. Ko‘p 
hollarda yuqorida keltirilgan fayllardan tashqari yana .dpr kengaytmali 
fayl ham tuziladi. Bu fayl loyiha faylining (rezerv fayli) nusxasi bo‘lib 
hisoblanadi. Masalan, MyProgram.- dpr. Bu fayl loyiha fayli tuzilishi 
davrida bir vaqtning o‘zida tuzib boriladi. Agar asosiy loyiha faylida 
buzilish yoki o'chirilish sodir boTadigan boTsa, u holda uni 
MyProgram.-dpr faylidan tiklash mumkin. Buning uchun kengaytma 
oldidagi «-» belgini olib tashlash kifoya.