0 / 0 / 0
Регистрация: 09.11.2016
Сообщений: 23
1

Перевести код c Pascal в C++

09.11.2016, 21:24. Показов 1793. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
uses Crt;
function Fun(a,b,c:integer):boolean;
begin
     if a<(b+c)
      then Fun:=true
      else Fun:=false;
end;
var  x,y,z:integer;
begin
     ClrScr;
      repeat
         Write('x= ');
          Readln(x);
           if x<=0
            then Writeln('Neverniy vvod');
      until x>0;
      repeat
         Write('y= ');
          Readln(y);
           if y<=0
            then Writeln('Neverniy vvod');
      until y>0;
      repeat
         Write('z= ');
          Readln(z);
           if z<=0
            then Writeln('Neverniy vvod');
      until z>0;
      if (x>y) and (x>z)
       then
        if Fun(x,y,z)
         then Writeln('Mogut')
         else Writeln('Ne mogut')
       else
        if (y>x) and (y>z)
         then
          if Fun(y,x,z)
           then Writeln('Mogut')
           else Writeln('Ne mogut')
         else
          if (z>x) and (z>y)
           then
            if Fun(z,x,y)
             then Writeln('Mogut')
             else Writeln('Ne mogut');
     ReadKey;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.11.2016, 21:24
Ответы с готовыми решениями:

Перевести код с Pascal
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite...

Перевести код из Pascal в C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C :=...

Перевести код с C++ в Pascal
#include &lt;iostream&gt; #include &lt;cmath&gt; #include &lt;vector&gt; #include &lt;numeric&gt; using namespace...

Перевести код с Pascal
№1 var s1,s2,n: longint; f: integer; begin write('vvedite natural chislo '); ...

1
115 / 72 / 48
Регистрация: 16.11.2012
Сообщений: 257
10.11.2016, 12:26 2
Лучший ответ Сообщение было отмечено SatanaXIII как решение

Решение

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
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
#include<iostream>  
#include<math.h>
#include<conio.h>
#include <windows.h>
using namespace std;
 
int fun(int a, int b, int c)
{
    if (a<(b+c))
        return true;
    else
        return false;
 
}
int main()
{
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
 
    int x,y,z=0;
    do
    {
        cout << "Введите x= ";
        cin>>x;
    }while (x<0);
    
    do
    {
        cout << "Введите y= ";
        cin>>y;
    }while (y<0);
 
    do
    {
        cout << "Введите z= ";
        cin>>z;
    }while (z<0);
 
    if ((x>y) &&(x>z))
    {
        fun (x,y,z);
        cout << "Могут!";
    }
    
 
    else if ((y>x) && (y>z))
    {
        fun (y,x,z);
        cout << "Могут!";
    }
    
    else if ((z>x) && (z>y))
    {
        fun (z,x,y);
        cout << "Могут!";
    }
    else 
        cout << "Не могут!";
 
    _getch();
    return 0;
    
}
0
10.11.2016, 12:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2016, 12:26
Помогаю со студенческими работами здесь

Перевести код с Pascal
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin...

Перевести код с Pascal
program lab4; var i,j,jmax:integer; a:array of real; b:array of real; k,max,s:real; begin...

Перевести код с Pascal - C++
Перевести код с Pascal на C++ var a,b: Integer; sim: String; begin Readln(a); ...

Перевести код с Pascal
program sro3_2; var A,B,C:array of...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru