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

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

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

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

13.03.2011, 06:07. Просмотров 582. Ответов 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> и так дале.. плз
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2011, 06:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код с С++ в С и Pascal (C++):

Перевести код с Pascal на C# и C++ - C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w: array of byte; link, lx, ly:...

Перевести код с Pascal - C++
l:array of integer; a,b,n,i:integer; w:boolean; begin readln(n); randomize; for i:=1 to n do begin l:=random(10)-3; ...

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

Перевести код с Pascal - C++
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi;...

Перевести код с Pascal - C++
uses crt; const nmax=20; var a:array of integer; n,i,d:integer; f:boolean; begin repeat write('Размер массива до...

Перевести код с Pascal на С++ - C++
Ребята,помогите преобразовать код,представленный по этой ссылке http://www.cyberforum.ru/turbo-pascal/thread1053110.html на С++ Задание...

4
slice
35 / 78 / 4
Регистрация: 04.11.2010
Сообщений: 249
13.03.2011, 10:34 #2
Цитата Сообщение от canavaro Посмотреть сообщение
нада перевести з одного с(си) в другой с(си)
жжошь)))
0
Nameless One
Эксперт С++
5777 / 3427 / 255
Регистрация: 08.02.2010
Сообщений: 7,448
13.03.2011, 11:17 #3
Попытаюсь перевести: ТС'y надо сделать перевод из С++ в С, а потом в Паскаль
1
canavaro
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 11
13.03.2011, 12:40  [ТС] #4
Цитата Сообщение от slice Посмотреть сообщение
жжошь)))
стараюсь)
0
nxnx
Формучанин
362 / 293 / 16
Регистрация: 02.11.2010
Сообщений: 1,234
13.03.2011, 13:15 #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.
1
13.03.2011, 13:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2011, 13:15
Привет! Вот еще темы с ответами:

Перевести код с 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++
var x,y: real; begin write('Введите x, y: '); readln(x,y); if ((sqr(x)/4)+(sqr(y)/1)&lt;=1) and (x&lt;=-1) or...

Перевести код с Pascal в С++ - C++
Program fun1; Var m: integer; a,b,h,x,y : real; begin read (a,b,m); Writeln ('Таблиця:'); h:=(b-a)/m; x:=a; ...

Перевести код Pascal на C++ - C++
Program PROGRAMMA6; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy, u : array of integer; ...


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

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

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