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

@Ali_g · Регистрация: 31.05.2013

Студворк — интернет-сервис помощи студентам

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.

@Kiva · 31.05.2013, 02:09

Сообщение от 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 · 31.05.2013, 08:05 **[ТС]**

Спасибо огромное! Правда немного не так стала работать...
Она не должна отсортировывать строку, где число выполнений условия a[i][j]< a[i][j+1] (следующий элемент больше предыдущего) равно последнему элементу в строке

Добавлено через 33 минуты
В паскалевском коде буква К считает количество раз выполнения условия

@Kiva · 31.05.2013, 18:56

Не досмотрел сначала...Вот исправил. Теперь верно?

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 · 31.05.2013, 20:24 **[ТС]**

ДА) Спасибо большое, Вы

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Ali_g 0 / 0 / 0 Регистрация: 31.05.2013 Сообщений: 3
	31.05.2013, 08:05 [ТС]
	Спасибо огромное! Правда немного не так стала работать... Она не должна отсортировывать строку, где число выполнений условия a[i][j]< a[i][j+1] (следующий элемент больше предыдущего) равно последнему элементу в строке Добавлено через 33 минуты В паскалевском коде буква К считает количество раз выполнения условия 0

@Ali_g 0 / 0 / 0 Регистрация: 31.05.2013 Сообщений: 3
	31.05.2013, 20:24 [ТС]
	ДА) Спасибо большое, Вы 0