Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
darasnezko297
30.11.2022 04:10 •
Информатика
Напишите программу:
переставить элементы массива в обратном порядке (выполнить реверс). на языке паскаля
👇
Увидеть ответ
Открыть все ответы
Ответ:
Clains
30.11.2022
Проверка существования треугольников не выполняется.
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 оценок)
Ответ:
рябиночка17
30.11.2022
#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 оценок)
Это интересно:
В
Взаимоотношения
29.10.2021
Как отказаться от мысли об измене партнеру...
К
Компьютеры-и-электроника
04.10.2022
Как удалить старые сообщения в WhatsApp...
В
Взаимоотношения
13.03.2020
Избегайте обидных фраз во время ссор между супругами: советы психологов...
К
Компьютеры-и-электроника
01.09.2020
Как подключиться к прокси–серверу: шаг за шагом руководство?...
К
Компьютеры-и-электроника
11.11.2020
Легкий способ - как скопировать музыку с CD в формате MP3...
К
Компьютеры-и-электроника
17.06.2022
Как установить TortoiseSVN и произвести свои первые изменения в репозитарии...
К
Компьютеры-и-электроника
19.09.2020
Как распечатать Google Календарь...
П
Путешествия
23.11.2022
Как безопасно путешествовать по Южной Африке...
К
Компьютеры-и-электроника
12.03.2021
Как подготовить кабель Ethernet и объединить два ноутбука в сеть...
К
Компьютеры-и-электроника
04.11.2021
Как создавать QR‐коды с помощью Android...
Новые ответы от MOGZ: Информатика
саидолим
02.12.2020
Даны два числа а,в . напишите условие сравнения значений переменных а,в. если число больше ,то вывести его на печать...
artemmaslov25Artem
02.12.2020
Моделирование называется объект имеюшей...
botovaov
21.04.2021
Написать программу, которая запрашивает массив из n элементов, а затем делит все элементы массива на минимальный элемент. протестировать программу на пассивах размерностью...
новичок579
22.12.2021
Вкаких областях применяют промышленных роботов, компьютерную диагностику и автоматизированные системы...
liana144
06.03.2022
Как называется вид информации которой ты прикосаешся по информатике...
Фидачина
30.08.2021
1мбайт = сколько кбайт = сколько байт 1 гбайт=сколько мбайт=сколько кбайт 2 тбайт=сколько гбайт= сколько мбайт ...
kuku2s
02.11.2021
Написать программу решения линейного уравнения y=ax+b...
gladiolys2003
21.12.2020
Почему в одном байте 8 бит? (написать кратко, и четко сформулировано)...
whitepanda1
15.08.2022
Какую структуру имеет алгоритм в системе без обратной связи ?...
Ayei
17.04.2021
Если в сложном высказывании, состоящем из двух простых высказываний, между которыми стоит или , и если они оба истинны, сложное высказ. считается истинным? меня смущает...
MOGZ ответил
Задание 3. Соотнеси государство и название сословно-представительного...
Суретші болғым келеді шағын шығарма...
Работа с файлами. Урок 2 Выбери код для закрытия следующего файла:...
Предотвратить заражение человека аскаридой можно если: 1. 2. 3....
Задание №1 1) 169-х^2=0 стельность.Решите уравнение и составьте...
9.3.5.1 8 What do you think happens next in the story? Discuss in...
бабушку он ещё не отыскал и спустился косогору к тёмно-синей реке...
2задание Заполните таблицу последствия монгольских завоеваний. |Этноантропологические|...
1 2 3 I d like to recommend a film that I watched recently called...
Дві задачи на додавання сил...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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