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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Чтение из файла http://www.cyberforum.ru/cpp-beginners/thread356239.html
Прошу помощи в чтении данных из файла. //FILE *f; //Переменная для чтения фала; //AnsiString pol; //указатель на имя пользователя;...
C++ Чтение из файла Вывод из файла делаю с помощью следующего кода: AnsiString pol; . . . f = fopen ( "name.txt", "r" ); fscanf ( f, "%s", &pol ); Edit2->Text = pol; http://www.cyberforum.ru/cpp-beginners/thread356214.html
Не получается сделать 3 класса шаблонными. C++
Есть три класса + функция main, в которой используются эти классы. Все работает. Сделал эти три класса шаблонными. В main в объявлении дописал <тип>. Но программа не работает. Если не использовать...
Рисование квадрата с разноцветными сторонами C++
Есть задача - запрограммировать игру, примерно такую. Фигура состоит из квадратов. Игроки ходят по очереди. За один ход - можно отметить какую-нибудь сторону квадрата. Кто отмечает последнюю...
C++ Бинарный поиск http://www.cyberforum.ru/cpp-beginners/thread356203.html
Что переделать в программе, чтобы она находила первый элемент больше или равный заданному? #include "stdafx.h" #include <iostream> #include <windows.h> using namespace std; int...
C++ Написать программу для вычисления суммы ряда 12. Написать программу для вычисления суммы ряда: П^4/96=1/1^4+1/3^4+1/5^4+...+1/(2n+1)^4 значение n ввести с клавиатуры. Вывести на экран контрольное значение. Организовать повторение всей... подробнее

Показать сообщение отдельно
Aiko
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 12

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

25.09.2011, 18:43. Просмотров 456. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru