Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
АДМ
1 / 1 / 0
Регистрация: 04.12.2009
Сообщений: 13
1

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

05.12.2009, 18:54. Просмотров 992. Ответов 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.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2009, 18:54
Ответы с готовыми решениями:

Построить треугольник Паскаля. Используя треугольник Паскаля, вычислить 𝑘−ое число Фиббоначчи. Нумерация чисел Фиббона
#include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); ...

Перекодировка файла в C++
Работаю с С++ в юниксе. Компилятор - консольный gcc. Надо прочесть файлы в кодировках...

Перекодировка текста
Здравствуйте! Не знаю в каком разделе создать тему, напишу здесь. Возникла такая ситуация:...

Перекодировка из EBCDIC в win1251
Помогите пожалуйста составить прогу перекодировки файла из EBCDIC в win1251

Перекодировка текстовых файлов
Всем привет. По курсовому проекту возник вопрос. Я попытался сначала сделать на Delphi, всё...

1
vova_c
5 / 5 / 1
Регистрация: 03.12.2009
Сообщений: 19
06.12.2009, 15:49 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];
}

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

З.Ы. Лучше самому написать чем с паскаля переводить)))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2009, 15:49

libxslt libxml2 - Перекодировка
Может кто знает как заставить указанные либы понимать на вход cp1251 и на выход соотвественно??? ...

Перекодировка бинарного файла
Имеется бинарный файл базы данных.Необходимо поля базы данных из кодировки CP866 перекодировать в...

Перекодировка строки из UTF8 в cp1251
Доброго времени суток. Почему не получается из UTF8 преобразовать в cp1251? std::string...


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

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

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