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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Relike
6 / 6 / 0
Регистрация: 24.04.2013
Сообщений: 260
#1

Перевод - C++

07.12.2013, 19:22. Просмотров 248. Ответов 2
Метки нет (Все метки)

Может кто на С++ перевести?
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
uses crt;
const t=0.01;//точность сравнения вычисленных величин
var a,b,c,u,mx,mn,sr:real;
begin
writeln('Введите 2 стороны треугольника:');
read(a,b);
repeat
write('Введите угол между ними в градусах 0<u<180 u=');
read(u);
until(u>0)and(u<180);
c:=sqrt(a*a+b*b-2*a*b*cos(u*pi/180));//3 сторона
writeln('c=',c:0:2);
//определим наибольшую сторону для определения прямого угла
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;//большая
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;//меньшая
sr:=a+b+c-mn-mx;//средняя
if (a=b)and(abs(a-c)<=t) then write('Это равносторонний треугольник')
else if ((a=b)and(abs(a-c)>t))
     or ((a<>b)and(abs(a-c)<=t))
     or ((abs(b-c)<=t)and(abs(a-c)<=t))then
      begin
       write('Это равнобедренный ');
       if abs(mx*mx-mn*mn-sr*sr)<=t then writeln('прямоугольный треугольник')
      else writeln('не прямоугольный треугольник');
      end
else
 begin
  write('Это разностороннний ');
  if abs(mx*mx-mn*mn-sr*sr)<=t then writeln('прямоугольный треугольник')
  else writeln('не прямоугольный треугольник');
 end;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2013, 19:22
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод (C++):

Перевод из 16 в 2 - C++
char* DecToBin(int x, char* str) { int i; for (i = sizeof(x)*8-1; i&gt;=0; i--) { str = (x&amp;1 == 1) ? '1' : '0'; x = x &gt;&gt; 1;...

Перевод - C++
program NoName; var x1, y1, x2, y2, x3, y3, x4, y4: integer; begin readln(x1, y1); readln(x2, y2); readln(x3, y3);...

перевод в С - C++
Помогите перевести этот участок программы на язык С procedure TForm2.BitBtn1Click(Sender: TObject); begin try if...

перевод из с++ в с - C++
Задано целое число. Используя средства стандартного ввода-вывода, изобразить на экране ромб, меньшая диагональ которого равна заданному...

Перевод с С на С++ - C++
Добрый вечер. Хочу перевести код с использованием pHash алгоритма с &quot;C&quot; на &quot;C++&quot;. Возникли некоторые проблемы при переводе. В частности,...

Перевод if(n*n+m*m=i) then if(i<>a[c-1]) на с++ - C++
if(n*n+m*m=i) then if(i&lt;&gt;a)

2
Waik
10 / 10 / 1
Регистрация: 23.04.2013
Сообщений: 59
07.12.2013, 19:32 #2
Цитата Сообщение от Relike Посмотреть сообщение
Может кто на С++ перевести?
Если вопрос только в этом..
Я смогу.
1
Relike
6 / 6 / 0
Регистрация: 24.04.2013
Сообщений: 260
07.12.2013, 20:56  [ТС] #3
Или хотя-бы напишите алгоритм определения типа невырожденного треугольника по двум сторонам и углу между ними (о чем и прога на паскале)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.12.2013, 20:56
Привет! Вот еще темы с ответами:

Перевод в 8-ю ЧС - C++
Здраствуйте! Написал программу для перевода 10-го числа в в ССч 8. Наведу пример того что не работает: число 1234 в 8 ССч имеет форму...

Перевод с с++ на c# - C++
Как можно перевести С++ на С# ?вообще реально ли это ?

Перевод - C++
HELP!!!! Добавлено через 36 секунд Люди пожалуйста помогите написать на си ++ программу Перевод из CMYK в YUV и обратно.... ...

Перевод - C++
Здравствуйте , помогите перевести прогу с паскаля на с++. Это метод Гаусса. Буду благодарен uses CRT; Const maxn =...


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

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

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