відео RadioButton , CheckBox , Panel
Лабораторна робота № 7 Середовище delphi
Варіант 1
Варіант 2
Варіант 3
Варіант 4
Варіант 5
Завдання на курсову роботу 2023 .
Файл, у чкому Вам необхідно вписати соє ПІБ та своє бачення вигляду курсової роботи ПОСИЛАННЯ
Стан виконання курсової роботи
Стандарт оформлення літератури (стор 21) Посилання
Графік виконання курсової роботи з програмування 2022
Приклад 2 презентації кращий приклад
УВАГА те, що Вам потрібно змінити виділено червоним кольором
образ 680 Мб
ссылка:
https://drive.google.com/file/d/0B7bb6rcuRclFTG1jelRRU1d5UG8/view?usp=sharing&resourcekey=0-GYiNXisFKPhhA489k0aGLw
или
https://drive.google.com/file/d/0B7bb6rcuRclFTG1jelRRU1d5UG8/view?resourcekey=0-GYiNXisFKPhhA489k0aGLw
Лабораторна робота №6 Робота з файлом.
Лабораторна робота № 4,5
семінарського заняття № 1
Лабораторна робота № 3
Для завантаження лабораторних робіт для студентів, які працюють за індивідуальним графіком
Вказівка розгалуження Шост стор 72- 81.
Завдання:
Скласти програму знаходження розв’язку квадратного рівняння виду: Ах2 + Вх+С=0
Передбачити всі можливі розв'язки.
Завдання:
Скласти програму, яка в залежності від введеного номера місяця буде виводити його назву.
Тести
1. Які з наведених нижче вказівок розгалуження є:
1) правильними____________
2) неправильними_____ ________
а) if a<b then а:=а+1 else b:=b-l;
б) if (х<5) and (у>3) then s:=s+l; else s:=s-l;
в) if a <> b then b:=a;
г) if 9 then k:=k+l.
2. Які значення будуть мати змінні А і В в результаті виконання вказівки
розгалуження:
if А<В then А:=В else В-А
якщо перед її виконанням А=0.5, В=-1.7
Відповідь А=_______________ В=__________________
3. Яка задача розв’язується в результаті виконання вказівки:
if х<у then max:=y else max:=x?
Відповідь -______________________________________________
4. При яких значеннях а і Ь, умова а>Ь буде:
1) істинна _______________ 2) хибна _________________
а) а=2, Ь=5;
б) а=5,Ь=2;
в) а=2,Ь=2
5. Знайдіть значення величини С після виконання вказівки розгалуження:
if b>=6 then с:=5 else с:=12, якщо
1) Ь=2, с=__________________________
2)Ь=16, с=_________ ; ____ _________
3) Ь=6, с=_____ ____________________
6. Яке значення величини D, якщо після виконання вказівки
if d<=4 then с:=5 else с:=10;
1) с=5; d = ________________ 2) с=10; d=________________
a) d=4; б) d=10; в) d=2;
7 При якому значенні К, після виконання вказівки варіанту
case К of:
k1 :writeln(‘Відмінно’);
k2:writeln('Дo6pe’);
k3 :writeln(‘Посередньо*);
k4:writeln(‘ЗадовІльно’)
end;
1) Добре К=________________ a)kl=5
2) Посередньо К=_________________ 6)k2=4
3) Задовільно К=___________ ___ в)k3=3
4) Відмінно К= ___________ г)k4=2
Наступні завдання виконується студентом до кожного варіанту!!!
Для завантаження самостійної роботи
Лабораторна робота №17 Створення підсумкового проєкту
Мета: Навчитись створювати програми мовою Delphi
Завдання 1.
Створити програму "Калькулятор", який, крім звичайних обчислень буде виконувати так звані інженерні обчислення: синуса, косинуса, інших інженерних розрахунків. На окремій вкладці калькулятора передбачити переведення таких одиниць, як метр, кілограм, вимір температури, в одиниці США: фути (feet) й дюйми (inches) зазвичай використовуються для вимірювання висоти, довжини, ширини та відстані; на наступній вкладці передбачити переведення у старовинні одиниці (див посилання: https://nachasi.com/city/2018/04/05/ukrayinski-tradytsijni-miry/). Передбачити ще дві вкладки переведення в інші одиниці (на самостійне опрацювання).
Проведені розрахунки повинні виконуватись в прямому і в зворотному порядку. Прикрасити ваші вкладки тематичними малюнками.
Оформити та продемонструвати роботу .
Додаткова інформація Метод Application.ProcessMessages
Лабораторна робота №16 Створення рухомих графічних примітивів
Мета: Навчитись створювати -програми мовою Delphi
Завдання 1.
На Вашому попередньому малюнку (лабораторна робота 15) створити рухомий об'єкт. (Дивись приклад)
Оформити та продемонструвати роботу .
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.