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

перевести с С на паскаль - C++

Восстановить пароль Регистрация
 
Koo
0 / 0 / 0
Регистрация: 22.04.2010
Сообщений: 38
13.11.2011, 13:56     перевести с С на паскаль #1
Переведете пожалуйста код с С++ на паскаль. Очень нужно!
Программа должна удалять лишние элементы в последовательности, так, чтобы после их удаления образовалась максимальная последовательность.
Если можно,то главный алгоритм (((.
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
#include "stdafx.h"
#include "stdio.h"
#include "conio.h"
#include <stdlib.h>
#include "time.h"
 
 
int _tmain(int argc, _TCHAR* argv[])
{
int i,g,n=0,m=0,  answ=0, *kolvo_elementov_bolshih_dannogo ;
while (n<=0)
    {
        printf("Vvedite kol-vo elenentov v massive :" );
        scanf("%d",&n);
}
   
    kolvo_elementov_bolshih_dannogo = new int [n];
    int* arr = new int [n];
 
    while (!((answ==1) || (answ==2)))
    {
        printf("Zadat elementi sluchaino?(1/2) ");
        scanf("%d",&answ);
    }
    for (i=0; i<n; i++)
    {
        if (answ==1)
        {
        printf("Vvedite %d elenenti = ",i+1);
        scanf("%d", &arr[i]);
        }
          else
        {
            arr[i]=rand();
            printf("%d : %d\n", i+1,arr[i]);
        }
    
    }
    
            
 int *element_iskomoi_posledovatelnosti;
 int tempNum = 1;
element_iskomoi_posledovatelnosti = new int [maxim];
   
    int k=index_pervogo_elementa_posledovatelnosti;
    element_iskomoi_posledovatelnosti[0]=arr[k];
    printf(" element_iskomoi_posledovatelnosti[%i]=%i\n ",1, element_iskomoi_posledovatelnosti[0]);
 
    for (int j=index_pervogo_elementa_posledovatelnosti; j< n ; j++ )
    if (arr[k]<arr[j]) 
    {
       element_iskomoi_posledovatelnosti[tempNum]=arr[j];
       printf(" element_iskomoi_posledovatelnosti[%i]=%i\n ",tempNum+1, element_iskomoi_posledovatelnosti[tempNum++]);
       k=j;
     }
 
}
 
      int index_pervogo_elementa_posledovatelnosti, maxim;
       
           for (int i=0; i<n;i++)
         
maxim =  kolvo_elementov_bolshih_dannogo[0];
index_pervogo_elementa_posledovatelnosti = 0;
 for(i=1; i<n; ++i)
 {
     if(maxim < kolvo_elementov_bolshih_dannogo[i])
     {
          maxim = kolvo_elementov_bolshih_dannogo[i];
      index_pervogo_elementa_posledovatelnosti=i;    
     }   
  }   
   
  printf("Max of elements = %d\n", maxim);
  printf("index_pervogo_elementa_posledovatelnosti= %d\n", index_pervogo_elementa_posledovatelnosti);
 
index_pervogo_elementa_posledovatelnosti);
          
 
int *iskomaya_posledovatelnost;
         for (int i=0; i<n;i++)
     {
               int p,o,e, w = index_pervogo_elementa_posledovatelnosti;
               p=n-w;
               o=w+1;
               for (int e =w; e< p ; e++ )
 
 
              iskomaya_posledovatelnost = new int [p];
  
              if (arr[e]<arr[o]) 
              {   iskomaya_posledovatelnost[e]=arr[w];
               ++e; 
               ++o;
               printf("iskomaya_posledovatelnost=%d\n ", e);
    
    }
 
         }
    
getch();
return 0;
}
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
niXman
Эксперт C++
 Аватар для niXman
3133 / 1445 / 49
Регистрация: 09.08.2009
Сообщений: 3,441
Записей в блоге: 2
13.11.2011, 14:03     перевести с С на паскаль #2
это не с++. это Си.
Koo
0 / 0 / 0
Регистрация: 22.04.2010
Сообщений: 38
13.11.2011, 15:34  [ТС]     перевести с С на паскаль #3
спасибо, что поправили.Примечание к первому посту: Максимальная ВОЗРОСТАЮЩАЯ последовательность.

Добавлено через 1 час 22 минуты
Переведите хотя бы вот этот небольшой фрагмент программы
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
int *element_iskomoi_posledovatelnosti;
 int tempNum = 1;
element_iskomoi_posledovatelnosti = new int [maxim];
   
    int k=index_pervogo_elementa_posledovatelnosti;
    element_iskomoi_posledovatelnosti[0]=arr[k];
    printf(" element_iskomoi_posledovatelnosti[%i]=%i\n ",1, element_iskomoi_posledovatelnosti[0]);
 
    for (int j=index_pervogo_elementa_posledovatelnosti; j< n ; j++ )
    if (arr[k]<arr[j]) 
    {
       element_iskomoi_posledovatelnosti[tempNum]=arr[j];
       printf(" element_iskomoi_posledovatelnosti[%i]=%i\n ",tempNum+1, element_iskomoi_posledovatelnosti[tempNum++]);
       k=j;
     }
Заранее Благодарю!
Nameless One
13.11.2011, 15:46
  #4

Не по теме:

niXman, там смесь Си и С++ (ввод-вывод сишный, выделение памяти из С++)

Koo
0 / 0 / 0
Регистрация: 22.04.2010
Сообщений: 38
13.11.2011, 17:49  [ТС]     перевести с С на паскаль #5
Тему можно закрыть, решение найдено.
Yandex
Объявления
13.11.2011, 17:49     перевести с С на паскаль
Ответ Создать тему
Опции темы

Текущее время: 18:46. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru