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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ создание игры, быстродействию http://www.cyberforum.ru/cpp-beginners/thread602599.html
Андре Ламот пишет что разницы между игроком и компьютером почти нет(в определённой сфере), всё действие ИИ сводится к посылке сообщений в процедуру обработки оконных обобщений которая одинакова для игрока и компьютера, вот мне интересно будут ли проблемы(события игрока будут поздно отрабатываться) если игроков будет пару сотен?
C++ stl в VS 2008 vector <int> size; deque <int> COUNTER; вылазиют ошибки синтаксическая ошибка: отсутствие ";" перед "<" отсутствует спецификатор типа - предполагается int. Примечание. C++ не поддерживает int по умолчанию как исправить? в других компиляторах всё нормально Добавлено через 2 минуты ошибку нашёл надо было std:: подставить. http://www.cyberforum.ru/cpp-beginners/thread602586.html
Как добавить перебор выборок? C++
Задается массив с клавиатуры. Нужно из 6 введенных цифр сделать полный перебор всех выборок из 3 элементов. тоесть если массив 1 2 3 4 5 6 - возможные выборки: 123 132 321 и т.д.#include "stdafx.h" #include <algorithm> // для сорт #include <ctime> #include <iostream> using namespace std; const int size=10; int main() { setlocale(0,"rus"); int i = 0;
C++ Коммандная строка
Нужно выполнить команду aapt dump badging Filename.apk и получить доступ к тому, что она показала. Полученные данные нужно обработать в программе. Как сделать это на С++? Добавлено через 43 минуты Также нужно, чтобы параметр Filename.apk задавался переменной, которая была задана до этого.
C++ Дано натуральное число n. -представить его как сумму квадратов http://www.cyberforum.ru/cpp-beginners/thread602563.html
Дано натуральное число n. Если возможно, то представить его как сумму квадратов двух натуральных чисел.
C++ Массив: Удалить из строки цифры Подскажите, мне необходимо написать программу, в которой при обращении к элементу массива нельзя использовать дополнительную переменную для вычисления его адреса, исходные данные вводятся с клавиатуры, максимальное количество символов в строке - 80. Количество строк - 5. На экран монитора вывести исходный массив и результат расчёта Задание: Удалить из строки цифры (Дополнительные строки не... подробнее

Показать сообщение отдельно
AlexDKey
0 / 0 / 0
Регистрация: 28.05.2012
Сообщений: 8
11.06.2012, 12:10     Перевести с паскаля на с++
Люди) есть проблемко с курсовой задачкой, вроде как нашел нужную, да вот только она не на том языке что мне нужен =(
задачка большая, звучит так: Создать список, содержащий сведения об отправлении поездов дальнего следования с Казанского вокзала. Структура записи: номер поезда, станция назначения, время отправления, время в пути, наличие билетов. Кол-во записей запрашивается с клавиатуры. Написать программу, которая позволяет получить следующую информацию:
- время отправления поездов в город Х во временном интервале от А до В часов:

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.
может ли кто-нибудь на с++ перевести?)
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 00:34. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru