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

Переделать код с Паскаля на С++ - C++

Восстановить пароль Регистрация
 
blond_blond
1 / 1 / 0
Регистрация: 31.03.2014
Сообщений: 43
26.06.2014, 00:25     Переделать код с Паскаля на С++ #1
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
Procedure dob;
Var
m,i:integer;
begin
Assign(F,'vb.txt');
reset(F);
clrscr;
writeln('Vvedite kol-vo novih zapisey: ');
readln(n);
seek(F,filesize(F));
for i:=1 to n do
begin
with gst do
begin
writeln('Vvedite FIO gostya: ');
readln(gst.FIO);
writeln('Vvedite nomer komnati: ');
readln(gst.nomer);
writeln('Vvedite cenu za sutki: ');readln(gst.cena);
writeln('Vvedite kol-vo sutok: ');
readln(gst.kolvo);
end;
Write(F,gst);
end;
close(F);
end;
 
procedure poisk;
var
i:integer;
h:string;
ch:char;
begin
reset(F);
clrscr;
h:=' ';
writeln('Vvedite FIO: ');
readkey;
repeat
read(ch);
until (ch=#10);
readln(h);
clrscr;
flag:=true;
while not eof(F) do
begin
Read(F, gst);
if (h=gst.FIO) then
begin
writeln('Naiden postoyalez: ');
writeln(h);
flag:=false;
break;
end;
end;
if flag then write('Ne naideno');
close(F);
readln;
end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2014, 00:25     Переделать код с Паскаля на С++
Посмотрите здесь:

C++ переделать из турбо паскаля в Cи
Переделать прогу с паскаля в Вижуал C++
C++ Журнал успеваемости студенческой группы (переделать с Паскаля на С++)
C++ как переделать на с++? с паскаля
Переделать с паскаля на с++ C++
Переделать с Паскаля на С++ C++
Как переделать код из паскаля в с++ C++
C++ Переделать код программы с паскаля на с++

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

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

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