kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Paskalning shakl chizish imkoniyatlari

Нажмите, чтобы узнать подробности

ball:Picture; procedure KeyDown(Key: integer);    begin      case Key of VK_Left: if x0>-1 then x0:=x0-20 chapgax0:=x0-2;// движение лево        VK_Right: if x0<750 then x0:=x0+2;// o’nga h-t        VK_Down : if y0<550 then y0:=y0+2; // pastga harakat        VK_UP : if y0>0 then y0:=y0-2;//yuqoriga h-t     end;       Sleep(10);       ClearWindow;    end;

Просмотр содержимого документа
«Paskalning shakl chizish imkoniyatlari»

Mavzu:   Paskalning shakl chizish imkoniyatlari

Mavzu: Paskalning shakl chizish imkoniyatlari

2020- yil Ilm ma’rifat va Raqamli iqtisodiyot yili   Demak IT(internet texnologiya)-texnologiya yili ham desak bo’ladi. Buning uchun bizda hozirdan ko’plab dasturchilarga bo’lgan talab soat sain oshmoqda!!!

2020- yil Ilm ma’rifat va Raqamli iqtisodiyot yili Demak IT(internet texnologiya)-texnologiya yili ham desak bo’ladi. Buning uchun bizda hozirdan ko’plab dasturchilarga bo’lgan talab soat sain oshmoqda!!!

Aziz o’quvchilar buning uchun sizdan faqat va faqat o’qish izlanish talab qilinadiDasturchi oyligi O’zbekistonda hozirda 400$ dan -5000$ gacha  Quyidagi video so’zim isboti o’rnida ko’rgaysiz

Aziz o’quvchilar buning uchun sizdan faqat va faqat o’qish izlanish talab qilinadiDasturchi oyligi O’zbekistonda hozirda 400$ dan -5000$ gacha Quyidagi video so’zim isboti o’rnida ko’rgaysiz

Uyga berilgan vazifani tekshirish (Tushunchalar tahlili metodi)

Uyga berilgan vazifani tekshirish

(Tushunchalar tahlili metodi)

Takrorlash  1. Paskalning Graph moduli qanday maqsadda ishlatiladi?  2. Grafik holatda ekranning qaysi nuqtasi joriy nuqta bo'ladi?  3. Grafik holatda ekrandagi nuqtaning о 'rni nimasi bilan aniqlanadi?

Takrorlash 1. Paskalning Graph moduli qanday maqsadda ishlatiladi? 2. Grafik holatda ekranning qaysi nuqtasi joriy nuqta bo'ladi? 3. Grafik holatda ekrandagi nuqtaning о 'rni nimasi bilan aniqlanadi?

4. Grafik drayver nima va и qanday vazifani bajaradi?  5. Ekranni grafik holatga о 'tkaz'ish uchun Paskalda qanday ко 'rsatma beriladi?  6.PutPixel operatori haqida gapirib bering.

4. Grafik drayver nima va и qanday vazifani bajaradi? 5. Ekranni grafik holatga о 'tkaz'ish uchun Paskalda qanday ко 'rsatma beriladi? 6.PutPixel operatori haqida gapirib bering.

Chiziq turi SetLineStyle(s, p, t) Chiziq turi  Namuna Qalinligi 0 1 2 3 4   Namunadan tanlanadi 1   Ingichka 3   Yo`g`on

Chiziq turi

SetLineStyle(s, p, t)

Chiziq turi

Namuna

Qalinligi

0

1

2

3

4 Namunadan tanlanadi

1 Ingichka

3 Yo`g`on

Diaganal asosida to`g`ri to`rtburchak hosil qilish Rectangle (x1,y1,x2,y2)

Diaganal asosida to`g`ri to`rtburchak hosil qilish

Rectangle (x1,y1,x2,y2)

Diaganal asosida to`g`ri to`rtburchak hosil qilis 10 200 program shakl; uses GraphABC; var  x0,y0:integer; Begin setbrushcolor(clred) ; rectangle(10,10,200,100); SetWindowSize(800,600); end. 10 100

Diaganal asosida to`g`ri to`rtburchak hosil qilis

10

200

program shakl;

uses GraphABC;

var

x0,y0:integer;

Begin

setbrushcolor(clred) ;

rectangle(10,10,200,100); SetWindowSize(800,600);

end.

10

100

Aylana chizish Circle (x, y, r) r

Aylana chizish

Circle (x, y, r)

r

100 Aylana chizish 300 program shakl; uses GraphABC; var  x0,y0:integer; Begin setbrushcolor(clred) ; circle(200,300,100); SetWindowSize(800,600); end. 200

100

Aylana chizish

300

program shakl;

uses GraphABC;

var

x0,y0:integer;

Begin

setbrushcolor(clred) ;

circle(200,300,100);

SetWindowSize(800,600);

end.

200

Ellips hosil qilish Ellipse (x,y,Rx,Ry) Ry Rx

Ellips hosil qilish

Ellipse (x,y,Rx,Ry)

Ry

Rx

Ellips hosil qilish program shakl; uses GraphABC; var  x0,y0:integer; Begin setbrushcolor(clred) ;  Ellipse(320,240,800,500); SetWindowSize(800,600); end. );

Ellips hosil qilish

program shakl;

uses GraphABC;

var

x0,y0:integer;

Begin

setbrushcolor(clred) ;

Ellipse(320,240,800,500);

SetWindowSize(800,600);

end.

);

Shakllar ichini bo`yash :  SetColor(Red);  setbrushcolor(clred); TextColor(Color:byte) - chiqayotgan belgilar rangini o‘rnatadi; TextBackGround(Color:byte) - f о n rangini o‘rnatadi.

Shakllar ichini bo`yash :

  • SetColor(Red);
  • setbrushcolor(clred);

TextColor(Color:byte) - chiqayotgan belgilar rangini o‘rnatadi;

TextBackGround(Color:byte) - f о n rangini o‘rnatadi.

Ichi bo`yalgan ellips hosil qilish FillEllipse (x,y,Rx,Ry) Ry Rx

Ichi bo`yalgan ellips hosil qilish

FillEllipse (x,y,Rx,Ry)

Ry

Rx

Ixtiyoriy shakllarni ichini bo`yash F l o o d F i l l (x,y, b) Ichki nuqta kordinatasi Chegara rangi

Ixtiyoriy shakllarni ichini bo`yash

F l o o d F i l l (x,y, b)

Ichki nuqta kordinatasi

Chegara rangi

-1 then x0:=x0-20 chapga x0:=x0-2;// движение лево VK_Right: if x0then x0:=x0+2;// o’nga h-t VK_Down : if y0then y0:=y0+2; // pastga harakat VK_UP : if y00 then y0:=y0-2;//yuqoriga h-t end ; Sleep(10); ClearWindow; end ;" width="640"

Harakatga keltirish protsedurasi: ball:Picture; procedure KeyDown(Key: integer); begin case Key of VK_Left: if x0-1 then x0:=x0-20 chapga x0:=x0-2;// движение лево VK_Right: if x0then x0:=x0+2;// o’nga h-t VK_Down : if y0then y0:=y0+2; // pastga harakat VK_UP : if y00 then y0:=y0-2;//yuqoriga h-t end ; Sleep(10); ClearWindow; end ;

begin   SetWindowSize(800,600);// ойна размери  ball:=Picture.Create(50,50);// яратиш расм ball.Load(' круг .jpg');// коптокни юклаш  x0:=0;   y0:=0;   repeat   OnKeyDown:=KeyDown;  ball.Draw(x0,y0);   until false;  end .

begin SetWindowSize(800,600);// ойна размери ball:=Picture.Create(50,50);// яратиш расм ball.Load(' круг .jpg');// коптокни юклаш x0:=0; y0:=0; repeat OnKeyDown:=KeyDown; ball.Draw(x0,y0); until false; end .

Darsni mustahkamlaymiz

Darsni mustahkamlaymiz

“ Sherigini top” metodi setwindowsize Qalam rangini belgilash Butun sonlar setpencolor O‘zgaruvchilarni tavsiflash integer Joriy oyna o‘lchamini o‘rnatish var

Sherigini top” metodi

setwindowsize

Qalam rangini belgilash

Butun sonlar

setpencolor

O‘zgaruvchilarni tavsiflash

integer

Joriy oyna o‘lchamini o‘rnatish

var

5-minutlik esse yani dam olamiz  hamma bu qiziq fat videosiga etibor qaratsin

5-minutlik esse yani dam olamiz hamma bu qiziq fat videosiga etibor qaratsin

Guruhlarga topshiriq 1- Guruhga topshiriq Ekranning o`rtasining yuqori qismida uzunligi 300 ,balandligi 150 piksel bo`lgan qizil rangli to`rtburchak chizish va harakatga keltirish dasturini tuzing. 2- Guruhga topshiriq Ekranning o`rtasida radiusi 150 ga teng bo`lgan sariq rangli aylana chizish va harakatga keltirish dasturini tuzing. 3- Guruhga topshiriq Ekranning yuqori o’ng burchagida elleps hosil qilish va harakatga keltirish dasturini tuzing. R1=150, R2=140.

Guruhlarga topshiriq

1- Guruhga topshiriq

Ekranning o`rtasining yuqori qismida uzunligi 300 ,balandligi 150 piksel bo`lgan qizil rangli to`rtburchak chizish va harakatga keltirish dasturini tuzing.

2- Guruhga topshiriq

Ekranning o`rtasida radiusi 150 ga teng bo`lgan sariq rangli aylana chizish va harakatga keltirish dasturini tuzing.

3- Guruhga topshiriq

Ekranning yuqori o’ng burchagida elleps hosil qilish va harakatga keltirish dasturini tuzing. R1=150, R2=140.

Guruhlarga savollar 1- Guruhga savollar 1.To`g`ri to`rtburcak chizish operatorida X1,Y1,X2,Y2 lar  nimani bildiradi? 2. Ekranda biror shakl chizish uchun uning rangi qaysi operator yordamida tanlanadi? 2- Guruhga savollar 1. Aylana qaysi operator yordamida chiziladi?  2. SetWindowSize(x,y) vazifasi 3- Guruhga savollar

Guruhlarga savollar

1- Guruhga savollar

1.To`g`ri to`rtburcak chizish operatorida X1,Y1,X2,Y2 lar

nimani bildiradi?

2. Ekranda biror shakl chizish uchun uning rangi qaysi operator yordamida tanlanadi?

2- Guruhga savollar

1. Aylana qaysi operator yordamida chiziladi?

2. SetWindowSize(x,y) vazifasi

3- Guruhga savollar

  • Ellipse operatori qanday shakl chizadi?
  • Clearwindow operatori vazifasi ?
Uyga vazifa:  4. Svetofor rasmini chizuvchi dastur tuzing.

Uyga vazifa: 4. Svetofor rasmini chizuvchi dastur tuzing.


Получите в подарок сайт учителя

Предмет: Информатика

Категория: Уроки

Целевая аудитория: 9 класс.
Урок соответствует ФГОС

Скачать
Paskalning shakl chizish imkoniyatlari

Автор: Даминов Алпомиш Азаматович

Дата: 01.04.2020

Номер свидетельства: 544903

Получите в подарок сайт учителя

Видеоуроки для учителей

Курсы для учителей

ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства