Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Aiko
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 12
1

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

25.09.2011, 18:43. Просмотров 497. Ответов 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
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.09.2011, 18:43
Ответы с готовыми решениями:

Перевести код из паскаля в турбо с++
const LoshadCount = 3; var i, n, c, max: Integer; v: Real; s: array of Integer; ...

перевести с турбо паскаля в с++ вид
type konf=record name: string; cena:integer; god:integer; mag:integer; end; var...

Перевод кода из Турбо паскаля в С++
Помогите перевести код из турбо Паскаля в С++ {$N+} { Вычисление интегpала десятиточечным методом...

Нужно переделать код из С++ турбо в С++
Не понимаю некоторые функции . Остается только догадываться . #include &lt;iostream&gt; #include...

Переделать с паскаля на с++
Procedure tree (a, n); -------- begin a:=0; a:=0; a:=0; for i:=2 to n do begin k:=1...

2
Thinker
Эксперт С++
4239 / 2213 / 203
Регистрация: 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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.09.2011, 20:26

Переделать с Паскаля на С++
Составить неразветвленную программу на языке Turbo Pascal. Текст программы: Program lab_1;...

Переделать с паскаля на с++
Var n,k1,k2,i:integer; s1:char; Begin write('n: ');readln(n); For i:=1 to n do ...

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


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

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

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