Форум программистов, компьютерный форум 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 - очередь. Поля – количество элементов и указатель для динамического выделения памяти. Определить конструкторы: по умолчанию, копий и с параметром, обозначающим необходимое количество элементов. Функции add и get для занесения и извлечения соответственно. Функции isEmpty и isFull для определения состояния...
Нужно немного переделать программу нахождения компонент сильной связности в графе C++
В общем задание такое, нужно переделать эту программу, я не знаю как это сделать, помогите люди добрые)) #include <iostream> #include <stdexcept> #include <algorithm> #include <iterator> #include <vector> class Graph {
C++ Структура Vector http://www.cyberforum.ru/cpp-beginners/thread586010.html
Добрый день, помогите пожалуйста переделать чуть-чуть программу. Нужно чтобы вектор имел указатель не на float, а на byte и добавить код с вычислением произведения отрицательных элементов вектора. Спасибо. #include "stdafx.h" #include <iostream> using namespace std; struct vector { float *V;
C++ Перестановка элементов очереди Добрый день. У меня есть задание - Поменять местами первый и последний элементы в очереди. Вроде код написала правильный, но судя по тому, что не работает, то я ошибаюсь. #include <stdio.h> #include <conio.h> #include <string.h> #include <stdlib.h> #include <clocale> подробнее

Показать сообщение отдельно
rangerx
1908 / 1517 / 139
Регистрация: 31.05.2009
Сообщений: 2,876
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.
 
Текущее время: 23:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru