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

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

Войти
Регистрация
Восстановить пароль
 
nata95
1 / 1 / 0
Регистрация: 05.01.2014
Сообщений: 109
#1

Переведите с Pascal на С++ - C++

10.04.2014, 22:04. Просмотров 206. Ответов 3
Метки нет (Все метки)

Пожалуйста, переведите с Pascal на С++
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function Min(a, b, c, d: integer): integer;
var iMIn: integer;
begin
  iMin := a;
 
   if iMin > b then iMin := b;
 
   if iMin > c then iMin := c;
 
   if iMin > d then iMin :=d;
 
  Min := iMin;
end;
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2014, 22:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите с Pascal на С++ (C++):

Переведите с Pascal на C++ - C++
program stringtale; var x,y:array of char; n,i,s:integer;t:boolean;p:char; Begin readln(n); for i:=1 to n do...

Переведите с Pascal на C++ - C++
Уважаемые программисты, переведите с Pascal на C++, пожалуйста var a, h, z:longint; tz, tgz, rez:real; begin readln (a,...

Переведите с Pascal на C++ - C++
Пожалуйста, переведите на C++ var a:array of longint; n,m,i,j,i1,j1,max:Longint; begin read(n,m); for i:=0 to n-1 do for...

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

Переведите с Pascal в C++ - C++
помогите пож с заданиями,очень нужно на завтра( 1) переведите пож в с ++ код var a1,b1,h1,p1,s1,a2,b2,h2,p2,s2,sp,ss:Real; ...

3
ВАСИЛЕВС
556 / 479 / 60
Регистрация: 14.02.2012
Сообщений: 1,561
10.04.2014, 22:11 #2
Что если так(не дословный перевод)?
C++
1
2
3
4
5
6
7
8
9
10
11
int Min(int a, int b, int c, int d)
{
    if (a > b)
        return b;
    else if (a > c)
        return c;
    else if (a > d)
        return d;
    else
        return a;
}
1
nata95
1 / 1 / 0
Регистрация: 05.01.2014
Сообщений: 109
10.04.2014, 23:08  [ТС] #3
ВАСИЛЕВС, пожалуйста, помогите и с этим
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a, h, z:longint;
   tz, tgz, rez:real;
begin
    readln (a, h, z);
    tz:=z*pi/180;
    tgz:=sin(tz)/cos(tz);
    if z=90 then rez:=a*h*sqrt(2) else
    if 2*h<a*tgz then rez:=(a*a/2-sqr(a-h*sqrt(2)/tgz)/2)/cos(tz)
                 else rez:=a*a/2/cos(tz);
    writeln (rez:0:3);
end.
0
ВАСИЛЕВС
556 / 479 / 60
Регистрация: 14.02.2012
Сообщений: 1,561
10.04.2014, 23:34 #4
Как-то так.
C++
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
#include <iostream>
#include <cmath>
 
int main()
{
  long a, h, z;
  float tz, tgz, rez;
  
  const float pi = 3.14159265358979323846;
  
  std::cin >> a >> h >> z;
  
  tz = z * pi / 180;
  tgz = tan(tz); // sin(tz) / cos(tz)
  
  if (z == 90)
      rez = a * h * sqrt(2);
  else if (2 * h < a * tgz)
      rez = (pow(a, 2) / 2 - pow(a - h * sqrt(2) / tgz, 2) / 2) / cos(tz);
  else
      rez = pow(a, 2) / 2 / cos(tz);
  
  std::cout << rez << std::endl;
  return 0;
}
1
10.04.2014, 23:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.04.2014, 23:34
Привет! Вот еще темы с ответами:

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на C++ - C++
var m, n, i : integer; a : array of longint; begin assign(input,'input.txt'); reset(input); 268 assign(output,'output.txt');...

Переведите программу в C++ из Pascal - C++
Переведите программу в C++ {A} Var T,M,N: Longint; Begin Readln(M,N); If m&gt;n then begin T:=M; M:=N; N:=T;

Переведите код с Pascal на С++ - C++
program lab100301; uses crt; type tablica=record name:string; sred:real; rus,math,fiz:byte; end; var ...


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

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

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