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

Помогите перевести код с Паскаля на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Создание итератора map сдвинутого на n http://www.cyberforum.ru/cpp-beginners/thread835075.html
Доброго времени суток :) Допустим есть функция которая вернет константную ссылку на элемент. const Player& Team::GetPlayerByNumberInTeam(unsigned int number) const { std::map<int, Player*>::const_iterator iter = players.begin(); return *(iter->second); }
C++ Перевод программы на файловый ввод,вывод Здравствуйте,имеется программа которая переводит символы строки в азбуку Морзе,мне нужна аналогичная прога которая будет считывать 1 строку стекстового файла и выводить переведенный текст в консоль.Я пытался использовать разные функции типа ifstream ,fgets но уменякактоне получалось.Прошу,кому не трудно напишите пару строк как это можно сделать ,заранее благодарю! #include <iostream> #include... http://www.cyberforum.ru/cpp-beginners/thread835064.html
C++ Структура (программа, которая содержит базу данных кодов городов, станций и абонентов)
Люди помогите написать прогу!!!!!! Телефон можно условно разделить на три части код города (044) код телефона станции (527) код абонента (8222). Напишите программу, которая содержит базу данных кодов городов, станций и абонентов. В этой базе содержит информация о нескольких городов, в каждом городе - несколько станций, каждая станция предоставляет услуги нескольким абонентам. Программа и...
Реализовать алгоритм(А*) C++
Программный интерфейс должен обеспечить возможности: - задать произвольное количество вершин графа (не менее 10). - назначить каждой вершине эвристическую значимость (число). - задать произвольное количество ребер графа и назначить им весовые коэффициенты. - задать начальную вершину графа. - задать одну целевую вершину графа. - выбрать способ поиска кратчайшего пути. - вывести...
C++ Ипользование const с указателем, параметром функции http://www.cyberforum.ru/cpp-beginners/thread835032.html
Здравия желаю!:) Хотелось бы узнать, как можно работать с параметрами-указателями при работе функций вроде void f1(char *c){cout<<c;} void f2(const char *c){cout<<c;} void f3(char * const c){cout<<c;} void f4(const char * const c){cout<<c;} Если я не ошибаюсь, в 1 случае копию указателя из вызывающего метода и значения элементов массива можно изменять по своему усмотрению(предусмотрев...
C++ NetBeans+MySQL+C++ установил mySQL сервер и клиент, через netbeans пытаюсь что-то написать, связанное с mySQL, но на моменте #include <mysql.h> выдает ошибку mainSam.cpp:16:19: фатальная ошибка: mysql.h: Нет такого файла или каталога. Если написать #include <mysql/mysql.h> он находит библиотеку, но так работать нельзя, так как в подобном случае при подключении #include <mysql/my_global.h> в my_global.h есть... подробнее

Показать сообщение отдельно
jackiss
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 19
11.04.2013, 19:35     Помогите перевести код с Паскаля на C++
Помогите перевести код с Паскаля на C++
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
uses crt;
type
r=record;
film: string[50];
rej: string[50];
year: integer;
end;
var
f:file of r;
ch:char;
procedure add_rec;
var
item:r;
begin
if not FileExists('film.dat') then rewrite(f)
else begin
reset(f);
seek(f,filesize(f));
end;
writeln('Введите поля добавляемой записи');
write('Фильм: '); readln(item.film);
write('режиссер: '); readln(item.rej);
write('год: '); readln(item.year);
write(f,item);
close(f);
end;
procedure del_rec;
var
i,j,n:integer;
c:char;
m:array [1..50] of r;
begin
reset(f);
i:=0;
j:=1;
writeln('Файл содержит ', filesize(f),' записей');
write('Введите номер удаляемой записи ');
readln(n);
while not eof(f) do begin
read(f,m[j]);
i:=i+1;
if i=n then begin
writeln('Запись №',i);
writeln('Фильм: ',m[j].film);
writeln('Режиссер: ',m[j].rej);
writeln('Год: ',m[j].year);
write('Удалить? (y/n) '); readln(c);
if c='n' then j:=j+1;
end
else j:=j+1;
end;
close(f);
rewrite(f);
for i:=1 to j-1 do
write(f,m[i]);
close(f);
end;
procedure show_file;
var
item:r;
i:integer;
begin
reset(f);
i:=0;
while not eof(f) do begin
read(f,item);
i:=i+1;
writeln('Запись №',i);
writeln('Фильм: ',item.film);
writeln('Режиссер: ',item.rej);
writeln('Год: ',item.year);
writeln('Нажмите ENTER');
readln;
end;
writeln('Файл содержит ',i,'записи(ей). Нажмите ENTER.');
readln;
close(f);
end;
procedure select;
var
item:r;
i:integer;
o1,o2:integer;
begin
reset(f);
i:=0;
write('Введите промежуток времени '); readln(o1,o2);
while not eof(f) do begin
read(f,item);
if (item.year>=o1) and (item.year<=o2) then begin
i:=i+1;
writeln('Запись №',i);
writeln('Фильм: ',item.film);
writeln('Режиссер: ',item.rej);
writeln('Год: ',item.year);
writeln('Нажмите ENTER');
readln;
end;
end;
writeln('Найдено ',i,' записей. Нажмите ENTER');
readln;
close(f);
end;
begin
assign(f,'film.dat');
repeat
clrscr;
writeln('Выберите действие');
writeln('1.Добавить запись ':40);
writeln('2.Удалить запись ':40);
writeln('3.Просмотреть запись ':40);
writeln('4.Поиск записей ':40);
writeln('5.Выход ':40);
readln(ch);
case ch of
'1':add_rec;
'2':del_rec;
'3':show_file;
'4':select;
'5':exit;
end;
until ch='5';
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 14:01. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru