Перша програма

Пишемо найпростішу програму. Традиційним для програмістів стало починати будь-яку мову програмування з речення “Привіт світ!”. У нашому випадку введено запис "Я люблю математику!".

Запускаємо Small Basic, бачимо текстовий редактор, де будемо записувати код програми.
Перша програма буде без графічної оболонки - просте консольне вікно з виведеним текстом.
Щоб вивести на екран монітора будь-який текст “Привіт світ!” або “Я люблю математику!”, можете записати "Я люблю свою маму" і так далі, необхідно використовувати TextWindow, плюс треба щоб текст, що виводиться, був в одній стрічці. Код програми: TextWindow.WriteLine("Я люблю математику!")
Копіюємо або друкуємо і запускаємо (кнопка на панелі Запуск або F5.
Тепер детально:TextWindow - в текстовому вікні вводить або виводить інформацію. WriteLine - параметр виводить інформацію з перенесенням рядка. Є маленький нюанс нашу програму можна було написати так: TextWindow.Write("Я люблю математику!"), але тоді текст буде без перенесення рядка.
Подивись уважно на рисунок та розкажи вчителю, як ти будеш створювати свою першу програму.
Які записи ти будеш вводити?

() ''.	Знаки пунктуації (використовуються практично в усіх мовах програмування)
TextWindow	Об`єкт – Текстове Вікно
WriteLine	Операція – написати текст (вивести результат)
Здравствуй, мир!	Текст, який потрібно написати

27. Розгалуджений алгоритм у програмах

Проект. Різний результат (умова)
1) Напишіть програму:

If (Clock.Hour < 12) Then

TextWindow.WriteLine("Добрий ранок, Світ!")

EndIf

If (Clock.Hour >= 12) Then

TextWindow.WriteLine("Добрий ранок, Світ!")

EndIf

If (умова)	Ключевое слово – початок умови
Then	Ключеве слово – перехід до операції, яку потрібно здійснити при виконанні умови
EndIf	Ключеве слово – умову закінчено
Clock	Об`єкт, з допомогою якого можна отримати дані про поточний час, хвилину, секунду, місяць, рік. Наприклад, програма, яка виведе дані про поточний час: TextWindow.Write (Clock.Hour + ".") TextWindow.WriteLine (Clock.Minute) Або: TextWindow.Write (Clock.Time + ".")
Clock.Hour	Виведе дані про поточний час
<, >=, >, <=	«менше», «більше або рівно», «більше», «менше або рівно»

Між ключовими словами Then і EndIf можна ввести декілька операцій і комп'ютер виконає їх все, якщо умова підходить для кожної з них. Наприклад, можна прописати додаткові умови в програму для кожного часу доби:

If (Clock.Hour < 12) Then

TextWindow.Write("Добрий ранок!")

TextWindow.WriteLine("Як Вам сподобався сніданок?")

EndIf

3) «Парне - непарне».
Напишіть програму:

TextWindow.Write("Введите число: ")

num = TextWindow.ReadNumber()

rem = Math.Remainder(num, 2)

If (rem = 0) Then

TextWindow.WriteLine("Число – четное.")

Else

TextWindow.WriteLine("Число – нечетное.")

EndIf

num	Змінна. Її значення вводиться користувачем (операція ReadNumber())
Math.Remainder (num1, num2)	Операція отримання остачі від ділення числа num1 на num2.
rem	Змінна. Її значення в даній програмі – остача від ділення введеного числа на 2
rem = 0	парне число ділиться на 2 без остачі

Проект. Розалуження

i = 1

start:

TextWindow.WriteLine(i)

i = i + 1

If (i < 25) Then

Goto start

EndIf

i	Змінна. В даній програмі їй буде спочатку присвоєно значення 1
start:	Мітка. Може мати будь яке ім`я, але після імені повинно стояти «:». У програмі може бутиь люба кількість міток
i = i + 1	Команда «додати 1 до значення змінної i». Тепер змінній i присвоєно нове значення i + 1
Goto start	Пропозиція «виконати команди, починаючи з мітки start».

2) Нескінченне повторення (рекурсія)

begin:

TextWindow.Write("Введите число: ")

num = TextWindow.ReadNumber()

rem = Math.Remainder(num, 2)

If (rem = 0) Then

TextWindow.WriteLine("Число – четное.")

Else

TextWindow.WriteLine("Число – нечетное.")

EndIf

Goto begin

Запустіть программ на виконання.
Можна до нескінченності вводити числа.
Програма буде визначати парне введене число чи непарне. Вийти з такої програми можна тільки, закривши вікно.

Цикли

Проект.

Напишіть і запустіть на виконання програму

For i = 1 To 24

TextWindow.WriteLine(i)

EndFor

For	Ключове слово - початок циклу (loop). Якщо спеціально не вказано, то після задання початкового значення змінної, в кожному циклі проходить його приріст на 1
To	Вказується верхня межа значень змінної
EndFor	Ключове слово - завершення циклу

For i = 1 To 24 Step 2

Step	Слово, частина командного речення For. Вказує, що крок приросту значення змінної не рівний 1. (Буквально – «крок зміни».

Збережіть проект в своїй теці.
2) В новому проекті змініть програму так, щоб результат виводився в рядок і через кому. Яку операцію потрібно застосувати? Збережіть проект в своїй папціі.
3) Напишіть програму виводу парних чисел, що не перевищують 40 або програму виводу чисел, що діляться на 3, не перевищуючих 50. Збережіть проект у своїй теці.
4) Напишіть програму виводу непарних чисел більших за 1, але менших 15 в порядку спадання. Збережіть проект в своїй папці.

29. Система координат у графічному вікні

Щоб розпочати користування графічними примітивами, потрібна система координат у графічному вікні.

Початок координат, точка (0; 0) розміщена в лівому верхньому куті. Вісь ОХ направлена зліва направо, а вісь ОУ – зверху вниз.

DrawLine (x1, y1, x2, y2)	Рисування лінії між точками з координатами (x1, y1) і (x2, y2)
PenWidth = число	Команда встановлює ширину олівця
PenColor = "Цвет"	Команда встановлює колір олівця

Введемо команду та запустимо її на виконання

GraphicsWindow.PenWidth = 10

GraphicsWindow.PenColor = "Green"

GraphicsWindow.DrawLine(10, 10, 100, 100)

GraphicsWindow.PenColor = "Gold"

GraphicsWindow.DrawLine(10, 100, 100, 10)

Результат

Якщо обєднати код, який вводили на попередньому занятті з даним, то отримаємо настурний

результат

Програма. Товщина олівця.
Поирібно ввести наступний код:

GraphicsWindow.BackgroundColor = "Black"

GraphicsWindow.Width = 200

GraphicsWindow.Height = 160

GraphicsWindow.PenColor = "Blue"

For i = 1 To 10

GraphicsWindow.PenWidth = i

GraphicsWindow.DrawLine(20, i * 15, 180, i * 15)

endfor

Результат

30. Графічне вікно

	Обєкт Графическое Окно
GraphicsWindow	Операція «показать Графическое Окно»
BackgroundColor = "SteelBlue"	Операція «установить фон Графического Окна»
Title = "Имя"	Операція «Заголовок Графического Окна»
Width = длина	Операція «задать ширину Графического Окна»
Height = длина	Операція «задать высоту Графического Окна»

Проект. Вчимося малювати

1) Напишіть програму і запустіть її на виконання:

GraphicsWindow.BackgroundColor = "SteelBlue"

GraphicsWindow.Title = "Мій фон"

GraphicsWindow.Width = 320

GraphicsWindow.Height = 200

GraphicsWindow.Show()

Black (Чорний) Blue (Синій) Cyan (Голубой) Gray (Сірий) Green (Зелений) Magenta (Малиновий) Red (Червоний) White (Білий) Yellow (Жовтий)

DarkBlue (Темно-синій) DarkCyan (Темно-голубий) DarkGray (Темно-сірий) DarkGreen (Темно-зелений) DarkMagenta (Темно-малиновий) DarkRed (Темно-червоний) DarkYellow (Темно-жовтий)

31. Створення рисунків прямокутника й квадрата

DrawRectangle (x1, y1, w, h)	Операція малювання контура прямокутника, де (x1, y1) – координати лівого верхнього кута, w – ширина, h – висота прямокутника.
DrawEllipse (x1, y1, w, h)	Операція малювання контура еліпса
BrushColor = "Цвет"	Операція зміни кольору кисті для малювання зафарбованих фігур
FillRectangle (x1, y1, w, h)	Операція рисування зафарбованого прямокутника
FillEllipse (x1, y1, w, h)	Операція малювання зафарбованого еліпса

Для рисування фігур використовуються дві операції - draw и fill. Операція draw рисує фігури по заданих розмірах олівцем, а операція fill рисує фігури кистю (фігура виходить зафарбованою).
Для того, щоб нарисувати прямокутник червоним олівцем, введемо код:
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300
GraphicsWindow.PenColor = "Red"
GraphicsWindow.DrawRectangle(10, 10, 100, 40)
Результат
Для того, щоб програма нарисувала прямокутник, зафарбований зеленим кольором, потрібно ввести код:
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300
GraphicsWindow.BrushColor = "Green"
GraphicsWindow.FillRectangle(60, 80, 100, 40)
Результат
Для того, щоб краще зрозуміти, як "рисує" програма, змінть числа в даному коді та запустіть програму на виконання.
Наприклад, введемо код:
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300
GraphicsWindow.BrushColor = "DarkMagenta"
GraphicsWindow.FillRectangle(150, 100, 300, 150)
Результат
Якщо введемо цей код, то одержимо квадрат рожевого кольору.
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300
GraphicsWindow.BrushColor = "Magenta"
GraphicsWindow.FillRectangle(150, 100, 150, 150)
Результат

32. Створення рисунків еліпса, кола, круга

DrawRectangle (x1, y1, w, h)	Операція малювання контура прямокутника, де (x1, y1) – координати лівого верхнього кута, w – ширина, h – висота прямокутника.
DrawEllipse (x1, y1, w, h)	Операція малювання контура еліпса
BrushColor = "Цвет"	Операція зміни кольору кисті для малювання зафарбованих фігур
FillRectangle (x1, y1, w, h)	Операція рисування зафарбованого прямокутника
FillEllipse (x1, y1, w, h)	Операція малювання зафарбованого еліпса

Для рисування фігур використовуються дві операції - draw и fill. Операція draw рисує фігури по заданих розмірах олівцем, а операція fill рисує фігури кистю (фігура виходить зафарбованою).
Для того, щоб нарисувати еліпс чорним олівцем, введемо код:
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300
Color = "Yellow"
GraphicsWindow.DrawEllipse(200, 75, 100, 40)
Результат
Для того, щоб програма нарисувала еліпс, зафарбований голубим кольором, потрібно ввести код:
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300
GraphicsWindow.BrushColor = "Cyan"
GraphicsWindow.FillEllipse(260, 80, 100, 40)
Результат
Для того, щоб краще зрозуміти, як "рисує" програма, змінть числа в даному коді та запустіть програму на виконання.
Якщо введемо цей код, то одержимо круг рожевого кольору.
GraphicsWindow.Width = 400
GraphicsWindow.Height = 2500
GraphicsWindow.BrushColor = "Magenta"
GraphicsWindow.FillEllipse(150, 100, 150, 150)
Результат

Введемо код:
GraphicsWindow.Width = 600
GraphicsWindow.Height = 300
GraphicsWindow.BrushColor = "Magenta"
GraphicsWindow.FillEllipse(150, 100, 150, 150)
GraphicsWindow.BrushColor = "Blue"
GraphicsWindow.FillRectangle(100, 50, 150, 150)
Отримаємо результат:
Результат

---

Дата добавления: 2015-08-13