неділя, 18 травня 2025 р.

контрольна робота

 контрольна робота №2 посилання 

одна спроба у вівторок 8.30  !!!

пʼятниця, 16 травня 2025 р.

семінарського заняття № 1

 семінарського заняття № 1

 семінарського заняття № 1

Тема заняття: Розвиток мови. Історичні аспекти, родоначальником яких мов стала, перспективи розвитку, сучасний стан розвитку програмування, роль програмування в житті людини
Мета заняття: поглибити знання студентів за напрямку програмування

Після вивчення теми студент повинен
знати: що таке проект, розуміти модульний підхід, розумітись у сучасних мовах програмування, вміти їх порівнювати.
вміти: складати користувацькі програми.

Підготовити реферат на 2-3 сторінок, презентацію для доповіді. (при використання посилань на інтернет-ресурси, обов'язково їх вставляти)

Теми для рефератів, повідомлень:
1        Розвиток мов програмування. Сучасний стан.
2     Сучасне використання мови програмування
3       Мова програмування, як мова для навчання.
4.   Штучний інтелект, його розвиток, використання
Додаткова та віртуальна реальність.
 Особливості програм для обробки масиву інформації.
Елементи структурованого програмування.
8 Візуалізація програмування
 


Проаналізуйте Ігри для майбутніх програмістів.посилання 2 
Сучасні мови програмування

Це цікаво 
Як звучить число Пи посилання

кто первый


четвер, 15 травня 2025 р.

Лабораторна робота №9 Створення графічного зображення

  Лабораторна робота №9  Створення графічного зображення

Мета: Навчитись створювати програми мовою Delphi

Завдання 1. Створити програму, яка можливостями мови створить малюнок. (Будинок, лужок, озеро, дерево, сонечко)

Завдання 2.

Виконати підпис малюнка (ПРІЗВИЩЕ)  за допомогою графічних примітивів. 

Оформити та продемонструвати роботу.

 Завдання 3.

На Вашому попередньому малюнку (лабораторна робота 16) створити рухомий об'єкт. (Дивись приклад)

Додаткова інформація Метод Application.ProcessMessages  

Відео: 



unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls;

type

  TForm1 = class(TForm)

    Shape1: TShape;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  i:integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

   Form1.BitBtn1.Visible:=false;      //робимо кнопку старт невидимою

  for i:=0 to   (form1.clientwidth-shape1.Width) div 2 do

  // цикл до половини заданої ширини форми форми

         begin

         shape1.Visible:=false;  //фігуру зробили не видимою

         shape1.Left:=shape1.Left+1;  //змістили координату по Х

         shape1.Top:= shape1.Top -1; //змістили координату по  У

         sleep(10);             //затрика

         shape1.Visible:=true;    //фігуру зробили видимою

         application.ProcessMessages;  //метод який вимагає миттєвого виконання

        end;

        for i:=i to   form1.clientwidth-shape1.Width do

         begin

         shape1.Visible:=false;

         shape1.Left:=shape1.Left+1;

         shape1.Top:= shape1.Top +1;

         sleep(10);

         shape1.Visible:=true;

         application.ProcessMessages;

        end;

  Form1.BitBtn2.Visible:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Form1.BitBtn2.Visible:=false;

end;

end.

Робота з графікою в Delphi Малювання на формі або компоненті PaintBox

  Робота з графікою в Delphi Малювання на формі або компоненті PaintBox

Малювання на формі або компоненті PaintBox...................................... 1

Приклад відео з використанням  графіки................................................ 4

Робота з графікою в Delphi......................................................................... 4

Графічні можливості Delphi: Дуга, прямокутник, сектор, точка.......... 10

Дуга............................................................................................................ 10

Прямокутник............................................................................................. 10

Багатокутник............................................................................................ 11

Сектор....................................................................................................... 12

Крапка........................................................................................................ 12

Малюємо аналоговий  годинник.............................................................. 15

Додатково посилання


пʼятниця, 9 травня 2025 р.

Лабораторна робота №8 Створення програм з використанням дати та часу.

  Лабораторна робота №8 Створення програм з використанням дати та часу. 

Мета: Навчитись створювати програми з використанням дати та часу.

Теоретичний матеріал посилання 

Завдання 1. Організувати введення дати народження  та сьогоднішньої дати. Провести розрахунок тривалості життя.

Завдання  2. Організувати введення двох дат та визначити часовий проміжок між цими датами.

Завдання  3 Ввести дати. Визначити день тижня. Скористатись формулами розрахунків "Як за датою обчислити день тижня?"посилання  (https://genomukr.com/rizne/26518-jak-za-datoju-obchisliti-den-tizhnja.html) .

Завдання  4 Визначити час роботи вашої програми після її запуску. Інформацію відобразити у нижньому рядку:  StatusBar .

Завдання  5 Написати програму визначення  дати Великодня. Скоритсатися алгоритмом Гауса для обчислення дати Великодня. Посилання на вікіпедію. Для перевірки правильності роботи програми скористайтеся таблицею у Вікіпедії (дивись посилання).


Приклад коду:

newDate := IncDay(EncodeDate (Year, Month, Day) , 14); //використовується модуль         DateUtils тут додаємо 14 днів EncodeDate створюю задану дату

form1.Label12.Caption:= DateToStr (newDate) ;

   //dt:= now;     // поточна дата

dt := form1.DateTimePicker1.Date;  //визначена дата тобто введена з компоненту DateTimePicker

form1.Label11.Caption:= DateToStr (dt) ; //виводимо дату

difference := DaysBetween(newDate, dt); //використовується модуль DateUtils тут різницю днів

if dt<newDate then  s:=''

                  else  begin s:='пройшло'; newdt:=dt; dt:=newDate; newDate:=newdt; end;//переставити дати тобто прйшов час або пусто якщо дати розташовано вірно


form1.Label13.Caption:= s+intToStr (difference )+ ' днів ' ;

  // Припустимо, що у вас є дві дати:

  //date1 := EncodeDate(2022, 1, 1); // перша дата

  //date2 := Now; // друга дата (поточна дата ≥ час)

  // «находимо різницю між датами в місцях та днях

  //monthsDifference := MonthsBetween(date1, date2);

  //daysDifference := DaysBetween(date1, IncMonth(date1, monthsDifference));

monthsDifference := MonthsBetween(newDate, dt);    //різниця у місяцях

daysDifference := DaysBetween(newDate, IncMonth(dt, monthsDifference)); //різниця у датах з урахуванням місяців

form1.Label15.Caption:=s+ ' кількість місяців: '+ IntToStr( monthsDifference)+ '   кількість днів: '+ IntToStr (daysDifference);


четвер, 8 травня 2025 р.

Введення та відображення дат та часу – компоненти DateTimePicker, MonthCalendar, Calendar

  Введення та відображення дат та часу – компоненти DateTimePicker, MonthCalendar, Calendar

Стандартний тип дата-час - TDateTime, визначений у модулі System, є дійсне  число типу Double, ціла частина якого задає число днів (у тому числі і негативне), що пройшли з 30 грудня 1899, а дробова частина - минулу частку поточного дня . Так, 35065.75 дає 1 січня 1996, 18.00. 

У модулі SysUtils визначено низку стандартних функцій роботи з параметрами типу дати-часу.

Матеріал посилання     опис модуля SysUtils,  розглянуті деякі функції на прикладах. наведено коди прикладів, наведено використання компонента  StatusBar , який знаходиться у вкладці Win32: ( зображено жовтим кольором у коді), розглянуто Компонент Delphi DataTimePicker розташований на сторінці Win32 Палітри компонентів. Він призначений для введення часу та дати, компоненти DateTimePicker, MonthCalendar, Calendar.


Додатково матеріал   ще один опис Процедур та функцій роботи з датою та часом

Модуль SysUtils (можливо трохи гірше описано чим у попередньому, зате коротко).