linkedin facebook linkedin facebook nod32

PaskalABC da grafiklarga oid dastlabki ma'lumotlar

Muallif: Faxriddinov Sh.

Qo`shilgan sana: 2015-01-26

PaskalABC da grafiklarga oid dastlabki ma'lumotlar

Program g_1;
  uses GraphABC;
//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod

// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
//x1,y1 nuqtadan x2,y2 nuqtagacha to'g'ri chiziq chizadi
begin
Line (50,60,120,220)
end.

Program g_2;
  uses GraphABC;
  //setcolor(rang)-rang tanlash protsedurasi
// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
 begin
  Setwindowcaption ('TerDu');
 Line (150,160,220,320);
 end.

Program g_3;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
  //setcolor(rang)-rang tanlash protsedurasi
// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
//Savol:2 ta chiziq o'tkazing
 begin
  Setwindowcaption ('TerDu');
 Line (150,160,220,320);
  Line (450,160,520,20);
 end.

Program g_4;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
  //setcolor(rang)-rang tanlash protsedurasi
// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
//Savol:3 ta parallel chiziqlar o'tkazing
 begin
  Setwindowcaption ('TerDu');
 Line (100,100,400,100);
  Line (100,200,500,200);
  Line (100,300,600,300);
 end.

Program g_5;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
  //setcolor(rang)-rang tanlash protsedurasi
// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
//Savol:3 ta parallel vertikal chiziqlar o'tkazing
 begin
  Setwindowcaption ('TerDu');
 Line (100,100,100,600);
  Line (200,100,200,600);
  Line (300,100,300,600);
 end.

Program g_6;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
  //Rectangle(x1,y1,x2,y2)-to'rtburchak chizish protsedurasi
// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
//Savol:3 ta parallel vertikal chiziqlar o'tkazing
 begin
  Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
 Rectangle(50,50,300,250);
 end.

Program g_7;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
  //Ellipse(a,b,c,d,e,f)-ellips chizish protsedurasi
  //protsedura markazi (a,b) o'qlari bo'yicha radiuslari c va d
  //ellips e burchagini f gacha buradi
 begin
  Setwindowcaption ('Ellips');
FillEllipse(200,200,50,75);

end.

Program g_8;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
//Savol:Aylana va to'rtburchak
 begin
  Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
 Rectangle(50,50,250,250);
 Circle(150,150,100);

end.

Program g_9;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
  //Rectangle(x1,y1,x2,y2)-to'rtburchak chizish protsedurasi
// Line (x1,y1,x2,y2) chiziq chizish protsedurasi
//Savol:4 ta chiziqdan to'rtburchak yasang
 begin
  Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
 Line(100,100,300,100);
  Line(300,100,300,300);
   Line(300,300,100,300);
    Line(100,300,100,100);
 end.

Program g_10;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
// Circle (x,y,r) aylana chizish protsedurasi
//Savol:3 ta ichma-ich aylana yasang
 begin
  Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
  Circle(200,200,200);
  Circle(200,200,150);
  Circle(200,200,100);
  Circle(200,200,50);
  Circle(200,200,25);
 end.

Program g_11;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
// Rectangle(x1,y1,x2,y2) to'rtburchak chizish protsedurasi
//Savol:5 ta ichma-ich to'rtburchak chizing
 begin
  Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
  Rectangle(50,50,400,400);
  Rectangle(100,100,350,350);
  Rectangle(150,150,300,300);
  Rectangle(200,200,250,250);
  Rectangle(210,210,240,240);
 end.

Program g_12;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
// Rectangle(x1,y1,x2,y2) to'rtburchak chizish protsedurasi
//Savol:Kvadrat chizing va uning dioganallarini belgilang
 begin
  Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
  Rectangle(100,100,400,400);
  Line(100,100,400,400);
  Line(400,100,100,400);
 end.

Program g_13;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
// Line(x1,y1,x2,y2) to'rtburchak chizish protsedurasi
//Savol:Qor parchasi nomli dastur tuzing.4 ta chiziq yordamida
 begin
 Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
  Line(300,100,300,500);
  Line(100,300,500,300);
    Line(200,200,400,400);
     Line(400,200,200,400);

 end.

  Program g_14;
  uses GraphABC;

//1-kurs KT: Informatika va axborot texnologiyalar yo`nalishi talabasi Faxriddinov Sherzod
// Line(x1,y1,x2,y2) to'rtburchak chizish protsedurasi
//Savol:Qor parchasi nomli dastur tuzing.4 ta chiziq yordamida
//ular to'rtburchak ichiga joylashsin
 begin
 Setwindowcaption ('Tuzuvchi:FAXRIDDINOV SHERZOD');
 Rectangle(100,100,500,500);
  Line(300,100,300,500);
  Line(100,300,500,300);
    Line(200,200,400,400);
     Line(400,200,200,400);
 end.

1844 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений