Представим 135 по основанию х в расширенной записи.
1·x²+3·x+5 = 59
x²+3x-54=0
D=3²-4·1·(-54)=9+216=225; √225=15
x₁=(-3-15)/2 < 0 не подходит
x₂=(-3+15)/2=6
Проверка 6²+3·6+5=36+18+5=59
{ Если в Вашей версии система "ругается" на sign, раскомментируйте
текст определения этой функции. В противном случае удалите все комментарии }
{
function sign(x:real):integer;
begin
if x<0 then sign:=-1
else
if x>0 then sign:=1 else sign:=0
end;
}
var
x1,x2,y1,y2:real;
begin;
Write('Введите через пробел координаты точки 1: ');
Read(x1,y1);
Write('Введите через пробел координаты точки 2: ');
Read(x2,y2);
if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))
then Writeln('Точки находятся в одной четверти')
else Writeln('Точки находятся в разных четвертях')
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел координаты точки 1: -3.5 8.1
Введите через пробел координаты точки 2: -5 4
Точки находятся в одной четверти
А) .txt - обыкновенный текстовый формат. Является.
B) .odt - текстовый документ программы OpenOffice. Является.
C) .rtf - формат обмена документами Above и Microsoft. Является.
Методом исключения выбираем ответ : D).
<span>алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон</span>
<span>это значит что пользователю будут показывать картинку, и качество картинки зависит от пожеланий пользователя и возможностей оборудования, т.е. если у вас 14' ega то при всем вашем желании он 1960*1280 показывать не будет, а вот между 640*480 и 800*600 можно будет выбрать.</span>