Форум программистов, компьютерный форум CyberForum.ru

Перевести с pascal на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Кусовая на С++ "Системы управления движением космических аппаратов" http://www.cyberforum.ru/cpp-beginners/thread1162568.html
Дорогие товарищи программисты подскажите как запрограммировать эту курсовую а то я и так и эдак пытаюсь и даже не знаю с чего начать. Файл прикреплен
C++ Подсчитать сумму элементов, кратных 9 Подсчитать сумму элементов, кратных 9 http://www.cyberforum.ru/cpp-beginners/thread1162562.html
C++ Запись в конец файла
Создать текстовый файл message.txt (например в редакторе «Блокнот»), содержащий текстовое сообщение, состоящее из нескольких строк текста. Необходимо программно обратиться к существующему файлу и выполнить следующие задания: • в конец файла message.txt добавить следующую информацию: размер файла в байтах, количество строк в файле, количество символов в файле, номер самой длинной строки, самую...
Указать параметром шаблона статическую матрицу C++
int matrix; List<int**> list; list << matrix; no match <int**> and <int(*)> Как правильно указать параметр шаблона тогда?
C++ Прием MPI_Bcast http://www.cyberforum.ru/cpp-beginners/thread1162468.html
При передаче сообщений с помощью функции MPI_Send, принять процессом-получателем можно с помощью функции MPI_Recv, а как принимать сообщения, отправленные MPI_Bcast?
C++ Написать три функции, которые будут вызываться из функции main() Доброго времени суток... уважаемые форумчане может кто поможет с моей бедой. а беда вроде проста но мне она не понятна... а вот и сама беда Во всех вариантах необходимо написать три функции, которые будут вызываться из функции main(). Первая функция получает размерность массива, создает динамический массив и возвращает указатель на начало созданного массива. Вторая – получает адрес массива и... подробнее

Показать сообщение отдельно
Маратбек
0 / 0 / 0
Регистрация: 29.04.2014
Сообщений: 1
30.04.2014, 14:02     Перевести с pascal на C++
СРОЧНО!!! ПОЖАЛУЙСТА!!!! Пусть имеется родительский объектный тип «выпуклый четырехугольник» (поля типа «координаты вершин, заданные в порядке их обхода») и типы, им порожденные: параллелограмм, ромб, квадрат

Описать для указанных фигур методы «вычисление углов» (в градусах), «вычисление диагоналей», «вычисление длин сторон», «вычисление периметра», «вычисление площади».
Type BaseType=Double;


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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
FourAngle=Object
x1,y1,x2,y2,x3,y3,x4,y4,
A, B,C, D,D1,D2,
Alpha, Beta, Gamma, Delta,
P, S: BaseType;
Procedure Init;
Procedure Storony;
Procedure Diagonali;
Procedure Angles;
Procedure Perimetr;
Procedure Ploshad;
Procedure PrintElements;
End;
Parall=Object(FourAngie)
Procedure Storony;
Procedure Perimetr;
Procedure Ploshad;
End;
Romb=0bject(Parall)
Procedure Storony;
Procedure Perimetr;
End;
Kvadrat=0bject(Romb)
Procedure Angles;
Procedure Ploshad;
End;
Procedure FourAngie. Init;
Begin
Write ('Введите координаты вершин заданного четырехугольника:');
ReadLn(x1, y1, х2, у2, х3, у3, х4, у4);
End;
Procedure FourAngie. Storony;
Begin A:=Sqrt(Sqr(x2-xl)+Sqr(y2-yl));
B:=Sqrt(Sqr(x3-x2)+Sqr(y3-y2));
C:=Sqrt(Sqr(x4-x3)+Sqr(y4-y3));
D:=Sqrt(Sqr(x4-xl)+Sqr(y4-yl));
End;
Procedure FourAngle. Diagonali;
Begin
Dl:=Sqrt(Sqr(xl-x3)+Sqr(yl-y3));
D2:=Sqrt(Sqr(x2-x4)+Sqr(y2-y4));
End;
Procedure FourAngle. Angles;
Function Ugol(Aa, Bb, Cc: BaseType):
BaseType;
Var VspCos, VspSin: BaseType;
Begin
VspCos:=(Sqr(Aa)+Sqr(Bb)-Sqr(Cc))/(2*Aa*Bb);
VspSin:=Sqrt(1-Sqr(VspCos));
If Abs(VspCos)>le-7
Then Ugol:=(ArcTan(VspSin/VspCos) +Pi*Ord(VspCos<0))/Pi*180
Else Ugol:=90
End;
Begin Alpha:=Ugol(D, A,D2);Beta:=Ugol(A, B,Dl);Gamina:=Ugol(B, C,D2); Delta: =Ugol (C, D, Dl);
End;
Procedure FourAngle. Perimetr;
Begin P:=A+B+C+D End;
Procedure FourAngle. Ploshad;
Var Peri, Per2: BaseType;
Begin Perl:=(A+D+D2)/2; Per2:=(B+C+D1)/2;
S:=Sqrt(Perl*(Perl-A)*(Perl-D)*(Perl-D2)) + Sqrt(Per2*(Per2-B)*(Per2-C)*(Per2-Dl))
End;
Procedure FourAngle. PrintElements;
Begin
WriteLn('Стороны:',A:10:6,В:10:6,С:10:6,D:10:6,'Углы:',Alpha:10:4,Beta:10:4,Gamma:10:4,Delta:10:4,'Периметр:',Р:10:6,'Площадь:',S:10:6,'Диагонали:', D1:10:6,D2:10:6)
End;
Procedure Parall. Storony;
Begin A:=Sqrt(Sqr(x2-xl)+Sqr(y2-yl));
B:=Sqrt(Sqr(x3-x2)+Sqr(y3-y2)) ;
C:=A; D:=B
End;
Procedure Parall. Perimetr;
Begin P:=2*(A+B) End;
Procedure Parall. Ploshad;
Var Per: BaseType;
Begin Per:=(A+D+D2)/2;
S:=2*Sqrt(Per*(Per-A)*(Per-D)*(Per-D2))
End ;
Procedure Romb. Storony;
Begin
A:=Sqrt(Sqr(x2-xl)+Sqr(y2-yl));
B:=A; C:=A; D:=A
End;
Procedure Romb. Perimetr ;
Begin P:=2*A End;
Procedure Kvadrat. Angles;
Begin Alpha:=90; Beta:=90; Gamma:=90; Delta:=90;
End;
Procedure Kvadrat. Ploshad;
Begin S:=Sqr(A)
End;
{Основная программа}
Var obj: Kvadrat ;
Begin
obj. Init;
obj. Storony;
obj. Diagonali;
obj. Angles;
obj. Perimetr;
obj. Ploshad;
obj. PrintElements
End.
Если можно хоть половину !!!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru