Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
yura332
0 / 0 / 0
Регистрация: 21.09.2009
Сообщений: 25
#1

Перевести с Паскаля на Си - C++

26.10.2009, 14:54. Просмотров 429. Ответов 4
Метки нет (Все метки)

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
uses crt;
var a,n:Longint;
    b:boolean;
begin
clrscr;
write('a=');readln(a);
n:=2;
while a>0 do
 begin
  b:=true;
  while n <= round(sqrt(a)) do
   begin
    if a mod n=0 then
     begin
      write(n,' ');
      a:=a div n;
      b:=false;
      break;
     end;
    inc(n);
   end;
  if b then
   begin
    write(a);
    break;
   end;
 end;
readln
end.

http://www.cyberforum.ru/cpp-beginners/thread1575972.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2009, 14:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести с Паскаля на Си (C++):

перевести из паскаля в с++
program spektr; uses crt; type vect=arrayof integer; var f,g:vect; ...

Перевести с Паскаля на C++
надо перевести с паскаля на c++ var i,adrs:integer; a:arrayof integer;...

Перевести из паскаля в с++
var a, i, b: integer; begin read(a); b := 0; for i := 1 to a do...

Перевести с паскаля
program maximum; var a: array of integer; // массив масс предметов max:...

Перевести с Паскаля на С++
uses crt; var n,k:byte; p,s:longint; begin clrscr; write('Введите...

4
niXman
Эксперт С++
3202 / 1451 / 73
Регистрация: 09.08.2009
Сообщений: 3,441
Записей в блоге: 2
26.10.2009, 15:01 #2
yura332, Проще написать с нуля. Условие покажи.
0
Sckomoroh
1 / 1 / 1
Регистрация: 26.10.2009
Сообщений: 5
26.10.2009, 15:08 #3
чтото вроде этого


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
25
26
27
28
#include <stdio.h>
#include <math.h>
 
#define TRUE 1
#define FALSE 0
 
int main(){
    long a, n;
    int b; 
    scanf("a=%d", &a);
    n = 2;
    while(a>){
        b = TRUE;
        while(n <= int(sqrt(a)){
            if(a%n == 0){
                printd("%d ", n);
                a = a % n;
                b = FALSE;
                break;
            }
            n++;
        }
        if(b){
            printf("%d ", a);
            break;
        }
    }
}
0
manfeese
131 / 130 / 29
Регистрация: 04.01.2009
Сообщений: 415
26.10.2009, 15:10 #4
вот на с++
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
25
26
27
28
29
30
31
32
33
#include <iostream.h>
#include <math.h>
#include <conio.h>
 
int main()
{
    int a,n=2;
    bool b;
 
    cout<<"a="; cin>>a;
    while (a>0)
        {
            b=true;
            while (n<=ceil(sqrt(a)))
            {
                if ((a%n)==0)
                {
                  cout<<n<<"";
                  a=a/n;
                  b=false;
                  break;
                }
                n=n+1;
            }
            if (b)
            {
              cout<<a;
              break;
            }
        }
    getch();
    return 0;
}
А вообще niXman прав: с нуля легче и понятней
0
Sckomoroh
1 / 1 / 1
Регистрация: 26.10.2009
Сообщений: 5
26.10.2009, 15:19 #5
ну я как то не разбирался в сути алгоритма, просто переписал на синтаксис ся.
Согласен, с нуля легче, но не всегда это возможно
0
26.10.2009, 15:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2009, 15:19
Привет! Вот еще темы с решениями:

Перевести из паскаля в С
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число...

Перевести из Паскаля на С++
var d, m: integer; begin writeln('Введіть день'); readln (d);...

Перевести с Паскаля на С++
Помогите, пожалуйста! Переведите код с Паскаля на С++!! Срочно!! program...

Перевести с паскаля на С++
Program p1; Var x,i,n:integer; Begin Write ('n= '); Read (n); x:=10;...


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

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

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