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

Нужно переписать процедуры с Паскаля на функции в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Квадратные уравнения http://www.cyberforum.ru/cpp-beginners/thread370020.html
#include <iostream> #include <math.h> using namespace std; int main() { float a,b,c,d,di,x1,x2; cout<<"a=";cin>>a; cout<<"b=";cin>>b; cout<<"c=";cin>>c;
C++ Ошибка в Коде: error C2679 НЕ давно начал изучать С++. написал программу которая предоставлена в учебники но она у меня что то не компилируется Вот код: #include <iostream> #include <conio.h> #include <locale.h> using... http://www.cyberforum.ru/cpp-beginners/thread370018.html
Дружные функции C++
Завдання 1 1)створити програму, в якій будуть виводитись рядки таблиці, дружня функція виводе рядок 2 і 3. 2)функція дружнього класу рахує суму чисел третього стовпця. Прізвище| Ініціали| ...
With в C++ C++
Нужно заполнить структуру, не хочу писать постоянно имя структуры при этом, как поступить, если нет аналога with из паскаля?
C++ Заполнение одномерного массива и положительными, и отрицательными числами http://www.cyberforum.ru/cpp-beginners/thread369978.html
Как сделать так, чтобы массив а размерностью n заполнялся случайными числами, среди которых должны быть и отрицательные, и положительные? Как сделать заполнение массива только положительными...
C++ Каким будет результат функции? bool __fastcall razdelitel(char c) { AnsiString r=". ; , : = ( ) + - * / ^ = < > \n \r"; int r_leng = r.Length(); for (int i=1; i<=r_leng; i++) if (r == c) return true; return false; } Каким... подробнее

Показать сообщение отдельно
gvilon
1 / 1 / 0
Регистрация: 24.05.2011
Сообщений: 12

Нужно переписать процедуры с Паскаля на функции в С++ - C++

21.10.2011, 12:17. Просмотров 396. Ответов 1
Метки (Все метки)

Есть список. И есть процедуры для вывода списка и удаления первого элемента.
Не знаю как переписать эти процедуры на С++, потому что не знаю как в С++ передать переменную по значению как в procedure showList(Spysok: TList);
и как передать по ссылке как в procedure delElem(var PTB: TList);

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
type
  TList = ^List;
  List = record
    inf: byte;
    next: TList;
  end;
 
var
  first, current, last: TList;
 
procedure showList(Spysok: TList);
begin
  while Spysok <> nil do
  begin
    writeln(Spysok^.inf);
    Spysok := Spysok^.next;
  end;
end;
 
procedure delElem(var PTB: TList);
var
  current: TList;
begin
    current := PTB;
    PTB := PTB^.next;
    dispose(current);
end;

C++
1
2
3
4
struct TList {
    int inf1;
    TList *next;
};
Буду очень рад, если поможете.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.