отрезок
x1, y1,x2,y2 = map(int, input().split())
def nod(a, b):
--if b > 0:
return nod(b, a%b)
--else:
return a
a = abs(x1 - x2)
b = abs(y1 - y2)
d = nod(a, b)
print(d * (a//d + b//d - 1))
уравнение
def gcd(a, b):
while a != 0 and b != 0:
if a < b:
b = b % a
else:
a = a % b
return a + b
def qwer(a, b):
x = 1
x1 = 0
y = 0
y1 = 1
while b != 0:
q = a // b
r = a % b
x2 = x - q * x1
y2 = y - q * y1
a, b = b, r
x, x1 = x1, x2
y, y1 = y1, y2
return str(a), str(x), str(y)
a, b, c = list(map(int, input().split()))
x, y = 0, 0
gcds = 0
if c % gcd(a, b) != 0:
print('-1')
else:
gcds, x, y = map(int, qwer(a, b))
x *= c // gcds
y *= c // gcds
q = x // (b // gcds)
x %= b // gcds
y += a // gcds * q
print(x, y)
Форма — це звичайне вікно. Тому його розмір можна змінити точно так, як і розмір будь-якого іншого вікна, тобто захопленням і переміщенням (за до миші) межі. Після закінчення переміщення меж автоматично зміняться значення властивостей Height і Width.
Основні властивості
Name
(внизу пояснення до властивостей)
Ім'я компонента. Використовується в програмі для доступу до компоненту і його властивостей..
Caption
Текст на кнопці.
Left
Відстань від лівої межі кнопки до лівої межі форми.
Top
Відстань від верхньої межі кнопки до верхньої межі форми.
Width, Height
Ширина, висота кнопки
Заданный вопрос - отличная иллюстрация к написанному выше. Алгоритма нет, поскольку, что автор вопроса не понимает о чем идет речь, но зато он спрашивает, как выполнить кодирование на язык Паскаль. Вполне понятно, что автор самостоятельно этого сделать не может.
Вернемся к заданию. Насколько его можно попытаться понять, речь идет о кусочной функции.
Кусочная функция содержит условия, определяющие её части на различных интервалах. Поскольку в условиях есть операции сравнения, в Паскале понадобится условный оператор if - then - else, причем не один.
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var s:real;
if x<0 then s:=x*x else
if x=0 then s:=5
else s:=x-12;
Writeln(s)
end.