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

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

Войти
Регистрация
Восстановить пароль
 
feelossoff
0 / 0 / 0
Регистрация: 28.03.2009
Сообщений: 77
#1

Портация кода Pascal - C++

02.04.2009, 12:50. Просмотров 658. Ответов 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
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
program noules;
uses wincrt;
type mas=array[1..100] of integer;
procedure Vvod(var x:byte;var ms:mas);
var i:byte;
begin
write('Vvedite razmer massiva: ');
readln(x);
for i:=1 to x do
  begin
    write('el mass[',i,']=');
    readln(ms[i]);
  end;
end;
procedure Vyvod(x:byte;var ms:mas);
var i:byte;
begin
for i:=1 to x do
write(ms[i],' ');
writeln;
end;
{Opredelenie pervoj cifry}
function Cifr(x:integer):byte;
var s:string;
    t,c:integer;
begin
str(x,s);
val(s[1],t,c);
Cifr:=t;
end;
{Udalenie nolej}
procedure UdalenieNolej(var x:byte;var ms:mas);
var
i,k:byte;
begin
for i:=x downto 1 do
if ms[i]=0 then
  begin
    for k:=i to x-1 do
    ms[k]:=ms[k+1];
    x:=x-1;
  end;
end;
{Sortirovka po pervoj cifre}
procedure Sort(x:byte;var ms:mas);
var i,k:byte;
    b:integer;
begin
for i:=1 to x-1 do
for k:=i+1 to x do
if Cifr(ms[i])>Cifr(ms[k])then
   begin
    b:=ms[i];
    ms[i]:=ms[k];
    ms[k]:=b;
   end;
end;
var a:mas;
    n:byte;
begin
clrscr;
Vvod(n,a);
clrscr;
writeln('Ishodnyj massiv:');
Vyvod(n,a);
UdalenieNolej(n,a);
Sort(n,a);
writeln('Rezultat:');
Vyvod(n,a);
readln
end.
nl:=n+2;{новая длина массива}
{posle}
for i:=nl-1 downto imax+1 do m[i]:=m[i-1];
m[imax+1]:=e1;
{pered}
for i:=nl downto imax do m[i]:=m[i-1];
m[imax]:=e2;
end;
var a:myarray;
   imax,n1:Integer;
begin
randomize;
Init2(A);
Max(A,imax);
writeln('number of max element=',imax);
writeln;
Insert(imax,n1,A);
Printl(n1,imax,A);
readln
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.04.2009, 12:50     Портация кода Pascal
Посмотрите здесь:

C++ Перевод кода из Pascal/VB в C++
перевод кода из Pascal в C++ C++
C++ Из кода Pascal в код C++
Перевод кода с Pascal C++
C++ Перевод кода с Pascal
Перевод кода с Pascal C++
Перевод кода из pascal в c++ C++
Трансляция кода Pascal в C++ C++
C++ Конвертация кода Pascal на C++
Перевод кода из Pascal в C++ C++
C++ Перевод кода с с Pascal на С++
C++ Трансляция кода Pascal в C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
CheshireCat
Эксперт С++
2890 / 1239 / 78
Регистрация: 27.05.2008
Сообщений: 3,327
02.04.2009, 13:31     Портация кода Pascal #2
Что конкретно не получается?
feelossoff
0 / 0 / 0
Регистрация: 28.03.2009
Сообщений: 77
02.04.2009, 13:31  [ТС]     Портация кода Pascal #3
Цитата Сообщение от CheshireCat Посмотреть сообщение
Что конкретно не получается?
время нет!
Yevgenijz
11 / 11 / 1
Регистрация: 31.03.2009
Сообщений: 69
02.04.2009, 14:19     Портация кода Pascal #4
Всю прогу сразу не написать, а вот напр. удаление нолей
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
int UdalenieNolej(int *ms,int razmer){
 register int *ptr=ms;
 int counter=razmer;
 if(counter==0) return 0;// размер массива 0
 do{
   if(*ptr==0) {
    razmer--;
    if(razmer==0)return 0;
   *ptr= (*(ptr+1));
   }//endif 
  ptr++;
 }while(--counter);
return razmer;
}
функция возвращает размер получившегося массива без нулей или нуль, если кроме нулей ничего нет
feelossoff
0 / 0 / 0
Регистрация: 28.03.2009
Сообщений: 77
02.04.2009, 18:19  [ТС]     Портация кода Pascal #5
ребята! делается это ещё проще помните метод пузырька?! короче просто берём и дописываем строку одну и всё! вот пример(сам допетрал ибо здавать надо было сёдня практику)
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
#include <iostream.h>
void del(float A[], int n)
{
int i, j;
float temp;
for(i = n-1 ; i > 0 ; i--)
{  for(j = 0 ; j < i ; j++)
{  if( A[j] < A[j+1] )
{   temp = A[j];
         A[j] = A[j+1];
         A[j+1] = temp;   }}}}
main()
{   float x[10];
        float y[10];
        int i, a=5;
        float el;
for (i=0; i<a;i++)  {
 
cout<<"a["<<i<<"]= ";
cin>>el;
x[i]=el;           }
del(x, a);
for (i=0; i<a;i++) {
if(x[i]!=0)
cout<<" "<<x[i]<<" "; }}
Yandex
Объявления
02.04.2009, 18:19     Портация кода Pascal
Ответ Создать тему
Опции темы

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