Для задания произвольной прямой на плоскости будем использовать
уравнение:
<span>A*x+B*y+C=0;
Тогда, зная коэффициенты (A, B, C) в уравнении прямой и координаты точки X, Y можно будет сделать вывод о расположении прямой и точки.
var a,b,c,x,y:real;
begin
writeln('Введите коэффициенты прямой a,b,c');
readln(a,b,c);
writeln ('Введите координаты точки x,y');
readln(x,y);
if (a*x+b*y+c)=0 then writeln ('Точка лежит на прямой')
else writeln ('Точка не лежит на прямой');
end.
Тест №1
Введите коэффициенты прямой a,b,c
2 4 -8
Введите координаты точки x,y
-4 4
Точка лежит на прямой
</span>
<span>Тест №2
Введите коэффициенты прямой a,b,c
2 4 -8
Введите координаты точки x,y
1 4
Точка не лежит на прямой
</span>
1 вариант:
var a: integer;
begin
write ('Введите длину ребра куба: '); read(a);
writeln ('Площадь грани куба = ',a*2);
end.
2 вариант:
var a: integer;
begin
a:=6; // Поменяйте значение на нужное
writeln ('Площадь грани куба = ',a*2);
end.
# Python 3.X
from random import randint
def randchar():
while True:
ret = randint(65, 123)
if not 90 < ret < 97:
return chr(ret)
s = input()
for c in s:
print(c, randchar(), randchar(), sep='', end='')
Program z1;
var f: array[1..14] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 14 do
begin
f[i]:=random(16,35);
writeln(f[i],' человек',' в',' ',i,' классе');
Sum:=Sum+f[I];
end;
writeln('----------------------');
writeln ('Всего человек:',sum);
writeln ('Нужно уроков:',14*2); // делим на 2 группы,т.к во всех классах >16 человек.
writeln ('Нужно часов:',(14*2)*0.75); // урок длится 3/4 часа (45 минут).
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c1:=ReadReal('Цена первой покупки:');
var c2:=ReadReal('Цена второй покупки:');
var c3:=ReadReal('Цена третьей покупки:');
var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
var p:=ReadReal('Внесена сумма:');
Writeln('Причитается сдача: ',p-s)
end.
<u>Пример</u>
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98