0 / 0 / 0
Регистрация: 25.05.2019
Сообщений: 14
1

Динамические переменные

29.09.2019, 11:16. Показов 523. Ответов 2

Author24 — интернет-сервис помощи студентам
Дано три точки. Найти площадь и периметр получившегося треугольника.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var ax,ay,bx,by,cx,cy,a,b,c,p,s:^real;
begin
repeat
new(ax);new(ay);new(bx);new(by);new(cx);new(cy);
writeln('Введите координаты трех вершин треугольника:');
readln(ax^,ay^,bx^,by^,cx^,cy^);
new(a);new(b);new(c);
a^:=sqrt(sqr(bx^-cx^)+sqr(by^-cy^));
b^:=sqrt(sqr(ax^-cx^)+sqr(ay^-cy^));
c^:=sqrt(sqr(bx^-ax^)+sqr(by^-ay^));
if (a^>=b^+c^)or(b^>=a^+^c)or(c^>=a^+b^)
then writeln('Это не треугольник, повторите ввод');
until (a^<b^+c^)and(b^<a^+c^)and(c^<a^+b^);
new(p);new(s);
p^:=(a^+b^+c^)/2;
s^:=sqrt(p^*(p^-a^)*(p^-b^)*(p^-c^));
writeln('Площадь=',s^:0:2);
p^:=p^*2;
write('Периметр=',p^:0:2);
readln;
dispose(ax);dispose(ay);dispose(bx);dispose(by);dispose(cx);dispose(cy);dispose(a);dispose(b);dispose(c);dispose(p);dispose(s);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2019, 11:16
Ответы с готовыми решениями:

Динамические переменные
В дереве поиска определить количество узлов имеющих заданный уровень M.Помогите пожалуйста!

Найти функцию ln(2-3x) через динамические переменные
как бы вы написали. С помощью указателей? через процедуру new(?)?

Составить программу вычисления значения функции y=f(x) при данных значениях x, используя только динамические переменные
Прикрепляю в архиве теорию по которой объясняется как делать. Динамические переменные немного...

динамические переменные
1. Составить программу, которая вставляет в непустой список L, элементы которого упорядочены по...

2
257 / 149 / 70
Регистрация: 29.07.2018
Сообщений: 1,241
29.09.2019, 11:24 2
1uli, а при чем тут,собственно, динамические переменные?

Добавлено через 1 минуту
И зачем эти знаки?
Цитата Сообщение от 1uli Посмотреть сообщение
^
Видимо вы(или кто-то другой) хотел переписать с С++?

Добавлено через 4 минуты
1uli, Вот код,который написал Puporev
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  repeat
    writeln('Введите координаты трех вершин треугольника:');
    readln(ax, ay, bx, by, cx, cy);
    a := sqrt(sqr(bx - cx) + sqr(by - cy));
    b := sqrt(sqr(ax - cx) + sqr(ay - cy));
    c := sqrt(sqr(bx - ax) + sqr(by - ay));
    if (a >= b + c) or (b >= a + c) or (c >= a + b)
      then writeln('Это не треугольник, повторите ввод');
  until (a < b + c) and (b < a + c) and (c < a + b);
  p := (a + b + c) / 2;
  s := sqrt(p * (p - a) * (p - b) * (p - c));
  writeln('Площадь=', s:0:2);
  p := p * 2;
  write('Периметр=', p:0:2);
  readln
0
2323 / 1431 / 521
Регистрация: 07.04.2017
Сообщений: 4,738
29.09.2019, 11:24 3
Цитата Сообщение от Пс Посмотреть сообщение
И зачем эти знаки?
Это разъименование указателей. Все переменные зачем то указателями объявлены.
И нет, в C++ тоже есть указатели и локальные переменные. И локальные переменные тоже на много быстрее указателей работают.
А то что тут написано в заголовке - говнокод для любого языка.
0
29.09.2019, 11:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.09.2019, 11:24
Помогаю со студенческими работами здесь

динамические переменные
1. Дан файл f, компонентами которого являются вещественные числа. Записать в файле g наименьшое из...

динамические переменные...
Разработать программу перемножения двух матриц A и B размерности n*m. Обе матрицы размещаются в...

Динамические (или не динамические.) переменные!
УважаемыЕ! Есть вопрос. Вот код программы (ТЗ метод северо-западного угла) - под спойлером. А вот...

Динамические переменные
Как сделать так чтобы в результате этой процедуры на экран выводился номер записи, а не только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru