Среда, 30 Ноября 2022, 11:32

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помогите с портированием несложного кода на Паскаль (с С на Паскаль)
Помогите с портированием несложного кода на Паскаль
RorschachДата: Понедельник, 30 Января 2012, 21:13 | Сообщение # 1
участник
Сейчас нет на сайте
Товарисчи, нужна ваша помощь в переписывании следующего кодеса на Паскале:
Code


int main()
{
     unsigned int M, N;
     float raw_matrix[9][11];
     float *result_array;

     printf("enter M & N:\n");
     scanf("%i%i",&M,&N);
     printf("--------enter matrix--------\n");

     for(int j = 0; j<N; j++)
         for(int i = 0; i<M; i++)
         {
             scanf("%f",&raw_matrix[i][j]);
         }

     int sz = N/4;
     result_array = new float[M];

     for(int k = 0; k<M; k++)
     {
         result_array[k] = raw_matrix[k][3];
         for(int t = 1; t<=sz; t++)
         {
             if(raw_matrix[k][(t*4)-1] < result_array[k]) result_array[k] = raw_matrix[k][(t*4)-1];
         }

     }

        int n, swapped;
        do {
          swapped = 0;
          for (int i = 0; i < M - 1; i++) {
              if (result_array[i] < result_array[i+1]) {
                  n = result_array[i];
                  result_array[i] = result_array[i+1];
                  result_array[i+1] = n;
                  swapped = 1;
              }
          }
      } while (swapped);

     printf("\n\n\n");
     for(int s = 0; s<M; s++)
     {
         printf("%f\n",result_array[s]);
     }
}



Never compromise. Not even in the face of Armageddon.
05142Дата: Понедельник, 30 Января 2012, 21:18 | Сообщение # 2
постоянный участник
Сейчас нет на сайте
Сейчас попробую
Нет, передумал


mecinvader

Сообщение отредактировал 05142 - Понедельник, 30 Января 2012, 21:23
RorschachДата: Понедельник, 30 Января 2012, 23:55 | Сообщение # 3
участник
Сейчас нет на сайте
Да ты прям человек слова smile Ладно, будем ждать благодетелей, благо код элементарный.

Добавлено (30.01.2012, 23:55)
---------------------------------------------
Бррр, неужели никто не может помочь? Там же кода всего три с половиной строчки


Never compromise. Not even in the face of Armageddon.
VinchensooДата: Понедельник, 30 Января 2012, 23:59 | Сообщение # 4
Злобный социопат с комплексом Бога
Сейчас нет на сайте
Rorschach, лень))

Да и компила паскаля нету, да и версия не указана, что-то где-то может не совпадать.


RorschachДата: Вторник, 31 Января 2012, 00:06 | Сообщение # 5
участник
Сейчас нет на сайте
Там из функций только Read да Write, что там может не совпадать.

Never compromise. Not even in the face of Armageddon.
VinchensooДата: Вторник, 31 Января 2012, 00:07 | Сообщение # 6
Злобный социопат с комплексом Бога
Сейчас нет на сайте
Rorschach, там работа с дин. памятью вроде или там статические массивы?

RorschachДата: Вторник, 31 Января 2012, 00:08 | Сообщение # 7
участник
Сейчас нет на сайте
В коде выше есть один динамический массив, но и его при желании можно лекго заменить на статический.

Never compromise. Not even in the face of Armageddon.
VinchensooДата: Вторник, 31 Января 2012, 10:20 | Сообщение # 8
Злобный социопат с комплексом Бога
Сейчас нет на сайте


Там куча лишних переменных, сохранял также, как у тебя были. Плюс возможны косяки с индексом массива, в цпп они от 0 до Н-1, а в паскале от 0 до Н в случае динамического. Ну пытался перевести правильно, в остальном дебаггер поможет, там все просто. У меня нет компилятора, чтобы проверить.

Писал на память, если что - компилятор скажет сам, что не так smile

Эх, как давно это было, прям молодость вспомнил:D


RorschachДата: Вторник, 31 Января 2012, 19:49 | Сообщение # 9
участник
Сейчас нет на сайте
Vinchensoo, спасибо.

Never compromise. Not even in the face of Armageddon.
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помогите с портированием несложного кода на Паскаль (с С на Паскаль)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2022 Рейтинг