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

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

Войти
Регистрация
Восстановить пароль
 
АДМ
1 / 1 / 0
Регистрация: 04.12.2009
Сообщений: 13
#1

Перекодировка с Паскаля на C++ - C++

05.12.2009, 18:54. Просмотров 415. Ответов 1
Метки нет (Все метки)

задача:задан в массиве вещественных чисел {aij} i и j от т1 до n, упорядочить по убыванию столбец,сумма элементов которого больше заданного числа B,код паскаля

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
program masss;
const
 m = 10;
 n = 15;
type
 DataItem = array [1..m,1..n] of real;
 MasItem = array [1..n] of real;
var
 A : DataItem;
 ST : MasItem;
 sum,x : real;
 i,j,k : byte;
begin
 
  randomize;
  writeln ('Input:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      A[i,j]:=random(3);
      write(A[i,j]:0:1,'|')
    end;
    writeln
  end;
  writeln;
  writeln ('Sum:');
  sum:=0;
  for i:=1 to n do
  begin
    for j:=1 to m do sum:=sum+A[j,i];
    ST[i]:=sum;
    write (i,' column: (',sum:0:1,'); ');
    sum:=0
  end;
  writeln;
 
  for i:=1 to n-1 do
  begin
    j:=i;
    for k:=i+1 to n do
     if ST[k]>ST[j] then j:=k;
    x:=ST[j];
    ST[j]:=ST[i];
    ST[i]:=x;
    for k:=1 to m do
    begin
      x:=A[k,i];
      A[k,i]:=A[k,j];
      A[k,j]:=x
    end
  end;
  writeln;
  writeln ('Output:');
  for i:=1 to m do
  begin
    for j:=1 to n do write (A[i,j]:0:1,'|');
    writeln
  end;
 
  readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2009, 18:54     Перекодировка с Паскаля на C++
Посмотрите здесь:

C++ Перекодировка файла в C++
C++ С паскаля на С++
Из паскаля в С++ C++
Перекодировка исходного файла под ДОС C++
C++ libxslt libxml2 - Перекодировка
С паскаля в С++ C++
C++ С Паскаля на С++
C++ с паскаля в с++
с паскаля на с++ C++
C++ Перекодировка из EBCDIC в win1251
C++ Перекодировка текста для вывода в окне
C++ Перекодировка текстовых файлов

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
vova_c
5 / 5 / 0
Регистрация: 03.12.2009
Сообщений: 19
06.12.2009, 15:49     Перекодировка с Паскаля на C++ #2
я же тебе скидивал алгоритмы....

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
#include <stdlib.h>
#include <stdio.h>
#include <iostream.h>
 
void main(){
 
int n,b;
cout<<"введите количество элементов в строке и столбце";
cin>>n;
int a[][];
a=new int [n];   //создание массива а (динамического)
for (int i=0;i<n;i++) for (int i=0;i<n;i++)  
for (int j=0;i<n;j++) 
cout<<a[i][j];
int a[i]=new int [n];
 
 
for (int i=0;i<n;i++)  //заполнение
for (int j=0;i<n;j++) 
cin>>a[i][j];
 
for (int i=0;i<n;i++)  
for (int j=0;i<n;j++) 
cout<<a[i][j];
 
cout<<"введите B";
cin>>b;
 
int B[]=new int [n] 
for (int i=0;i<n;i++)  //заполнение B
{B[i]=0;
for (int j=0;i<n;j++) 
B[i]+=a[j][i]
}
 
double х; int j;  //сортировка
 for ( int i=1; i < m; i++) {  
  х = B[i]; 
  for ( int k=0; k < n; k++)
   c[k]=a[k][i];
      for ( j=i-1; j>=0 && B[j] < х; j--)
      {B[j+1] = B[j]; 
   for ( int k=0; k < n; k++) 
          a[k][j+1]=a[k][j];} 
     B[j+1] = х; 
     for ( int k=0; k < n; k++) 
     a[k][j+1]=c[k];
  }
 
 
for (int i=0;i<n;i++)  
for (int j=0;i<n;j++) 
cout<<a[i][j];
}

Где-то так должно быть выглядеть... прошу прощения если что не так, так я ща не дома, а под рукой компилятора нет...

З.Ы. Лучше самому написать чем с паскаля переводить)))
Yandex
Объявления
06.12.2009, 15:49     Перекодировка с Паскаля на C++
Ответ Создать тему
Опции темы

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