М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
fastas32
fastas32
20.04.2021 14:15 •  Информатика

Составить программу для решения следующей : катя от дома по направлению на запад некоторое расстояние (в м). затем повернула на север и еще определенное расстояние. на каком расстоянии (в метрах) от дома оказалась девочка?

👇
Ответ:
578fyvhjj
578fyvhjj
20.04.2021
Var
x,y:real;
begin
Writeln('Введите растояние, которое девочка по направлению на Запад');
Readln(x);
Writeln('Введите растояние, которое девочка по направлению на Восток');
Readln(y);
Writeln('Каья находится на растоянии ',sqrt(sqr(x)+sqr(y)), ' км от дома');
end.
4,6(87 оценок)
Открыть все ответы
Ответ:
ирок511
ирок511
20.04.2021

1.
1)    219[10]  > 21[10]

2)    25[10] < 71[10]

Объяснение:

[10] - десятичная система

2.
ответ:

а) 211212 б) 201212

Объяснение:

Т.к. это двоичная система, то полный десяток это 2. То есть:

1 + 1 = 2

1 + 2 = 11

2 + 2 = 12

а) 101012

  10112
 211212

б) 100012

101112

201212

3.
ответ: 1011001_(2)

Объяснение:

Было бы неплохо, конечно, еще указать в каком из четырех обратных кодов это надо представить, но ладно. Разберем случай первого обратного кода:

1) отбросить знак минус (-38) => 38

2) перевести в двоичный код: 38_(10) = 100110_(2)

3) инвертировать все биты: 100110_(2) => 011001_(2)

4) приписать слева единицу, как знак отрицательного числа: 011001_(2) => 1011001_(2)

4,4(29 оценок)
Ответ:
ПНШосннс
ПНШосннс
20.04.2021
Твой код не проверял. Недавно кому-то делал на Delphi. Переделал на Pascal. 

Приложил картинкой, если запутаешься. Если что-то не так работает, я поправлю.

//Pascal
var
  a, b, c, d, x1, x2: real;
begin
  write('Введите a = '); readln(a);
  write('Введите b = '); readln(b);
  write('Введите c = '); readln(c);
  if ((a = 0) and (b = 0) and (c = 0)) then
    writeln('X любое')
  else
  if a <> 0 then
  begin
       d := sqr(b) - 4 * a * c;
       if (d > 0) then
       begin
            x1 := (-b+sqrt(d))/(2*a);
            x2 := (-b-sqrt(d))/(2*a);
            writeln('x1 = ', x1);
            writeln('x2 = ', x2);
       end
       else
       if d = 0 then
       begin
            x1:=-b/(2*a);
            x2:=x1;
            writeln('x1 = ', x1);
            //writeln('x2 = ', x2);
       end
       else
       if d < 0 then
          writeln('Корней нет.');
  end
  else
  if (a = 0) and (b = 0) then
    writeln('Решений нет.')
  else
  if (a = 0) then
  begin
    x1 := (-c)/b;
    writeln('x = ', x1);
  end;
end.

Кто разбирается в паскале? отредактируйте . к слову это квадратное уравнение вида ax^{2}+bx+c progra
4,5(36 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ