Практична робота. Створення програм із кнопками та написами У середовищі розробки програмного забезпечення Python створіть проект, який відкриває вікно із двома кнопками. При натисканні лівою кнопкою миші на першій кнопці вікно повинно збільшити свої розміри та змінити колір фону на сливовий. Також повинний змінитись заголовок вікна з "Вікно" на "Вікно зі змінами". Після подвійного клацання на другій кнопці у вікні повинен з’явитися напис вислову Леонарда да Вінчі: "Будь-яка перешкода долається наполегливістю." Напис подати у двох рядках із вказанням автора Хід виконання 1. Відкрийте середовище розробки програмного забезпечення IDLE та створіть новий файл. 2. Підключіть модуль tkinter. 3. Створіть вікно. 4. Надайте створеному вікну заголовок "Вікно". 5. Задайте створеному вікну розміри 800х600. 6. Встановіть жовтий колір тла створеного вікна. 7. Створіть кнопку “Зміни вікно”. 8. Створіть кнопку “Вислів”. Розташуйте її під кнопкою “Зміни вікно”. 9. Створіть у вікні "Вікно" мітку "lab1", розташуйте її під кнопкою “Вислів”. 10. Створіть першу функцію яка: а) збільшить розміри вікна на 150 точок у ширину та висоту; б) встановить сливовий (plum) колір фону вікна;plum) колір фону вікна;) колір фону вікна; в) змінить заголовок вікна на "Вікно зі змінами". 11. Створіть другу функцію, яка виведе напис червоного кольору (plum) колір фону вікна;шрифт Arial 14 пт): "Будь-яка перешкода долається наполегливістю" Леонардо да Вінчі 12. Методом bind створіть подію з викликом першої функції.Button-1> з викликом першої функції. 13. Методом bind створіть подію з викликом першої функції.Double-Button-1> з викликом другої функції. 14. Виконайте проект та перегляньте результат. При необхідності відредагуйте текст програми
Ответы
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида
//PascalABC.Net
function NOD(A, B: integer): integer;
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
procedure pNOD(A, B: integer; var NOD: integer);
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
begin
var a: Array of integer := (16, 32, 40, 64, 80, 128);
var n := a[low(a)];
for var i := low(a) to high(a) do
pNOD(n, a[i], n);
Writeln(n);
end.
Для нахождения нода используется алгоритм Эвклида
//PascalABC.Net
function NOD(A, B: integer): integer;
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
procedure pNOD(A, B: integer; var NOD: integer);
begin
while A <> B do
if A > B then A := A - B else B := B - A;
NOD := A;
end;
begin
var a: Array of integer := (16, 32, 40, 64, 80, 128);
var n := a[low(a)];
for var i := low(a) to high(a) do
pNOD(n, a[i], n);
Writeln(n);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сделать в паскале через while
Автор: Shalito
Перевести 5120.0 (10 системы счисления) в формат половинной точности
Автор: orbbsvsupply
Краткий конспект(страниц 1-2 тетрадных) на тему Робототехника.
Автор: katdavidova91
Сколько иероглифов в египетском письме?
Автор: nadnuriewa8110
нужна Нужно написать в паскале
Автор: xalina85
эту информатику я вообще не понимаю
Автор: korolev-comitet8825
[0, 0, "a", 1]
[1, 1, "b", 2]
[1, 2, "bb", 3]
[2, 2, "b", 4]
[0, 3, "abba", 5]
[3, 3, "a", 6]
[3, 4, "aa", 7]
[4, 4, "a", 8]
[3, 5, "aaa", 9]
[4, 5, "aa", 10]
[5, 5, "a", 11]
[3, 6, "", 12]
[4, 6, "aaa", 13]
[5, 6, "aa", 14]
[6, 6, "a", 15]
[2, 7, "bb", 16]
[7, 7, "b", 17]
[6, 8, "aba", 18]
[8, 8, "a", 19]
[7, 9, "bab", 20]
[9, 9, "b", 21]
#код программы Ruby 22
s = "abbbab"
n = 0
for r in 0..s.size-1
for l in 0..r
t = s[l..r]
if t.reverse == t
n += 1
p [l,r,t,n]
end
end
end