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

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

Восстановить пароль Регистрация
 
AlexDKey
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 8
11.06.2012, 12:10     Перевести с паскаля на с++ #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
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
Program Vokzal;
uses crt;
const
k=3
m:array [1..k] of string [9]=('create a file','Open the file','Exit');
var
i:byte;
ch:char;
n:byte;
procedure menu (v:byte);
  begin
for i:=1 to k do
begin
textcolor (white);
Window ((i-1)*11+24,1,i*11+24,2);
if i=v then
TextBackground (red)
else
TextBackground (blue)
write (m[i]);
end;
n:=v;
TextBackground (blue);
windows (2,3,79,24);
clrscr;
textbackground (black);
windows (1,25,80,25);
textcolor (white);
gotoxy (65,1);
end;
procedure knopka1;
type blackfest=record
     number:integer;
     station:string;
     time:integer;
     time1:integer;
     tickets:integer;
     end;
var
  f:file of blackfest;
  buf:Avia;
  vidp:char;
begin
TextBackground (blue);
window (2,3,79,24);
clrscr;
textcolor (white);
readkey;
   assign (f,'D:\blackfest.dat');
   rewrite (f);
   vidp:='y';
   while vidp='y' do
   begin
writeln ('enter the number of trains');
readln (buf.number);
writeln ('Enter the destination station');
readln (buf.station);
writeln('Enter the time of departure');
readln (buf.time);
writeln ('Enter travel time');
readln (buf.time1);
writeln ('Enter the number of available tickets');
readln (buf.tickets);
writeln ('Continue? y - YES, N - NO');
readln (vidp);
  while not eof (f) do
       end;
    end;
  procedure knopka2;
  begin
       end;
  begin
  n:=1;
  repeat
  window (1,1,80,25);
  TextBackground (black);
  clrscr;
   menu (n);
   ch:=readkey;
   if ch = #0 then
   ch:=readkey;
   case ch of
  #27:halt;
  #77:
   begin
  if n<3 then
  menu (n+1)
  else
  menu (1)
  end;
  #75:
begin
if n>1 then
menu (n-1)
else
menu (3)
end;
#13;
begin
case n of
  1:knopka1;
  2:knopka2;
  3:halt;
end
end
end;
until false;
end.
может ли кто-нибудь на с++ перевести?)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2012, 12:10     Перевести с паскаля на с++
Посмотрите здесь:

Перевести из паскаля в C++ C++
Перевести из паскаля в С C++
C++ Перевести с паскаля на Си++
C++ C Паскаля перевести в С++
C++ Перевести с Паскаля на С++
C++ Перевести с Паскаля на С++
C++ Перевести с Паскаля на С++
Перевести из паскаля в c++ C++

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

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

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