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

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

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

Переведите программу в C++ из Pascal - C++

25.05.2013, 14:32. Просмотров 234. Ответов 5
Метки нет (Все метки)

Переведите программу в C++

Код
{A}
Var T,M,N: Longint;
Begin
Readln(M,N);
If m>n then begin
T:=M;
M:=N;
N:=T;
End;
If M=1 then Writeln((N+1) div 2) 
else If (M mod 3=0) or (N mod 3=0) then Writeln(2) 
else Writeln(1);
end.
То, что получилось у меня(((

Код
#include<iostream>
using namespace std;
int main()
{
	long int m,n,sol;
	long int tg;
	int mod_1;
	int mod_2;
	scanf("%d",&m);
	scanf("%d",&n);

	mod_1=m % 3;
	mod_2=n % 3;
	if (m > n)
	{
		tg=m;
		m=n;
		n=tg;
	}

	if (m=1) sol=((n+1)/2);
	else if (mod_1 == 0 || mod_2 == 0) sol=2;	
	else sol=1;
	cout << sol << endl;
	return 0;
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2013, 14:32     Переведите программу в C++ из Pascal
Посмотрите здесь:

Переведите программу из Pascal на С++ - C++
Переведите программу из Pascal на С++, пожалуйста! Условие программы: Найти max{min(o, b), min(c, d)}. ...

Переведите с 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++
var m, n, i : integer; a : array of longint; begin assign(input,'input.txt'); reset(input); 268 assign(output,'output.txt');...

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

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

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

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

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := 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...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Tiva
94 / 94 / 1
Регистрация: 25.04.2012
Сообщений: 429
25.05.2013, 14:42     Переведите программу в C++ из Pascal #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <iostream>
using namespace std;
 
int main(void)
{
    long int t,m,n;
    cin>>m>>n;
    if(m>n) 
    {
        t=m;
        m=n;
        n=t;
    }
    if (m==1) cout<<((n+1)/2)<<endl;
    else if ((m%3==0) || (n%3==0)) cout<<2<<endl;
    else cout<<1<<endl;
 
}
takeshymsi
0 / 0 / 0
Регистрация: 12.05.2013
Сообщений: 12
25.05.2013, 14:44  [ТС]     Переведите программу в C++ из Pascal #3
Tiva, спасибо большое, выручил!!! Сейчас буду смотреть в чём косяк был))
pizurok
76 / 68 / 3
Регистрация: 05.05.2013
Сообщений: 3,147
25.05.2013, 14:45     Переведите программу в C++ из Pascal #4
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include<stdio.h>
#include<system.h>
 
int main()
{
   long T,M,N;
   scanf("%ld,%ld", &M,&N);
   if (M>N)
   {
        T=M;  
        M=N;
        N=T;  
   }
 
    if (M==1) printf("%d", (N+1)/2);
    else if(M%3==0 || N%3==0) printf("2"); 
    else printf("1"); 
   system("pause");
   return 0;
}
takeshymsi
0 / 0 / 0
Регистрация: 12.05.2013
Сообщений: 12
25.05.2013, 14:47  [ТС]     Переведите программу в C++ из Pascal #5
pizurok, спасибо, что тоже помог, но у тебя
Compilation error
Tiva
94 / 94 / 1
Регистрация: 25.04.2012
Сообщений: 429
25.05.2013, 14:53     Переведите программу в C++ из Pascal #6
Цитата Сообщение от takeshymsi Посмотреть сообщение
Tiva, спасибо большое, выручил!!! Сейчас буду смотреть в чём косяк был))
равенство в с++ это ==
а в одном из ифов у тебя одинарное равно
Yandex
Объявления
25.05.2013, 14:53     Переведите программу в C++ из Pascal
Ответ Создать тему
Опции темы

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