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

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

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

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

13.03.2011, 06:07. Просмотров 569. Ответов 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
26
27
28
29
30
31
32
#include "stdafx.h"
#include <iomanip>
#include <iostream>
using namespace std;
int min1(int,int);
int min2(int,int);
int min3(int,int);
void main(){
    int a,b,c;
    cout<<"a=";
    cin>>a;
    cout<<"b=";
    cin>>b;
    c=min1(a,b)+min2(a,b)*min2(a,b);
    cout<<c;
    if(c<3.14)
        cout<<c;
    else 
        cout<<"3.14";
}
int min1(int a, int b){
    if(a<b)
        return a;
    else 
        return b;
}
int min2(int a, int b){
    if(a*b<a+b)
        return a*b;
    else 
        return a+b;
}
другой с(си) ето типо printf #include<stdio.h> и так дале.. плз
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2011, 06:07     Перевести код с С++ в С и Pascal
Посмотрите здесь:

Перевести код с C++ в Pascal - C++
#include &lt;iostream&gt; #include &lt;cmath&gt; #include &lt;vector&gt; #include &lt;numeric&gt; using namespace std; int main() { ...

Перевести код с Pascal - C++
Помогите разобраться, что тут написано. Хотелось бы это на Си, т.к паскаль не знаю( заранее спасибо) var ans, a, p :int64; ...

Перевести код из Pascal в С++ - C++
Всем привет! Нужно срочно сделать задачку, условие такое: &quot;Вычислить приближенное значение бесконечной суммы cos(x) = 1 - x^2/2! +...

Перевести код из Pascal на C++ - C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код: procedure...

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

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
slice
34 / 77 / 4
Регистрация: 04.11.2010
Сообщений: 249
13.03.2011, 10:34     Перевести код с С++ в С и Pascal #2
Цитата Сообщение от canavaro Посмотреть сообщение
нада перевести з одного с(си) в другой с(си)
жжошь)))
Nameless One
Эксперт С++
5769 / 3418 / 255
Регистрация: 08.02.2010
Сообщений: 7,446
13.03.2011, 11:17     Перевести код с С++ в С и Pascal #3
Попытаюсь перевести: ТС'y надо сделать перевод из С++ в С, а потом в Паскаль
canavaro
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 11
13.03.2011, 12:40  [ТС]     Перевести код с С++ в С и Pascal #4
Цитата Сообщение от slice Посмотреть сообщение
жжошь)))
стараюсь)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2011, 13:15     Перевести код с С++ в С и Pascal
Еще ссылки по теме:

Перевести код с Pascal - C++
program lab4; var i,j,jmax:integer; a:array of real; b:array of real; k,max,s:real; begin for i:=1 to 5 do for j:=1 to 4 do...

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

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

Перевести код из Pascal в C++ - C++
доброго времени суток. Надо перевести код паскаля в с++ чтоб выполняло тоже самое и выдавало тот же самый результат. Помогите плиз. ...


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

Или воспользуйтесь поиском по форуму:
nxnx
Формучанин
362 / 293 / 16
Регистрация: 02.11.2010
Сообщений: 1,234
13.03.2011, 13:15     Перевести код с С++ в С и Pascal #5
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <stdio.h>
 
int min1(int a, int b)
{
        return (a<b)?a:b;
}
int min2(int a, int b)
{
        return (a*b<a+b)?a*b:a+b;
}
int main (void)
{
 
     int a,b,c;
     printf("a=");scanf("%d",&a);
     printf("b=");scanf("%d",&b);
     c=min1(a,b)+min2(a,b)*min2(a,b);
     printf("%d\n",c);
     if (c<=3) printf("%d\n",c); else printf("3.14\n");
 
     getch();
     return 0;
}
Добавлено через 10 минут
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
program Project1;
 
function min1(a:integer; b:integer):integer;
  begin
    if a<b then b:=a;
    min1:=b;
  end;
 
function min2(a:integer; b:integer):integer;
  begin
    if a*b<a+b then a:=a*b else a:=a+b;
    min2:=a;
  end;
 
 var a,b,c:integer;
 
begin
  write('a=');readln(a);
  write('b=');readln(b);
  c:=min1(a,b)+min2(a,b)*min2(a,b);
  writeln(c);
  if c<=3 then  writeln(c) else writeln('3.14');
  readln;
end.
Yandex
Объявления
13.03.2011, 13:15     Перевести код с С++ в С и Pascal
Ответ Создать тему
Опции темы

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