С клавиатуры вводятся 2 числа. Четные необходимо - вопрос №211172638 от Kally2007 24.01.2020 15:47

Question

Информатика: С клавиатуры вводятся 2 числа. Четные необходимо возвестив квадрат, а нечетные удвоить.на языке pascal написать программуProgram z1;Var x,y:integer;Begin___readln___(x);Y:=x div___2__;If y 0 then writeln(‘трехзначное’) else writeln(‘двузначное’);end. правильно ли составлена программа?

Kally2007 · Answer

Заданная уравнением прямая всегда будет гипотенузой прямоугольного треугольника, а его прямой угол всегда будет лежать в точке пересечения осей координат. Таким образом, размещение гипотенузы всегда будет определять четверть, в которой находится треугольник.
Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными.
$y=ax+b \\ y_1=ax_1+b; \ y_1=0 \to x_1=- \frac{b}{a} \\ y_2=ax_2+b; \ x_2=0 \to y_2=b$
Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
$n=\begin {cases} 1, \ a<0, \, b0 \\ 2, \ a0, \, b0 \\ 3, \ a<0, \, b<0 \\ 4, \ a0, \, b<0 \end {cases}$

var
a, b: integer;
f: Text;

begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, a, b);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
if a < 0 then
if b < 0 then Writeln(f, '3') else Writeln(f, '1')
else
if b < 0 then Writeln(f, '4') else Writeln(f, '2');
Close(f)
end.