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

Надо перевести программу из ПАСКАЛЯ в СИ - C++

Восстановить пароль Регистрация
 
Ali_g
0 / 0 / 0
Регистрация: 31.05.2013
Сообщений: 3
31.05.2013, 00:44     Надо перевести программу из ПАСКАЛЯ в СИ #1
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
uses crt;
var a:array[1..100,1..100] of integer;
    m,n,i,j,k,m1,n1,q1,q2:integer;
    c:integer;
begin
  clrscr;
  randomize;
  k:=0;
  writeln('Введите размер массива:');
  write('Строк-');readln(m);
  write('Столбцов-');readln(n);
 
    {Заполнение массива случайными однозначными числами}
    for i:=1 to m do
      for j:=1 to n do
        a[i,j]:=random(10);
 
  writeln; writeln('Исходный массив:');
 
    {Вывод массива на экран}
    for i:=1 to m do
      begin
        for j:=1 to n do
          write (a[i,j]:3);
        writeln;
      end;
 
    {Обработка массива}
    m1:=m; n1:=n;
    for i:=1 to m1 do
      begin
        for j:=1 to n1-1 do
          begin
            if a[i,j]<a[i,j+1] then k:=k+1;
          end;
        {Упорядочение строки}
        if k<>a[i,n]  then
          for q1:=1 to n do
            for q2:=q1 to n do
              if a[i,q1]>a[i,q2] then
                begin
                  c:=a[i,q1];
                  a[i,q1]:=a[i,q2];
                  a[i,q2]:=c;
                end;
        k:=0;
      end;
 
    writeln;
 
    {Вывод массива на экран}
    writeln('Результат:');
    for i:=1 to m do
      begin
        for j:=1 to n do
          write (a[i,j]:3);
        writeln;
      end;
 
  readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2013, 00:44     Надо перевести программу из ПАСКАЛЯ в СИ
Посмотрите здесь:

Перевести эту программу на С++ с паскаля C++
C++ Надо перевести текст с паскаля в С++
Нужно перевести программу из Паскаля в С++ C++
C++ перевести программу из паскаля в с++(для среды Borland C++)
перевести программу из паскаля в с++ (для среды Borland C++). Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Kiva
 Аватар для Kiva
5 / 5 / 0
Регистрация: 30.05.2013
Сообщений: 11
31.05.2013, 02:09     Надо перевести программу из ПАСКАЛЯ в СИ #2
Цитата Сообщение от Ali_g Посмотреть сообщение
Надо перевести программу из ПАСКАЛЯ в СИ
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
#include <iostream>
#include <time.h>
#include <conio.h>
 
using namespace std;
 
int main()
{
    setlocale(0,"");
    srand(time(NULL));
    int R, C;
    const int row = 100, col = 100;
    int a[row][col];
    cout << "Введите размер массива: " << endl;
    cout << "Строк: ";
    cin >> R;
    cout << "Столбцов: ";
    cin >> C;
    cout << "Исходный массив: " << endl << endl;
 
    //Заполнение массива случайными однозначными числами
    //Вывод массива на экран
    for (int i = 0; i < R; i++)   
    {      
        for (int j = 0; j < C; j++)  
        {  
            a[i][j]=rand()%10;    
            cout << a[i][j] << " ";    
        }  
        cout << endl;   
    }    
    cout << endl; 
    cout << "Результат: " << endl << endl;
 
    //Обработка массива
    for (int i = 0; i < R; i++)     
    {  
        for(int j = 0; j < C; j++)     
        {    
            for (int k = C - 1; k > j; k--)    
                //Упорядочение строки
                    if (a[i][k] < a[i][k-1])    
                    {    
                        int tmp = a[i][k];    
                        a[i][k] = a[i][k-1];    
                        a[i][k-1] = tmp;  
                    }        
                    cout<<a[i][j] << " ";  
        }   
        cout << endl;  
    }  
    getch();
}
Ali_g
0 / 0 / 0
Регистрация: 31.05.2013
Сообщений: 3
31.05.2013, 08:05  [ТС]     Надо перевести программу из ПАСКАЛЯ в СИ #3
Спасибо огромное! Правда немного не так стала работать...
Она не должна отсортировывать строку, где число выполнений условия a[i][j]< a[i][j+1] (следующий элемент больше предыдущего) равно последнему элементу в строке

Добавлено через 33 минуты
В паскалевском коде буква К считает количество раз выполнения условия
Kiva
 Аватар для Kiva
5 / 5 / 0
Регистрация: 30.05.2013
Сообщений: 11
31.05.2013, 18:56     Надо перевести программу из ПАСКАЛЯ в СИ #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
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
#include <iostream>
#include <time.h>
#include <conio.h>
 
using namespace std;
 
int main()
{
    setlocale(0,"");
    srand(time(NULL));
    int R, C, k = 0;
    const int row = 100, col = 100;
    int a[row][col];
    cout << "Введите размер массива: " << endl;
    cout << "Строк: ";
    cin >> R;
    cout << "Столбцов: ";
    cin >> C;
    cout << "Исходный массив: " << endl << endl;
 
    //Заполнение массива случайными однозначными числами
    //Вывод массива на экран
    for (int i = 0; i < R; i++)   
    {      
        for (int j = 0; j < C; j++)  
        {  
            a[i][j]=rand()%10;    
            cout << a[i][j] << " ";    
        }  
        cout << endl;   
    }    
    cout << endl; 
    cout << "Результат: " << endl << endl;
 
    //Обработка массива
    int c = C;
    int r = R;
    for (int i = 0; i < r; i++)
    {
        for (int j = 0; j < c - 1; j++)
        {
            if (a[i][j] < a[i][j+1])
                k++;
        }
        //Упорядочение строки
        if (k != a[i][C-1])
            for (int q1 = 0; q1 < C; q1++)     
                for(int q2 = q1; q2 < C; q2++)      
                    if (a[i][q1] > a[i][q2])    
                    {    
                        int tmp = a[i][q1];    
                        a[i][q1] = a[i][q2];    
                        a[i][q2] = tmp;  
                    } 
                    k = 0;
    }
    for (int i = 0; i < R; i++)   
    {      
        for (int j = 0; j < C; j++)  
        {      
            cout << a[i][j] << " ";    
        }  
        cout << endl;   
    }
    getch();
}
Ali_g
0 / 0 / 0
Регистрация: 31.05.2013
Сообщений: 3
31.05.2013, 20:24  [ТС]     Надо перевести программу из ПАСКАЛЯ в СИ #5
ДА) Спасибо большое, Вы
Yandex
Объявления
31.05.2013, 20:24     Надо перевести программу из ПАСКАЛЯ в СИ
Ответ Создать тему
Опции темы

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