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.