Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 10
1

Определить площадь треугольника, используя функцию, вычисляющую расстояние между двумя заданными точками.

30.03.2012, 06:07. Показов 3768. Ответов 2
Метки нет (Все метки)

1. Даны действительные числа a, b, c. Найти
z = g(a + b, c) + 4 ∗ g(a − b, 1.8), где g(x, y) = sin(x + y) + 5 ln(3 + y) + tg1/1 + x^2 .
Тест: При a = 1, b = 2, c = 3 результат будет z = 45, 2067.
2. Дан треугольник, вершины которого имеют координаты (x1, y1), (x2, y2), (x3, y3). Определить площадь треугольника, используя функцию, вычисляющую расстояние между двумя заданными точками.
3. Дано вещественное число a. Определить функцию для вычисления y = x^n и вычислить значение выражения (a^(-8))-(a-1)^3+3a^2�#33333333w^^^(степень вещественного^^^-(((((((--88числа снатура показателем (степень вещественного числа с натуральным показателем вычислять через умножение).
Тест: При a = 2 результат будет равен −14, 9961.
4. Написать программу нахождения наибольшего общего делителя (НОД) трех чисел, используя функцию нахождения НОД двух чисел.
5. Составить программу определения “близнецов” среди чисел n, n+1, ..., 2n, т.е. простых чисел, разность между которыми равна двум. Использовать функцию определения простого числа.
6. Два квадратных уравнения заданы коэффициентами a1, b1, c1, a2, b2 и c2. Определить, имеют ли уравнения вещественные корни, если да, то лежат ли оба корня первого уравнения между корнями второго.
7. Даны натуральное число n, вещественные массивы a[1..n], b[1..n]. В каждом из массивов все отрицательные элементы заменить на заданное число p.
8. Даны две вещественные квадратные матрицы порядка n. Применить к данным матрицам процедуру, печатающую элементы, равные максимальному, и их индексы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2012, 06:07
Ответы с готовыми решениями:

Вычисление расстояние между двумя точками заданными на плоскости
Составить программу вычисления расстояние между двумя точками заданными на плоскости их координатами

Вычислить площадь треугольника с использованием функции нахождения расстояния между двумя точками.
Треугольник задан своими координатами своих вершин. Вычислить площадь треугольника с использованием...

Определить наибольшее расстояние между двумя точками этого множества
Дано множество точек (n - количество, x и y координаты каждой точки). Определить наибольшее...

Расстояние между двумя точками
две точки заданы на плоскости своими координатами, которые могут быть как декартовыми, так и...

2
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.03.2012, 06:59 2
Лучший ответ Сообщение было отмечено Аина Собакина как решение

Решение

Цитата Сообщение от Аина Собакина Посмотреть сообщение
2. Дан треугольник, вершины которого имеют координаты (x1, y1), (x2, y2), (x3, y3). Определить площадь треугольника, используя функцию, вычисляющую расстояние между двумя заданными точками.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
var xa,ya,xb,yb,xc,yc: integer;
    ab,bc,ca,s: real;
 
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
Dlina:=d;
end;
 
function Square (a,b,c: real): real;
var sq: real;
begin
sq:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
Square:=sq;
end;
 
begin
writeln ('Координаты вершины A ');
readln (xa,ya);
writeln ('Координаты вершины B ');
readln (xb,yb);
writeln ('Координаты вершины C ');
readln (xc,yc);
ab:=Dlina(xa,ya,xb,yb);
bc:=Dlina(xb,yb,xc,yc);
ca:=Dlina(xc,yc,xa,ya);
s:=Square(ab,bc,ca);
write ('Площадь треугольника = ',s:7:2);
readkey
end.
0
Вирусоборец
7618 / 5087 / 845
Регистрация: 06.09.2009
Сообщений: 20,178
30.03.2012, 10:51 3
Цитата Сообщение от Аина Собакина Посмотреть сообщение
1. Даны действительные числа a, b, c. Найти
z = g(a + b, c) + 4 ∗ g(a − b, 1.8), где g(x, y) = sin(x + y) + 5 ln(3 + y) + tg1/1 + x^2
В условии ошибка ибо тест не проходит

Цитата Сообщение от Аина Собакина Посмотреть сообщение
4. Написать программу нахождения наибольшего общего делителя (НОД) трех чисел, используя функцию нахождения НОД двух чисел.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a, b, c, n: integer;
 
 function NOD(x, y: integer): integer;
 begin
  if (x=0) or (y=0)
   then NOD:= 1
   else
    begin
     while x<>y do
      if x>y
       then x:= x-y
       else y:= y-x;
     NOD:= x;
    end; 
 end;
 
begin
 write('Введите три неотрицательных числа: ');
 readln(a, b, c);
 n:= NOD(NOD(a, b), c);
 writeln('NOD(', a, ';', b, ';', c, ')= ', n);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2012, 10:51

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Определить функцию вычисления расстояния между двумя точками задаными своими координатами
Решите пожалуйста с обьяснениями(желательно) и как можно проще

Расстояние между двумя точками(тремя)
допустим у нас есть провод весь запутанный ( мы знаем расстояние от начала до середины и от...

Расстояние между двумя точками,блок-схема
Помогите нарисовать блок-схему: Program esep25; uses crt; var x1,x2,y1,y2,dl:real; procedure...

Программа вычисления расстояния между двумя точками с заданными координатами
Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.