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

Код из Pascal в С - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ массивы + указатели http://www.cyberforum.ru/cpp-beginners/thread104825.html
Задали следующую задачу: 1. Вычислить значение многочлена и его первой производной в заданной точке х (коэффициенты хранятся в массивах). честно говоря, даже не представляю, как к ней...
C++ Указатели, работа с динамическими структурами данных и динамические списки, стеки 1)Указатели, работа с динамическими структурами данных. Динамическое управление памятью Динамические массивы. Массив должен быть динамическим. То есть обязательно должны использоваться указатели,... http://www.cyberforum.ru/cpp-beginners/thread104818.html
директива extern C++
Никак н могу понять как решить проблму с директивой extern. Я подключил к проекту файл libext.h и попытался скомпилировать программу. И компилятор почти на каждую строку пишет по 3 ошибки. Например...
Стримовые строки C++
Есть стрим, например, cin. Надо узнать число символов от последнего ведённого до конца строки.
C++ Создание очереди продажи мобильных телефонов http://www.cyberforum.ru/cpp-beginners/thread104798.html
Помогите, не могу написать курсовую, очень прошу, сам пробовал, не получается. Тема курсовой работы: Создание очереди продажи мобильных телефонов. Люди спасайте неможу замутити курсуву дуже...
C++ Две Программы по С++ по ООП - не получается сделать Вот две задачки по ООП не могу сделать, кто может напишите код пожалуйста, лучше с коментариями для каждой строчки, буду очень признателен (коментарии нужны потому что я буду чтото знать а чтото нет,... подробнее

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

Код из Pascal в С - C++

15.03.2010, 13:53. Просмотров 315. Ответов 1
Метки (Все метки)

Помогите перевести код из паскаля в си:
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
41
42
43
44
45
46
47
48
49
50
51
52
53
 
uses crt;
const n=500;
var i,j,m,a,b,p1,p2,k:integer;
begin
 for i:=2 to n do
 begin
 p1:=0;
 m:=1;
 while i>m do
 begin
 if (i mod m =0 ) then
 p1:=p1+m;
 inc(m);
 end;
 for j:=2 to n do
  begin
  p2:=0;
  k:=1;
  while (j>k) and (p2<=i) and (i<>j) do
  begin
  if (j mod k= 0) then
   p2:=p2+k;
  inc(k);
  end;
 if (p1=j) and (p2=i) then
  begin
  k:=1;
  m:=1;
  write('b=');
  write('1');
  while k<j do
   begin
   if (j mod k = 0) then
    write('+',k);
    inc(k);
   end;
   writeln;
  write('a=');
  write('1');
  while m<i do
   begin
   if (i mod m = 0) then
    write('+',m);
    inc(m);
   end;
   readln;
 
  end;
  end;
 end;
 readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru