Форум программистов, компьютерный форум, киберфорум
Наши страницы

Перепишите пожалуйста на C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Реализовать через цикл for http://www.cyberforum.ru/cpp-beginners/thread972557.html
Дано вещественное число a, целое n. Вычислить: a (a-1) (a-2)...(a-n). Вот пишу, но цикл работает не верно... #include <iostream> #include <windows.h> #include <cmath> using namespace std; ...
C++ Даны положительные действительные числа a,b,c,d. Выяснить, можно ли один из прямоугольников целиком поместить внутри другого прямоугольника Прямоугольники. Даны положительные действительные числа a,b,c,d. Выяснить, можно ли один из прямоугольников целиком поместить внутри другого прямоугольника. Числа a , b определяют стороны первого... http://www.cyberforum.ru/cpp-beginners/thread972546.html
Написать программу выводящую на экран таблицу C++
значений функции Y= sin(X) на отрезке с шагом h. (аргумент функции sin(x) выражается в радианах , а не в привычных градусах 1r=57.296◦)
C++ В квадрат возводит,а в куб нет
# include <stdio.h> int k,T; int a; int main() { scanf("%d",&T); while(T--){
C++ Вывод массива через указатель http://www.cyberforum.ru/cpp-beginners/thread972536.html
Небольшой набросок, есть функция, вычисляющая значения произвольного выражения. Эти значения потом скидываются в массив. Хочу возвратить массив с записанными в него значениями на экран. Но вылетает...
C++ Реализация бинарного дерева классом Добрый вечер. Написал класс class TreeClass { int number; TreeClass *left, *right; public: void AddNode(int, TreeClass); void Print(TreeClass,int,char); void Del(TreeClass); } Tree;... подробнее

Показать сообщение отдельно
mazarinik
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 17

Перепишите пожалуйста на C++ - C++

08.10.2013, 23:25. Просмотров 460. Ответов 4
Метки (Все метки)

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
var r5,x1,y1,x2,y2,x3,y3,x4,y4:integer;
    l,n,r4,r3,r1,r2:integer;
begin
   x1:=200;y1:=200;
   x2:=200;y2:=50;
   x3:=50;y3:=50;
   r1:=Round(SQRt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)));
   r2:=Round(SQRt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)));
   r3:=Round(SQrt(r2*r2+r1*r1));
   if (x1-x2)>0 then
   l:=Round(arctan((y1-y2)/(x1-x2))*180/pi) else l:=90;
   // находим угол наклона сторны A
   for n:=0 to 4 do begin
     x4:=x2+Round(cos((45+l)*pi/180)*r3)*GetNt(n).a;
     y4:=y2+Round(sin((45+l)*pi/180)*r3)*GetNt(n).b;
     r4:=Round(SQRt((x3-x4)*(x3-x4)+(y3-y4)*(y3-y4)));
     r5:=Round(SQRt((x4-x1)*(x4-x1)+(y4-y1)*(y4-y1)));
     if (r4=r1) and (r5=r2) then begin
       Showmessage(inttostr(x4)+'  '+inttostr(y4));
       break;
     end;
   end;
   myDrawRect(x1,y1,x2,y2,x3,y3,x4,y4);
 
 
end;
Добавлено через 33 минуты
Пожалуйста очень нужно, умоляю просто
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.