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

С++ переделать в паскаль - C++

Восстановить пароль Регистрация
 
vityaa
 Аватар для vityaa
5 / 5 / 0
Регистрация: 06.02.2011
Сообщений: 52
24.05.2012, 23:44     С++ переделать в паскаль #1
Найти сумму элементов всех нечетных строк и четных столбцов матрицы NxM.

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
67
68
69
70
71
#include <iostream>
#include <cstring>
using namespace std;
 
const int M = 3;     //число строк
const int N = 3;     //число столбцов
 
//Ввод двумерного массива
void input(int **a)
{
  cout<<"input data : \n";
  for (int i=0; i<M; i++)
  {
    for (int j=0; j<N; j++)
      cin>>a[i][j];
  }
  cout<<"\n";
}
 
//Вывод двумерного массива
void output(int **a)
{
  cout<<"Output data: \n";
  for (int i=0; i<M; i++)
  {
    for (int j=0; j<N; j++)
      cout<<a[i][j]<<" ";
    cout<<"\n";
  }
}
 
int sum(int **a)
{
  int Sum = 0;
  for (int i=0; i<M; i++)
  {
    for (int j=0; j<N; j++)
    {
      if (!(i & 1) && (j & 1))
      {
    Sum += a[i][j];
      }
    }
  }
  cout<<"\n";
  return Sum;
}
 
//Удаление памяти, выделенной под массив
void del(int **a)
{
  for (int i=0; i<M; i++)
  {
    delete []a[i];
  }
  delete []a;
}
 
int main()
{
  int **a = new int *[M]; //Инициалихация двумерного динамического массива
  for (int i=0; i<M; i++)
  {
    a[i] = new int[N];
  }
  input(a);    //Ввод
  output(a);   //Вывод
  int Sum = sum(a);
  cout<<"Sum = "<<Sum<<"\n";
  return 0;
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2012, 23:44     С++ переделать в паскаль
Посмотрите здесь:

Переделать из С++ в С C++
Переделать из С++ в С C++
C++ переделать из С в с++
Помогоите переделать программу из Паскаль на СИ вот сама программа C++
C++ переделать из с++ в си
C++ Переделать из С в С++
C++ переделать на с++
Переделать из C# в C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
rangerx
1908 / 1517 / 139
Регистрация: 31.05.2009
Сообщений: 2,876
25.05.2012, 14:13     С++ переделать в паскаль #2
Free Pascal
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
program prog;
 
{$MODE FPC}
 
type
  PPInteger = ^PInteger;
 
// Ввод двумерного массива
procedure Input(a: PPInteger; m, n: Integer);
var
  i, j: Integer;
begin
  WriteLn('Input data: ');
 
  for i:= 0 to m - 1 do
    for j:= 0 to n - 1 do
      ReadLn(a[i][j]);
end;
 
// Вывод двумерного массива
procedure Output(const a: PPInteger; m, n: Integer);
var
  i, j: Integer;
begin
  WriteLn('Output data:');
  for i:= 0 to m - 1 do
  begin
    for j:= 0 to n - 1 do
      Write(a[i][j], ' ');
    WriteLn;
  end;
end;
 
function Sum(const a: PPInteger; m, n: Integer): Integer;
var
  i, j: Integer;
  res: Integer;
begin
  res:= 0;
  i:= 0;
 
  while i < m do
  begin
    j:= 1;
 
    while j < n do
    begin
      Inc(res, a[i][j]);
      Inc(j, 2);
    end;
 
    Inc(i, 2);
  end;
 
  sum:= res;
end;
 
var
  i, s: Integer;
  m, n: Integer;
  a: PPInteger;
begin
  Write('m: ');
  ReadLn(m);
 
  Write('n: ');
  ReadLn(n);
 
  a:= nil;
 
  GetMem(a, m * SizeOf(PInteger)); // Инициализация двумерного динамического массива
  for i:= 0 to m - 1 do
    GetMem(a[i], n * SizeOf(Integer));
 
  Input(a, m, n); // Ввод
  Output(a, m, n); // Вывод
 
  s:= Sum(a, m, n);
  WriteLn('Sum = ', s);
 
  for i:= 0 to m - 1 do // Удаление памяти, выделенной под массив
    FreeMem(a[i]);
  FreeMem(a);
 
  ReadLn;
end.
Yandex
Объявления
25.05.2012, 14:13     С++ переделать в паскаль
Ответ Создать тему
Опции темы

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