logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Str1x0
Str1x0
24.05.2020 23:46 •  Информатика

1. Составить алгоритми программу вычисления диагонали квадрата, если задана длина его стороны А. (D=A•√2)
информатика 5класс​

👇
Увидеть ответ
Открыть все ответы
Ответ:
рябиночка17
#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;
}
4,8(26 оценок)
Ответ:
Clains
Clains
24.05.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
4,7(54 оценок)
Это интересно:
К
11 способов, как экономить ресурсы в игре Clash of Clans...
К
Как заготовить розмарин: собираем и храним ароматные травы впрок...
П
8 советов о том, как купить подарки на Рождество, если у вас немного денег...
К
Как отправить код с помощью Telegram...
З
Здоровье
28.09.2022
Как прекратить повторение вертиго: причины, симптомы и методы лечения...
И
Как прочесть все книги из списка литературы на лето...
Ф
5 шагов к идеальной планировке продажи выпечки...
К
Как копировать музыку, изображения и фильмы на свой компьютер с устройства iPhone...
С
Как выглядеть великолепно голым: советы от профессионалов...
С
Как распутать парик: лучшие советы от профессионалов...
Новые ответы от MOGZ: Информатика
Тэхен10
Тэхен10
24.04.2021
Наведіть приклади кодування повідомлень, які використовують в музиці, фізиці хімії, георгпфії...
mikhdina24
mikhdina24
21.04.2020
От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки морзе: --..-.- в радиограмма использовались только следующие буквы а .- г --....
Коля1741
Коля1741
26.07.2021
Информатика 9 класс, решите через libreoffice . формула =(-b2-(b2^2-4*b1*b3)^0,5)/(2*b1)​...
elkenakate1221
elkenakate1221
19.11.2021
в данное предложение вставьте пропущенные слова. «конфигурацию компьютера можно назвать и тогда, когда все возможности его процессора, памяти, видеокарты, шин для обмена информацией...
aitbek99
aitbek99
06.05.2021
Составить алгоритм конечное слово утро...
ЯнаКорягина
Определите за сколько часов басейн может быть наполнен через первую трубюу если через вторую он заполняется за 24 часа,а через первую и вторую вместе за 8 часов...
XWaeRr
XWaeRr
29.01.2022
Во можно ли утверждать что различия темпераментов между родителями и их детьми может быть причиной конфликтов​?...
viktoriakruminaВика
X²+8.5+2.4=0 указать сумму и произведение корней...
ArturGafiyatullin145
Знайдіть площу прямокутника зі стороною 5 м і діагоналлю 13 м 1.65 см² 2.68 см² 3.60 см²...
Rustam7887
Rustam7887
03.05.2023
Напишите 5 различных веществ,имеющих в своих составах атомы с 8 протонами....

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ