Ma`lumotlar : 1091
Xabarlar soni: 271
Bugun: 23.4.2021
Soat: 10:5
PaskalABC da grafiklar bilan ishlash
Muallif: Faxriddinov Sh.
Qo`shilgan sana: 2015-01-20
PaskalABC da grafiklar bilan ishlash
1.1 SetWindowCaption(s: string)
Grafik darcha hosil qilish protsedurasi
program grafik_1;
//Maqsad:Grafik darcha hosil qilish
uses GraphABC;
begin
SetWindowCaption(' Paskalda ilk grafik darcha')
end.
Savol:
Protsedura ichidagi matn o’rniga ixtiyoriy matn kiritib 3 ta dastur tuzing
1) Yosh dasturchi 2)Salom dunyo 3)Informatika va axborot texnologiyalari
1.2 SetWindowWidth(x: integer) darchani o'zgartirish protsedurasi
Grafik darcha kengligini x piksekga o'zgartirish protsedurasi
program grafik_2;
//Maqsad:Grafik darcha kengligini x piksekga o'zgartirish
uses GraphABC;
begin
SetWindowWidth(222)
end.
savol:
Grafik darcha kengligini ixtiyoriy x 2 ta pikselga o’zgartiring va 2 ta dastur tuzing
1.3 SetWindowHeight(h: integer)
Piksel balandligini o'zgartirish protsedurasi
program grafik_3;
//Maqsad:Grafik darcha balandligini h pikselda o'zgartirish
uses GraphABC;
begin
SetWindowHeight(125)
end.
savol:
Grafik darcha balandligini h ning qiymatini o’zgartirib 2 ta dastur tuzing avval
Grafik darcha hosil qiling
1.4 SetWindowSize(x,h: integer)
Grafik darcha kengligini x,balandligini h o'zgartirish
program grafik_4;
//Tuzuvchi:FAXRIDDINOV SHERZOD
//Maqsad:Grafik darcha kengligini x,balandligini h o'zgartirish
uses GraphABC;
begin
SetWindowSize(325,176)
end.
savol:
Grafik darcha kengligini x,balandligini h o'zgartirib 3 ta dastur tuzing.
Bunda sonlarni ixtiyoriy kiriting
1.5 SetWindowLeft(x: integer)
program grafik_5;
//Tuzuvchi:FAXRIDDINOV SHERZOD
//Maqsad: Grafik darchaning chap tomonidan x piksel joy ajratish
uses GraphABC;
begin
SetWindowLeft(175)
end.
Savol:
Grafik darchaning chap tomonidan x piksel joy ajratib 2 ta dastur tuzing
1.6 SetWindowLeft(x: integer)
program grafik_6;
//Maqsad:Grafik darcha tepasidan x piksel joy ajratish
uses GraphABC;
begin
SetWindowTop(75)
end.
Savol:
Grafik darcha tepasidan x piksel joy ajratib 2 ta dastur tuzing.Bunda garik darcha hosil qiling
Va unga nom bering
1.7 SetWindowPos(x,y: integer)
program grafik_7;
//Maqsad:Darcha chap yuqori burchagini ekran (x,y)
Koordinatali nuqtasiga surish
uses GraphABC;
begin
SetWindowPos(225,275)
end.
Savol:
Darcha chap yuqori burchagini ekran (x,y) koordinatali nuqtasiga suring dasturni shunday tuzingki
X va y qiymatlarini dasturda so’ralsin
1.8 CenterWindow
program grafik_8;
//Maqsad:Grafik darcha erkan markazida hosil bo'ladi
uses GraphABC;
begin
CenterWindow
end.
1.9 MaximizeWindow;
program grafik_9;
//Tuzuvchi:FAXRIDDINOV SHERZOD
//Maqsad: Grafik darchasi ekranni to'liq qoplayd
.(masalalar panelidan tashqari)
uses GraphABC;
begin
MaximizeWindow
end.
1.10 ClearWindow
program grafik_10;
//Tuzuvchi:FAXRIDDINOV SHERZOD
//Maqsad: Grafik darchani tozalash
//Textout(x,y,<so'z>)
// Delay (z)
// ClearWindow;
uses crt,GraphABC;
begin
Textout(30,40,'Greated by Sherzod!');
//Ekranning (30,40) nuqtadan ‘Greated by Sherzod!’ so’zini chiqaradi
delay(3000);
//Tanaffus
ClearWindow
//Ekranni tozalaydi
end.
1.11 SaveWindow(name: string)
program grafik_11;
//Maqsad:Grafik darchani 256 tagacha bo'lgan name fayliga saqlash
1.12 LoadWindow(name: string)
program grafik_12;
//Tuzuvchi:FAXRIDDINOV SHERZOD
//Maqsad:Grafik darchaga name faylini saqlaydi
// LoadWindow(name: string)
1.14 CloseWindow
program grafik_13;
//Maqsad:Grafik darchani yopadi
// CloseWindow
uses crt,GraphABC;
begin
textout(28,34,'Informatika va axborot texnologiyalari!');
delay(2000);CloseWindow
end.
1.15 SetWindowWidth: integer;
program grafik_14;
//Maqsad: Grafik darcha kengligini butun son
// qaytaradi
// SetWindowWidth: integer;
uses crt,GraphABC;
begin
delay(3000);
SetWindowWidth(WindowWidth+100)
end.
1.16 WindowHeight: integer;
program grafik_15;
//Maqsad: Grafik darcha bo'yini butun son sifatida
// qaytaradi
// WindowHeight: integer;
uses crt,GraphABC;
begin
delay(2500);
SetWindowHeight(WindowHeight+65)
end.
1.17 ScreenWidth: integer;
program grafik_18;
//Maqsad: Ekran kengligini piksellarda butun son sifatida
Qaytaradi // ScreenWidth: integer;
uses GraphABC,crt;
begin
MaximizeWindow;
delay(2000);
SetWindowwidth(ScreenWidth div 3)
end.
1.18 ScreenHeight: integer;
program grafik_19;
//Tuzuvchi:FAXRIDDINOV SHERZOD
//Maqsad: Ekran balandligini piksellarda butun son
//sifatida qaytaradi
// ScreenHeight: integer;
uses GraphABC,crt;
begin
MaximizeWindow;
delay(2500);
SetWindowHeight(ScreenHeight div 3)
end.
1.19 WindowCaption: string;
program grafik_20;
//Tuzuvchi:FAXRIDDINOV SHERZOD
//Maqsad: Darcha sarlavhasini satr o'zgaruvchisi sifatida qaytaradi
// WindowCaption: string; uses crt,GraphABC; begin
SetWindowCaption('1-grafik darcha'); Delay(1000);
setWindowCaption(WindowCaption+'. Muallif: Faxriddinov.Sh')
end.
2269 marta o`qildi.
![]() |
![]() |