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

Перепишите пожалуйста код с языка Pascal на C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Даны два класса: ellipse и circle http://www.cyberforum.ru/cpp-beginners/thread990282.html
Помогите решить пожалуйста!Да,я чайник.. :( Даны два класса: ellipse и circle. Объекты этих классов могут быть отображены на экране с помощью функции-члена draw и перемещены с помощью...
C++ Не работает getline Есть прога, которая считает предложения и выводит самое длинное.Есть главный кейс с меню. В первом пункте кейса есть гетлайн, но при выборе этого пункта прога прогоняет кейс до ввода переменной для... http://www.cyberforum.ru/cpp-beginners/thread990280.html
C++ найти и вывести объем тетраэдра
Как найти объем через координаты вершин? Как его написать? //На вход подается некоторое количество тетраэдров(координаты вершин). //Отсортировать и вывести их по возрастанию объемов. #include...
целочисленный массив X(n) C++
ребят помогите пожалуйста, не могу сообразить В целочисленный массив X(n) после каждого нечетного элемента вставить максимальный простой элемент этого же массива. Определить среднее...
C++ Составить программу, которая подсчитывает в введенном пользователем тексты количество чисел в десятковый системы. Числом считаем последовательность ци http://www.cyberforum.ru/cpp-beginners/thread990239.html
Составить программу, которая подсчитывает в введенном пользователем тексты количество чисел в десятковый системы. Числом считаем последовательность цифр 0 9.
C++ Непонятна Структура файловой системы Добрый день! Немного непонятно структура программы. Условие - http://smages.com/images/img201aha.jpg Все нужно оформить через классы. Вот, что пока получается, но кажется, что не совсем правильно... подробнее

Показать сообщение отдельно
qwer1234
13 / 13 / 3
Регистрация: 30.10.2012
Сообщений: 463

Перепишите пожалуйста код с языка Pascal на C++ - C++

28.10.2013, 10:51. Просмотров 199. Ответов 0
Метки (Все метки)

Вот сам код.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
{$N+}
uses crt;
const nmax=60;
function Step2(n:byte):extended;
var p:extended;
i:byte;
begin
p:=1;
for i:=1 to n do
p:=p*2;
Step2:=p;
end;
function Prost(n:longint):boolean;
var i:longint;
begin
if n<2 then Prost:=false
else
begin
Prost:=true;
for i:=2 to round(sqrt(n)) do
if n mod i=0 then
begin
Prost:=false;
break;
end;
end;
end;
 
var n,i:byte;
begin
clrscr;
repeat
write('Введите число до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n-1 do
if Prost(i) then
writeln(Step2(i)-1:0:0,' ');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru