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

Написать в vba, используя подпрограмму: дан массив а — массив обыкновенных дробей. отсортировать его в порядке возрастания.

👇
Увидеть ответ
Ответ:
Dovakin270
Dovakin270
09.05.2023
Во вложении - книга формата Excel-2003
4,7(22 оценок)
Открыть все ответы
Ответ:
рябиночка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
09.05.2023
Проверка существования треугольников не выполняется.
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 оценок)
Это интересно:
О
Клюква стоит 250 рублей за кг, а малина 200....
О
Решить систему уравнений x2 + y2 + xy = 3...
О
Решить систему уравнений x2 + xy +y2 = 13...
О
В треугольнике АВС проведена биссектриса АК...
О
Водитель ехал с постоянной скоростью из города А в город Б...
О
Первые 300 км автомобиль ехал со скоростью 60 км/час...
О
В треугольнике АВС точка D на стороне АВ...
О
Из разных городов, расстояние между которыми 600 км...
О
Из пункта А в пункт B, расстояние между которыми 84 км...
Х
Правила и техника игры в карточную игру Скорость...
Новые ответы от MOGZ: Информатика
ЯумамыМолодец666
Нужна ваша . необходимо написать программу в pascalabc и лучше с объяснениями. сам не понимаю. дано натуральное число. верно ли, что в данном числе нет данной цифры а (цифру а вводить...
аьвтчьвь
аьвтчьвь
01.06.2023
Речення зі словами втрачати - губити...
Iist
Iist
01.06.2023
Пож с инфой 1 найти ошибки в программе, реализующей вывод на экран элементов одномерного массива равных 0: program mas1; var a=array[1..10] integer; for k: =1 to 10 do if b[k] 0...
nastia110228
nastia110228
01.06.2023
Сиформатикой в системе pascal составить программу вывода на экран всех элементов массива, оканчивающихся нулем....
niketa777
niketa777
26.12.2022
Валфавите языка племени тумба-юмба 4 буквы: гласные о и а, согласные ш и щ. вероятности их появления в тексте: а - 0,35 о - 0,4 ш - 0,1 щ - 0,15 сколько битов информации несет сообщение...
сынок13
сынок13
26.12.2022
Можно ли пойти на программиста и незнать...
zuza81ozzhmr
zuza81ozzhmr
26.12.2022
Вчем разница между понятиями ребро и дуга ?...
Nastya26er
Nastya26er
15.05.2022
На бесконечном поле есть горизонтальной стена. Длина горизонтальной стены неизвестна. Робот находится в клетке, расположенной непосредственно под горизонтальной стеной у её левого...
Розочка18647
Розочка18647
18.03.2020
Составьте конспект по параграфу 18-20 7 класс письменно...
MrReizer
MrReizer
18.03.2020
Язык паскаль дан целочисленный двумерный массив, найти наименьший элемент и номер строки в которой он находится...

MOGZ ответил

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