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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
AlexDKey
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 8
#1

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

11.06.2012, 12:10. Просмотров 236. Ответов 0
Метки нет (Все метки)

Люди) есть проблемко с курсовой задачкой, вроде как нашел нужную, да вот только она не на том языке что мне нужен =(
задачка большая, звучит так: Создать список, содержащий сведения об отправлении поездов дальнего следования с Казанского вокзала. Структура записи: номер поезда, станция назначения, время отправления, время в пути, наличие билетов. Кол-во записей запрашивается с клавиатуры. Написать программу, которая позволяет получить следующую информацию:
- время отправления поездов в город Х во временном интервале от А до В часов:

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.
может ли кто-нибудь на с++ перевести?)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2012, 12:10
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с паскаля на с++ (C++):

C Паскаля перевести в С++ - C++
Дана матрица размера M x N. Удалить столбец, содержащий максимальный элемент матрицы. program Matrix64; var ...

Перевести из Паскаля в с++ - C++
Народ помогите код переделать в с++ пожалуууууууууйста var i, j, k: integer; p: boolean; s1, s2: string; begin ...

Перевести с Паскаля на Си - C++
uses crt; var a,n:Longint; b:boolean; begin clrscr; write('a=');readln(a); n:=2; while a&gt;0 do begin b:=true;

Перевести с Паскаля на C++ - C++
как заменить этот же код на С++ ?? const nmax = 100; type arr = array of real; var a:arr; i,j,n,imax,jmax:integer; ...

Перевести из паскаля в с++ - C++
var a, i, b: integer; begin read(a); b := 0; for i := 1 to a do if a mod i = 0 then b := b + 1; ...

перевести с Паскаля в с++ - C++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); if Length(s) in then k:=1 else...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2012, 12:10
Привет! Вот еще темы с ответами:

Перевести с паскаля на си - C++
Здравствуйте,помогите пожалуйста перевести с паскаля на си var s: string; i: byte; sum,c,k,max: integer; begin sum:=0;...

Перевести с паскаля на C++ - C++
помогите перевести с паскаля на C++ , очень надо.:) var n,i,j,k,l:longint; begin readln(n); repeat i:=i+1; ...

Перевести из паскаля в c++ - C++
собственно вот паскалевский код, тут через файлы. На с++ надо через ввод/вывод. var N:integer; E:integer; En1,En2:integer; ...

Перевести с паскаля на С++ - C++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:=''; For i:=Length(s) downto 1 do ...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru