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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Структура TRAIN Исправьте ошибки http://www.cyberforum.ru/cpp-beginners/thread586021.html
Структура TRAIN с полями: - название пункта назначения; - номер поезда; - время отправления. ...
C++ Создать иерархию классов CVehicle -> CPlane, ССаг и CShip Помогите исправить ошибочки: Задание: "Создать абстрактный класс CVehicle. На его основе реализовать классы CPlane, ССаг и CShip. Классы должны иметь возможность задавать и получать координаты,... http://www.cyberforum.ru/cpp-beginners/thread586020.html
C++ Класс Queue
Добрый день. Кто-то может помочь с программой? Заранее спасибо. Создать класс Queue - очередь. Поля – количество элементов и указатель для динамического выделения памяти. Определить конструкторы:...
Нужно немного переделать программу нахождения компонент сильной связности в графе C++
В общем задание такое, нужно переделать эту программу, я не знаю как это сделать, помогите люди добрые)) #include <iostream> #include <stdexcept> #include <algorithm> #include <iterator>...
C++ Структура Vector http://www.cyberforum.ru/cpp-beginners/thread586010.html
Добрый день, помогите пожалуйста переделать чуть-чуть программу. Нужно чтобы вектор имел указатель не на float, а на byte и добавить код с вычислением произведения отрицательных элементов вектора....
C++ Перестановка элементов очереди Добрый день. У меня есть задание - Поменять местами первый и последний элементы в очереди. Вроде код написала правильный, но судя по тому, что не работает, то я ошибаюсь. #include <stdio.h>... подробнее

Показать сообщение отдельно
rangerx
1935 / 1544 / 141
Регистрация: 31.05.2009
Сообщений: 2,913
25.05.2012, 14:13
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.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru