Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
stratocasterr34
10.01.2020
?>
Нужно решить 20 вариант, выполнить все задания.
Информатика
Ответить
Ответы
len22
10.01.2020
Проверка существования треугольников не выполняется.
1)
var
x1,y1,x2,y2,x3,y3,x4,y4:real;
sq1,sq2,sq3,sq4,max:real;
procedure s(a1,b1,a2,b2,a3,b3:real;var sq:real);
var s1,s2,s3,p:real;
begin
s1:=sqrt((a2-a1)*(a2-a1)+(b2-b1)*(b2-b1));
s2:=sqrt((a3-a1)*(a3-a1)+(b3-b1)*(b3-b1));
s3:=sqrt((a3-a2)*(a3-a2)+(b3-b2)*(b3-b2));
p:=(s1+s2+s3)/2;
sq:=sqrt(p*(p-s1)*(p-s2)*(p-s3));
end;
begin
write('x1,y1: '); readln(x1,y1);
write('x2,y2: '); readln(x2,y2);
write('x3,y3: '); readln(x3,y3);
write('x4,y4: '); readln(x4,y4);
s(x1,y1,x2,y2,x3,y3,sq1);
s(x1,y1,x3,y3,x4,y4,sq2);
s(x1,y1,x2,y2,x4,y4,sq3);
s(x2,y2,x3,y3,x4,y4,sq4);
writeln('sq1 = ',sq1:5:2,' sq2 = ',sq2:5:2,' sq3 = ',sq3:5:2,' sq4 = ',sq4:5:2);
if sq1>sq2 then max:=sq1 else max:=sq2;
if sq3>max then max:=sq3;
if sq4>max then max:=sq4;
writeln('max = ',max:5:2);
end.
2)
var
x1,y1,x2,y2,x3,y3,x4,y4:real;
sq1,sq2,sq3,sq4,max:real;
function s(a1,b1,a2,b2,a3,b3:real):real;
var s1,s2,s3,p:real;
begin
s1:=sqrt((a2-a1)*(a2-a1)+(b2-b1)*(b2-b1));
s2:=sqrt((a3-a1)*(a3-a1)+(b3-b1)*(b3-b1));
s3:=sqrt((a3-a2)*(a3-a2)+(b3-b2)*(b3-b2));
p:=(s1+s2+s3)/2;
s:=sqrt(p*(p-s1)*(p-s2)*(p-s3));
end;
begin
write('x1,y1: '); readln(x1,y1);
write('x2,y2: '); readln(x2,y2);
write('x3,y3: '); readln(x3,y3);
write('x4,y4: ');
readln(x4,y4);
sq1:=s(x1,y1,x2,y2,x3,y3);
sq2:=s(x1,y1,x3,y3,x4,y4);
sq3:=s(x1,y1,x2,y2,x4,y4);
sq4:=s(x2,y2,x3,y3,x4,y4);
writeln('sq1 = ',sq1:5:2,' sq2 = ',sq2:5:2,' sq3 = ',sq3:5:2,' sq4 = ',sq4:5:2);
if sq1>sq2 then max:=sq1 else max:=sq2;
if sq3>max then max:=sq3;
if sq4>max then max:=sq4;
writeln('max = ',max:5:2);
end.
Пример:
x1,y1: -5 1
x2,y2: -3 4
x3,y3: -1 2
x4,y4: -1 0
sq1 = 5.00 sq2 = 4.00 sq3 = 7.00 sq4 = 2.00
max = 7
Мирзоев Денис
10.01.2020
#include <iostream>
using namespace std;
int main() {
cout << "Введите два числа: ";
double n1,n2;
cin >> n1 >> n2;
cout << "Введите знак операции: ";
char op;
cin >> op;
switch(op) {
case '+':
cout << n1+n2 << endl;
break;
case '-':
cout << n1-n2 << endl;
break;
case '*':
cout << n1*n2 << endl;
break;
case '/':
cout << n1/n2 << endl;
break;
default:
cout << "wrong operation" << endl;
break; }
return 0;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Нужно решить 20 вариант, выполнить все задания.
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
Өтінемін информатикадан көмектесіңізші !
Автор: k075ko8
очень Издательские системы – это... *профессиональные программные средства, предназначенные для подготовки буклетов, брошюр, газет, журналов и книг.текстовые редакторы, предназначенные для создан...
Автор: volkovaoksana19806037
С РОБОТОМ! ( ПРИМЕР ЕСТЬ ) Напишите цикл с ветвлением ( нц-пока-кц и если-то-все)Задача: закрасить 2 дырки сверху и 2 снизуВЕТВЛЕНИЕ С ЦИКЛОМ ДОЛЖНО БЫТЬ ОДНО, одно и тоже слово не должны быть друг з...
Автор: udalova-yelena
Вывести на экран произведение нечетных однозначных чисел
Автор: nunabat457
Логикалык функциялардын қызметі қандай
Автор: skryabinamaria
Разгадайте ребус, это из теста по информатике, 7 класс
Автор: jardi
Визначити найменший елемент кожного парного рядка матриці. Знайти найбільший і найменший елемент прямокутної матриці A (m⨯n Поміняти їх місцями. Надрукувати змінену матрицю. Визначити номери рядків ма...
Автор: ti2107
Даны действительные числа a, b, c. найдите все решения квадратного уравнения ax2 + bx + c = 0.входные данныеданы три действительных числа, a не равно 0.выходные данныевыведите два действительных чи...
Автор: atamanov5
Сколько места надо выделить для хранения 17 страниц книги если на каждой странице помещаются 34 строки по 63 символа в каждой
Автор: Plamia7917
Какое число будет выведено на экран: Writeln ( - 50 mod 5) ? –50 0; – 10; 10.
Автор: Рафаэль633
Напишите код Блок-Схемы на языке программирования Python
Автор: rinat
составить алгоритм , , как я провел летние каникулы, , для 2 класса.
Автор: ОвчинниковаТатьяна
Сканируется цветное изображение размером 48, 26×48, 26 см. разрешающая сканера — 600×1200 dpi, глубина цвета — 32 бита. какой информационный объём будет иметь полученный графический файл? ответ в ба...
Автор: minasov19
При обработке цепочки из нулей и единиц 10100110 был применен следующий алгоритм: если первый элемент цепочки единица, то переносим ее на третью с конца позицию, а если первый элемент цепочки нуль, ...
Автор: борисовна Елена78
Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO» Программа получает на вход натур...
Автор: nngudkova1970
▲
1)
var
x1,y1,x2,y2,x3,y3,x4,y4:real;
sq1,sq2,sq3,sq4,max:real;
procedure s(a1,b1,a2,b2,a3,b3:real;var sq:real);
var s1,s2,s3,p:real;
begin
s1:=sqrt((a2-a1)*(a2-a1)+(b2-b1)*(b2-b1));
s2:=sqrt((a3-a1)*(a3-a1)+(b3-b1)*(b3-b1));
s3:=sqrt((a3-a2)*(a3-a2)+(b3-b2)*(b3-b2));
p:=(s1+s2+s3)/2;
sq:=sqrt(p*(p-s1)*(p-s2)*(p-s3));
end;
begin
write('x1,y1: '); readln(x1,y1);
write('x2,y2: '); readln(x2,y2);
write('x3,y3: '); readln(x3,y3);
write('x4,y4: '); readln(x4,y4);
s(x1,y1,x2,y2,x3,y3,sq1);
s(x1,y1,x3,y3,x4,y4,sq2);
s(x1,y1,x2,y2,x4,y4,sq3);
s(x2,y2,x3,y3,x4,y4,sq4);
writeln('sq1 = ',sq1:5:2,' sq2 = ',sq2:5:2,' sq3 = ',sq3:5:2,' sq4 = ',sq4:5:2);
if sq1>sq2 then max:=sq1 else max:=sq2;
if sq3>max then max:=sq3;
if sq4>max then max:=sq4;
writeln('max = ',max:5:2);
end.
2)
var
x1,y1,x2,y2,x3,y3,x4,y4:real;
sq1,sq2,sq3,sq4,max:real;
function s(a1,b1,a2,b2,a3,b3:real):real;
var s1,s2,s3,p:real;
begin
s1:=sqrt((a2-a1)*(a2-a1)+(b2-b1)*(b2-b1));
s2:=sqrt((a3-a1)*(a3-a1)+(b3-b1)*(b3-b1));
s3:=sqrt((a3-a2)*(a3-a2)+(b3-b2)*(b3-b2));
p:=(s1+s2+s3)/2;
s:=sqrt(p*(p-s1)*(p-s2)*(p-s3));
end;
begin
write('x1,y1: '); readln(x1,y1);
write('x2,y2: '); readln(x2,y2);
write('x3,y3: '); readln(x3,y3);
write('x4,y4: ');
readln(x4,y4);
sq1:=s(x1,y1,x2,y2,x3,y3);
sq2:=s(x1,y1,x3,y3,x4,y4);
sq3:=s(x1,y1,x2,y2,x4,y4);
sq4:=s(x2,y2,x3,y3,x4,y4);
writeln('sq1 = ',sq1:5:2,' sq2 = ',sq2:5:2,' sq3 = ',sq3:5:2,' sq4 = ',sq4:5:2);
if sq1>sq2 then max:=sq1 else max:=sq2;
if sq3>max then max:=sq3;
if sq4>max then max:=sq4;
writeln('max = ',max:5:2);
end.
Пример:
x1,y1: -5 1
x2,y2: -3 4
x3,y3: -1 2
x4,y4: -1 0
sq1 = 5.00 sq2 = 4.00 sq3 = 7.00 sq4 = 2.00
max = 7