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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Ali_g
0 / 0 / 0
Регистрация: 31.05.2013
Сообщений: 3
#1

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

31.05.2013, 00:44. Просмотров 332. Ответов 4
Метки нет (Все метки)

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++
Дали программу, а я в паскали совершенно не шарю, помогите перевести в С++ uses crt; const nmax=20; type frac=record ...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++. Я просто не понимаю как его переписать. program Z2; const mx=1000; var a,b:...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++, не знаю как также объявляется массив :( const a=3; b=4; var x,y,u:array...

Перевести эту программу на С++ с паскаля - C++
Кто может перевести эту программу на С++ вот задание 1 определит колличество строк без нуле 2 сложить характеристические ряды (это...

Нужно перевести программу из Паскаля в С++ - C++
К сожалению С++ только начали изучать, а программ задали много Delphi знаю хорошо Задача 1.Составить программу упорядочения по...

помогите перевести программу с паскаля на С++ - C++
Ребят , помогите перевести программу с паскаля на С++ , или подскажите как написать нечто подобное. Заранее благодарен. Вот задание : ...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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
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();
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2013, 20:24     Надо перевести программу из ПАСКАЛЯ в СИ
Еще ссылки по теме:

Нужно перевести программу из Паскаля в С++ - C++
Помогите пожалуйста перевести. Из Паскаля в С++ Код программы Паскаля: program Hello; var i:integer; begin ...

Помогите перевести программу с Паскаля на С++ - C++
function IsPowerN(K: integer; N: byte): boolean; var i: byte; res: integer; begin res := 1; //начальное значение степеня...

перевести программу из паскаля в с++(для среды Borland C++) - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие: дан символ С, изображающий цифру или...

перевести программу из паскаля в с++ (для среды Borland C++). Дана матрица размера MxN. Поменять местами столбец с номером N и первый из столбцов - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие:дана матрица размера MxN. Поменять местами...

Путем перестановок строк и столбцов (целиком) элемент надо переместить в правый верхний угол подмассива (Перевести программу в c++) - C++
program zadanie_5; uses crt; const nn=5; var i, j, imax, jmax, n, k, m: integer; a: array of real; r: real;...

Перевести из Паскаля в с++ - C++
Народ помогите код переделать в с++ пожалуууууууууйста var i, j, k: integer; p: boolean; s1, s2: string; begin ...


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

Или воспользуйтесь поиском по форуму:
Ali_g
0 / 0 / 0
Регистрация: 31.05.2013
Сообщений: 3
31.05.2013, 20:24  [ТС]     Надо перевести программу из ПАСКАЛЯ в СИ #5
ДА) Спасибо большое, Вы
Yandex
Объявления
31.05.2013, 20:24     Надо перевести программу из ПАСКАЛЯ в СИ
Ответ Создать тему
Опции темы

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