Delphi tilida asosiy operatorlar tavsifi

Program XY;
Var
x1,y1,x2,y2,d: Real;
Begin
Write(‘Нукта координаталарини киритинг:’);
Read(x1,y1,x2,y2);
d:=Sqrt(Sqr(x1-x2)+Sqr(y1-y2));
Writeln;
Writeln(‘Нукта координаталари:’,x1,y1,x2,y2);
Writeln(‘Масофа=’,d);
Readln;
End.
1.5.Delphida konsol ilovasini yaratish
Delphiда консол иловаларини ҳар хил усулларда яратиш мумкин. Улардан энг осон усули қуйидагича:
1.Delphi муҳити ишга туширилади.
Пуск=>Программы=>Borland Delphi
2.Бош менюдан File пунктини очиб у ердан New, кейин эса Other буйруқлари берилади. File=> New=> Other
3.Форма ва лойиҳаларни сақлаш учун очилган махсус ойнадан (бу ойнага Delphi архив ойнаси дейилади) “Console Application” пиктограммаси танланади ва Ok тугмаси босилади.



4.Натижада экранда лойиҳа ойнаси очилади (.dpr кунгайтмали ном билан).



Begin – end ичига олинган
{ TODO -oUser -cConsole Main : Insert code here }
изоҳ ўрнига лойиҳа файлининг дастур матни киритилади.
Тузилган дастурни ишга туширишдан олдин уни сақлаш керак бўлади. Уни сақлаш file=>Save All буйруғини бериш лозим. Ҳар бир лойиҳа алоҳида янги папкага сақланишни тавсия беради. Лойиҳа файлини сақлашда алохида курсатилмаган ҳолатида ProjectN.dpr номли файл номини тавсия қилади. Бу ерда N ҳар бир кетма кет номланадиган лойиҳа номери (сон, масалан 1,2,3,..). Лекин биз лойиҳа файлини исталган ном билан сақлашимиз мумкин. Масалан MyProgram.dpr. Бу ном автоматик равишда чиқади.
Лойиҳани сақлаб бўлгандан сўнг, уни бажаришга берамиз. Бунинг учун бош менюдан қуйидаги буйруқни бериш лозим: Run=>Run ёки F9 функционал тугмачасини босиш керак бўлади. Дастур нармал ишга тушгандан сўнг экранда DOSнинг стандарт дастур ойнаси намаён бўлади.
Мисол. Иккита соннинг йиғиндиси, айирмаси, кўпайтмаси ва бўлинмасини ҳисоблаш дастурини яратинг.
Бу мисолни ечиш учун юқорида келтирилган тўртта кетма кетликни бажарамиз ва дастур кодини киритамиз.



Дастур коди киритилгандан сўнг уни сақлаб кейин ишга туширамиз. Натижада экранда Dos ойнаси очилиб унда “Ikkita son kiriting:” сўзи чиқади. Кейин иккита сон кирииб Enter тугмасини босиш керак бўлади.