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

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

Войти
Регистрация
Восстановить пароль
 
qwer1234
13 / 13 / 3
Регистрация: 30.10.2012
Сообщений: 463
#1

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

28.10.2013, 10:51. Просмотров 194. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 10:51
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перепишите пожалуйста код с языка Pascal на C++ (C++):

Перепишите пожалуйста код программы с языка Visual Basic в C++ - C++
Вот код на языке Visual Basic Randomize Timer Dim A(19) As integer For i=0 to 19 A(i)=Int(Rnd*1000) Next For i=0 to 19 ...

Перевести код с языка Pascal - C++
Нужно сделать точно такую же программу (она была написана на питоне и переведена на паскаль) на С++: var s:string; begin ...

Перевести код с языка Pascal на язык С++ - C++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter count = ');readln(n); rez:=1; ...

Перевести код с языка Pascal на язык C++ - C++
Необходимо переписать данный код на C++. const eps = 1e-4; function pow(x : Real; k : Integer) : Real; var r : Real; begin ...

Перепишите с Pascal на C++ - C++
uses crt; const nmax = 30; type TInfo = record M : real; V : real; end;

Перепишите программу из Pascal в C++ - C++
Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она выполняла такие же операции. Вот код: ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 10:51
Привет! Вот еще темы с ответами:

перепишите на C++ пожалуйста - C++
Перепешите пожалуйста на С/С++. uses crt; var a:array of integer; n,i:integer; begin writeln('Введите любые числа от -10 до...

Перепишите пожалуйста на C++ - C++
procedure TForm1.Button1Click(Sender: TObject); var r5,x1,y1,x2,y2,x3,y3,x4,y4:integer; l,n,r4,r3,r1,r2:integer; begin ...

Перепишите задачу из Pascal на C++ (Есть условие) - C++
Здравствуйте, прошу о помощи. Решите задачу: В начальной школе Будущего изучали целые числа типа Longint, который они взяли из языка...

Перепишите, пожалуйста, программу, используя цикл for - C++
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;math.h&gt; using namespace std; int main() { double y, x, a, b, h, p, eps,...


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

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

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