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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@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