Паскаль программалоо тилинде графикалык чөйрө

4-март Тема: Графикалык чөйрөдө текст жазуу  

Сабактын максаты:

• Бүгүнкү сабакта графикалык чөйрөдө сүрөт тартуунун программасын гана түзбөстөн сөздөрдү да жазууга боло тургандыгы жөнүндө маалымат аласыңар. Өз алдынча программа түзүүгө багыт аласыңар.

Сабактын жүрүшү

• Уюштуруу 3 топко бөлүү
• Өтүлгөн темаларды кайталоого суроолор
• Жаңы тема
• Теманы бышыктоого программа түзүү
• Үйгө тапшырма:
• Баалоо

Өтүлгөн темаларды кайталоого суроолор

• Паскалда графиканы кандай түшүнөсүңөр?
• Түз сызыкты чийүү оператору кайсы?
• Диагоналынын негизинде кайсы фигура чийилет?
• Айлананын радиусу эмне үчүн берилет?
• setpencolor (clgreen) - ?
• setbrushcolor (cllime) - ?

Жаңы тема

TextOut(x,y: integer; S: string);

Төрт бурчтуктун ( x, y ) чекитиндеги

S сабына текст жазылат

textout (50,30,' 8-класс');

TextOut процедурасы чекиттин (x,y) координаталарын өзгөртүп турат

• SetFontColor - шрифттин өңүн коёт
• SetFontColor (color: integer);
• SetFontColor (clPurple)

• SetFontName -шрифттин атын коёт
• SetFontSize - шрифттин өлчөмүн коёт Мисалы: SetFontSize(18);
• TextWidth - учурдагы саптын туурасы
• TextHeight - учурдагы саптын бийиктиги

SetFontStyle - шрифттин стилин коёт SetFontStyle(fsUnderline );

• fsNormal – Кадимки (обычный)
• fsBold – жирный;
• fsItalic – наклонный;
• fsBoldItalic – жирный наклонный;
• fsUnderline – подчеркнутый;
• fsBoldUnderline – жирный подчеркнутый;
• fsItalicUnderline – наклонный подчеркнутый;
• fsBoldItalicUnderline – жирный, наклонный ,подчеркнутый.

мисал

• program text;
• uses graphabc;
• begin
• setwindowsize (500,250);
• setwindowtitle ('макал');
• SetFontColor(clPurple);
• SetFontSize(18);
• textout (50,30,' Билим алуу');
• textout (50,60,'ийне менен,');
• textout (50,90,'кудук казгандай ');
•  
• SetFontColor(clgreen);
• SetFontStyle(fsUnderline );
• textout (140,180,'ата - бабалардан калган');
• end .

Мисал

• program text;
• uses graphabc;
• begin
• setwindowsize (500,250);
• setwindowtitle ('класс');
• SetFontColor(clolive);
• SetFontSize(30);
• textout (50,30,' 8-класстын окуучулары');
• end.

Теманы бышыктоо

• 1-топко “Кызга кырк үйдөн тыюу”

• 2-топко “8-март майрамыңыздар менен!!!”

• 3-топко “Жигитке 70 өнөр аздык кылат”

Программасын түзүү “Заманбап компьютер” деген жазуусу менен (3 топ жарышат)

• Үйгө тапшырма “Биздин үй” деген жазуусу бар, үйүңөрдүн сырткы көрүнүшүнүн программасын түзүп келүү
• Баалоо(топтук, жеке)
• Жыйынтыктоо