<u><em>Задание 2.</em></u>
// PascalABC.Net 3.0, сборка 1064
function f(x,z:double):double;
begin
if (x>z) and (z>1) then Result:=(x-z)/(z-1)
else
if (x<=0) and (z<0) then Result:=2*x*z
else Result:=x+1
end;
<u><em>Задание 3.</em></u>
// PascalABC.Net 3.0, сборка 1064
var
a,b,c:real;
begin
Write('Введите длины сторон треугольника: '); Read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний, площадь ',a*a/4*sqrt(3))
else
if (a=b) or (a=c) or (b=c) then
Writeln('Треугольник равнобедренный, периметр ',a+b+c)
else
Write('Треугольник разносторонний, самая короткая сторона ',
min(a,min(b,c)))
end
end.
<u><em>Тестовые решения:</em></u>
Введите длины сторон треугольника: 5 3.7 6
Треугольник разносторонний, самая короткая сторона 3.7
Введите длины сторон треугольника: 4 6 4
Треугольник равнобедренный, периметр 14
Введите длины сторон треугольника: 5 5 5
Треугольник равносторонний, площадь 10.8253175473055
Стандартно отрицательные числа хранятся в памяти в дополнительном коде.
-3464 = -(2048 + 1024 + 256 + 128 + 8) = -(2^11 + 2^10 + 2^8 + 2^7 + 2^3) = 1|000 1101 1000 1000 (в прямом коде) = 1|111 0010 0111 0111 (в обратном коде) + 1 = 1|111 0010 0111 1000 (в дополнителтном коде)
Вроде всё сделал, но я не понял про закрашивание. Сервис не поддерживает файлы расширения .kum, поэтому я скину команды сюда.
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор (20,0)
сместиться на вектор (0,20)
сместиться на вектор (-20,0)
сместиться на вектор (0,-20)
поднять перо
сместиться на вектор (0,20)
опустить перо
сместиться на вектор (10,15)
сместиться на вектор (10,-15)
поднять перо
сместиться в точку (7,7)
опустить перо
сместиться на вектор (6,0)
сместиться на вектор (0,6)
сместиться на вектор (-6,0)
сместиться на вектор (0,-6)
поднять перо
кон
Так ты же уже цифры поставил