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

Напишите программу, которая вводит координаты двух точек на числовой оси и выводит расстояние между ними.(программа должна вывести одно число: расстояние между точками с тремя знаками в дробной части.) совсем не получается решить ,

👇
Ответ:
marmishenka
marmishenka
01.04.2020
Program rast;
var x, y, l: real;
begin
  writeln('введите две координаты');
  readln(x, y);
  l:=sqrt(sqr(x)+sqr(y));
  writeln('расстояние ', l:3:2);
end.
4,5(23 оценок)
Ответ:
Rentels
Rentels
01.04.2020
1.{1.Напишите программу, которая вводит два вещественных числа, x и y , и вычисляет значение x^y .(Нужно вывести одно значение – x^y – с тремя знаками в дробной части.)}
  var x,y,k:real;
begin
 readln(x,y);
 k:=exp(y*ln(x));
 writeln(k:3:3);
end.
4,6(85 оценок)
Открыть все ответы
Ответ:
timofei2018
timofei2018
01.04.2020

¬(X ∨ Y) ∧ (X ∧ ¬Y) = 0

Объяснение:

¬(X ∨ Y) ∧ (X ∧ ¬Y) = ¬X ∧ ¬Y ∧ (X ∧ ¬Y) = ¬X ∧ ¬Y ∧ (¬Y ∧ X) = ¬X ∧ (¬Y ∧ ¬Y) ∧ X = ¬X ∧ X ∧ (¬Y ∧ ¬Y) = (¬X ∧ X) ∧ (¬Y ∧ ¬Y) = 0 ∧ ¬Y = 0

Законы:

¬(A ∨ B) = ¬A ∧ ¬B - закон Де Моргана (общей инверсии для логического сложения)

A ∧ B = B ∧ A - переместительный (коммутативный) закон (для логического умножения)

A ∧ (B ∧ C) = (A ∧ B) ∧ C - сочетательный (ассоциативный) закон (для логического умножения)

A ∧ ¬A = 0 - закон исключённого третьего (для логического умножения)

A ∧ A = A - закон повторения (для логического умножения)

A ∧ 0 = 0 - закон операций с константой (для логического умножения)

4,7(79 оценок)
Ответ:
tigranpesoz3twi
tigranpesoz3twi
01.04.2020

Новые возможности, которые добавляют разработчики, позволяют вообще написать одну строчку:

Код (PascalABC.NET):

## ArrRandomInteger(13).Println.Average.Print;

## говорит о том, что компилятор добавит в начало и конец begin и end.

ArrRandomInteger(13) - функция, генерирующая массив из 13 случайных целых чисел

Println - метод расширения, выводящий элементы через пробел и в конце переходящий на новую строку

Average - метод, вычисляющий среднее значение

Print - вывод значения на экран

В стиле "старого" паскаля:

Код (PascalABC.NET):

var

 a: array[1..13] of integer;

 s, i: integer;

begin

 randomize;

 s := 0;

 for i := 1 to 13 do

 begin

   a[i] := random(100);

   write(a[i], ' ');

   s := s + a[i];

 end;

 writeln;

 write(s / 13);

end.

Пример вывода:

38 86 86 0 24 95 51 41 32 18 74 15 55  

47.3076923076923

4,4(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ