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

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

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

переделать из турбо паскаля в Cи - C++

25.09.2011, 18:43. Просмотров 464. Ответов 2
Метки нет (Все метки)

Помогите переделать именно эту программу в Си

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var a,b:integer;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;Begin
NOK:=(x div NOD (x,y))*y; 
end;
Begin
clrscr;
Write ('Vvedite a b:');
Readln(a,b);
Writeln('NOK ',a,' ',b,' = ',NOK(a,b));
Readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.09.2011, 18:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос переделать из турбо паскаля в Cи (C++):

перевести с турбо паскаля в с++ вид - C++
type konf=record name: string; cena:integer; god:integer; mag:integer; end; var kon: array of konf; I,k,max:...

Перевод кода из Турбо паскаля в С++ - C++
Помогите перевести код из турбо Паскаля в С++ {$N+} { Вычисление интегpала десятиточечным методом Гаусса } uses crt,graph; var...

Переделать с паскаля на с++ - C++
Procedure tree (a, n); -------- begin a:=0; a:=0; a:=0; for i:=2 to n do begin k:=1 ; L: if a&lt;a then j:=3 else...

Переделать с Паскаля на С++ - C++
Составить неразветвленную программу на языке Turbo Pascal. Текст программы: Program lab_1; Var x ,y : real; Begin write( 'X =...

Переделать код из Паскаля в С++ - C++
program Param40; type St=String; var S:St; i,K:integer; Function WordK(S:St;K:integer):String; var

как переделать на с++? с паскаля - C++
function aaa(x: integer):boolean; var b: integer; begin b:=1; While (x-b*2)&gt;0 do b:=b*2; x:=x-b; if x&lt;&gt;1...

2
Thinker
Эксперт С++
4229 / 2203 / 150
Регистрация: 26.08.2011
Сообщений: 3,802
Записей в блоге: 5
25.09.2011, 18:57 #2
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
#include<stdio.h>
unsigned int Nod(unsigned int n, unsigned int m)
{
    while (n && m)
        if (n >= m)
           n %= m;
        else
           m %= n;
    return m + n;
}
 
unsigned int Nok(unsigned int n, unsigned int m)
{
   return n*m/Nod(n, m);
}
 
int main()
{
   unsigned int a, b;
   scanf("%u%u", &a, &b);
   printf("NOD(%u, %u) = %u\n", a, b, Nod(a, b));
   printf("NOK(%u, %u) = %u\n", a, b, Nok(a, b));
   return 0;
}
0
Aiko
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 12
25.09.2011, 20:26  [ТС] #3
благодарю
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.09.2011, 20:26
Привет! Вот еще темы с ответами:

Переделать код из Паскаля в С++ - C++
Type mas = Array of Real; {--------------} Procedure Sort(var a: mas; n: Byte); var i,j: Byte; tmp: Real; begin For...

Как переделать код из паскаля в с++ - C++
uses graph,crt; var x,y,d,i,j:integer; procedure CircleK(xc,yc,r:integer); procedure sim(x,y:integer); begin ...

Переделать прогу с паскаля в Вижуал - C++
вот прога на Паскале, надо переделать под вижуал... срочно... http://pascal.sources.ru/cgi-bin/show.cgi?cat=incoming&amp;id=polynom ...

Переделать код программы с паскаля на с++ - C++
Нужно перевести код с паскаля на с++ Program Podrazdelenie; Uses crt; Const nmax=20; nalog=20; TYPE mas = array of...


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

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

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