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

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

Восстановить пароль Регистрация
 
Рейтинг: Рейтинг темы: голосов - 1, средняя оценка - 1.00
jackiss
0 / 0 / 0
Регистрация: 31.03.2013
Сообщений: 19
11.04.2013, 19:35     Помогите перевести код с Паскаля на C++ #1
Помогите перевести код с Паскаля на 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2013, 19:35     Помогите перевести код с Паскаля на C++
Посмотрите здесь:

C++ Перевести код с Паскаля на С++
C++ Перевести код паскаля в с++
Перевести код программы Паскаля в код С++ C++
C++ помогите перевести программу с паскаля на С++
C++ Перевести код с паскаля на C++
C++ Перевести код из Паскаля в С++
C++ Перевести код с Паскаля на С++
Необходимо перевести код с паскаля на С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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