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

построить логическую схему для логической функции


построить логическую схему для логической функции

👇
Ответ:

Есть вопросы по решению?


построить логическую схему для логической функции
4,5(51 оценок)
Открыть все ответы
Ответ:
evgeniykorotkov
evgeniykorotkov
03.04.2020
Var
 X1,Y1,X2,Y2,X3,Y3:real;
 A,B,C:real;

Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.
4,7(18 оценок)
Ответ:
марина1916
марина1916
03.04.2020
0.сказать: "введите мне сколько нибудь (или 3) чисел"
1. прочитать число В.
2. присвоить: минимальное_число = В
3.прочитать следующее число С
4. сравнить: если С<минимальное_число то мин_число = С, иначе дальше
5.прочитать следующее число D
6. сравнить, если D<минимальное_число то мин_число = D, иначе дльше
//копипаста это плооохо, только что где то в мире умер котенок =_(((
// поэтому на шагах 5. и 6. надо еще плакать
//тут бы нужен циклик но его рисовать надоть через блок схему а мне влом
// могу лучше прогу написать на питоне))) но тебе это наверняка не надо))
7. попытаться прочитать следующее число и понять что они закончились((
8. вывести минимальное_число
//как-то так)))
4,5(88 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ