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

Перевести код из языка Pascal в C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Написать функцию вычисления знака числа http://www.cyberforum.ru/cpp-beginners/thread1090266.html
Здравствуйте! Прошу прощения за глупый вопрос, мог бы спросить и у препода, но ждать долго, а сдать хочу досрочно) Задание прикрепил ниже. Насколько я понял, речь идет о первом знаке после запятой. Но что это за условие под фигурной скобкой?
C++ Изменить программу таким образом, чтобы ввод исходных данных осуществлялся из файла Изменить программу,я её закинул архивом , таким образом чтобы ввод исходных данных осуществлялся из файла, результат также должен выводиться в файл. #include <stdio.h> #include <conio.h> #include <stdio.h> #include <conio.h> #include <vcl.h> #include <iostream.h> #pragma hdrstop //--------------------------------------------------------------------------- http://www.cyberforum.ru/cpp-beginners/thread1090244.html
C++ Найти и вывести все числа из интервала (доделать)
Привет помогите пожалуйста доделать задачу она работает только не до конца правильно: 5. Дано натуральное двухзначное число N. Найти и вывести все числа из интервала от 1 до N-1, для которых произведение всех цифр совпадает с суммой цифр этого числа. Если таких чисел нет, то вывести соответствующее сообщение. например, N = 44. Числа: 18,24. #include <iostream> using namespace std; int...
C++ Вычислить Y при определенном значении X
Помогите решить в имберкадеро С++ , Дано действительное число X вычислить Y если 0 при Х < или = 0 Х при 0< X < или = 1 Х в 4 степени в остальных случаях И если не трудно распишите каждую строчку что вы сделали, заранее спасибо!
C++ Сортировка структуры по полю(тип - время) http://www.cyberforum.ru/cpp-beginners/thread1090222.html
Есть строка и в ней через точку с запятой написаны слова, числа, дата и др. Нужно отсортировать по дате эти строки. Они читаются из файла. Идея: считываем строку и по очереди суём в структуру string, int, дату(какой тип использовать?) Дальше отсортировать массив этих структур по дате. Нашёл https://ideone.com/YOKoH5 У меня просто полей больше. Вопрос как записать дату в структуру и что у меня...
C++ Запись системного времени в файл Добрый вечер! Тут такая проблема возникла... Зписываю системное время в файл, но через fprintf(f, "%ver:\n", version); переменная version не записывается в файл. Подскажите пожалуйста - как сделать запись системного времени в файл? ! void BindObject::fileLog() { FILE *f; //char buffer; time_t seconds = time(NULL); tm* t_m = localtime(&seconds); подробнее

Показать сообщение отдельно
ovrum
 Аватар для ovrum
0 / 0 / 0
Регистрация: 10.06.2013
Сообщений: 6
05.02.2014, 22:07     Перевести код из языка Pascal в C++
Помогите пожалуйста перевести код программы из языка Pascal в 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
program pas;
const
  N = 10;
 
var
  i, t, k, G: integer;
 
var
  al, bet, z, v, a: real;
  p, q, s, R: real;
  F, FZ: array[1..N - 1] of real;
  UP: array[1..N, 1..N - 1] of integer;
  RM, UM, CM: array[1..N, 0..N - 1] of real;
 
begin
  A := 0.8;
 
  for k := 1 to N do
    for t := 0 to N - 1 do
    begin
      RM[k, t] := 0;
      UM[k, t] := 0;
      RM[k, t] := 0
    end;
  {Ввод массивов RM, UM, CM}
  
RM[10,0]:=90;RM[10,1]:=85;RM[10,2]:=80;RM[10,3]:=75;RM[10,4]:=70;RM[10,5]:=70; RM[10,6]:=70;RM[10,7]:=60;RM[10,8]:=60;RM[10,9]:=60;
RM[9,0]:=100;RM[9,1]:=90;RM[9,2]:=80;RM[9,3]:=75;RM[9,4]:=70;RM[9,5]:=70;RM[9,6]:=65; RM[9,7]:=65;RM[9,8]:=65;
RM[8,0]:=110;RM[8,1]:=105;RM[8,2]:=100;RM[8,3]:=95;RM[8,4]:=90;RM[8,5]:=80;RM[8,6]:=70; RM[8,7]:=60;
RM[7,0]:=115;RM[7,1]:=110;RM[7,2]:=100;RM[7,3]:=90;RM[7,4]:=80;RM[7,5]:=70;RM[7,6]:=60;
RM[6,0]:=120;RM[6,1]:=115;RM[6,2]:=115;rm[6,3]:=110;RM[6,4]:=105;RM[6,5]:=100;
RM[5,0]:=125;RM[5,1]:=120;RM[5,2]:=110;RM[5,3]:=105;RM[5,4]:=100;
RM[4,0]:=135;RM[4,1]:=125;RM[4,2]:=110;RM[4,3]:=105;
RM[3,0]:=140;RM[3,1]:=135;RM[3,2]:=125;
RM[2,0]:=150;RM[2,1]:=140;
RM[1,0]:=155;
 
UM[10,0]:=20;UM[10,1]:=20;UM[10,2]:=25;UM[10,3]:=25;UM[10,4]:=30;UM[10,5]:=30; UM[10,6]:=35;UM[10,7]:=40;UM[10,8]:=45;UM[10,9]:=50;
UM[9,0]:=15;UM[9,1]:=20;UM[9,2]:=20;UM[9,3]:=25;UM[9,4]:=25;UM[9,5]:=30;UM[9,6]:=30; UM[9,7]:=35;UM[9,8]:=35;
UM[8,0]:=15;UM[8,1]:=15;UM[8,2]:=20;UM[8,3]:=20;UM[8,4]:=25;UM[8,5]:=25;UM[8,6]:=30; UM[8,7]:=30;
UM[7,0]:=15;UM[7,1]:=15;UM[7,2]:=20;UM[7,3]:=20;UM[7,4]:=25;UM[7,5]:=25;UM[7,6]:=30;
UM[6,0]:=10;UM[6,1]:=10;UM[6,2]:=15;Um[6,3]:=15;UM[6,4]:=20;UM[6,5]:=20;
UM[5,0]:=10;UM[5,1]:=10;UM[5,2]:=10;UM[5,3]:=15;UM[5,4]:=15;
UM[4,0]:=10;UM[4,1]:=10;UM[4,2]:=10;UM[4,3]:=10;
UM[3,0]:=5;UM[3,1]:=10;UM[3,2]:=10;
UM[2,0]:=5;UM[2,1]:=10;
UM[1,0]:=5;
 
 
CM[10,0]:=200;CM[10,1]:=220;CM[10,2]:=240;CM[10,3]:=250;CM[10,4]:=255;CM[10,5]:=260; CM[10,6]:=265;CM[10,7]:=270;CM[10,8]:=270;CM[10,9]:=270;
CM[9,0]:=200;CM[9,1]:=220;CM[9,2]:=240;CM[9,3]:=250;CM[9,4]:=255;CM[9,5]:=260;CM[9,6]:=265; CM[9,7]:=270;CM[9,8]:=270;
CM[8,0]:=200;CM[8,1]:=220;CM[8,2]:=240;CM[8,3]:=250;CM[8,4]:=255;CM[8,5]:=260;CM[8,6]:=265; CM[8,7]:=270;
CM[7,0]:=210;CM[7,1]:=215;CM[7,2]:=220;CM[7,3]:=225;CM[7,4]:=230;CM[7,5]:=235;CM[7,6]:=240;
CM[6,0]:=210;CM[6,1]:=215;CM[6,2]:=220;Cm[6,3]:=225;CM[6,4]:=230;CM[6,5]:=235;
CM[5,0]:=210;CM[5,1]:=220;CM[5,2]:=230;CM[5,3]:=240;CM[5,4]:=250;
CM[4,0]:=210;CM[4,1]:=220;CM[4,2]:=230;CM[4,3]:=240;
CM[3,0]:=220;CM[3,1]:=230;CM[3,2]:=240;
CM[2,0]:=220;CM[2,1]:=225;
CM[1,0]:=220;
    
  for k:=1 to N do for i:=0 to 9 do CM[k,i]:=CM[k,i]/5;
  K := N;
  Z := RM[k, 0] - UM[k, 0];
  for t := 1 to k - 1 do
  begin
    al := RM[k, t] - UM[k, t];
    bet := z - CM[k, t];
    v := bet;
    G := 2;
    {замена};
    if al > bet
    then begin
      v := al;
      g := 1; {сохранение};
      end;
    F[t] := V;
    UP[k, t] := G;
  end;{end no t}
 
  writeln ('k= ', k:2);
  for t := 1 to k - 1 do
  begin
    writeln( 'T= ', T:1, '  F[', t, ' ]= ', F[t]:6:1, '  UP[ ', k, ',', t, ' ] = ', UP[K, T]:1);
  end;
  for k := N - 1 downto 1 do
  begin
    writeln(' k= ', k);
    Z := RM[k, 0] - UM[k, 0];
    for t := 1 to k - 1 do
    begin
      al := RM[k, t] - UM[k, t];
      bet := Z - CM[k, t];
      p := F[t];
      q := f[t + 1];
      s := al + A * q;
      R := bet + a * p;
      v := R;
      g := 2;
      if s > R then
      begin
        V := S;
        g := 1;
      end;
      FZ[t] := v;
      UP[k, t] := g;
      writeln('fz[', t, ']= ' ,v:6:1, '  UP[ ', k, ' ', t, ']= ', g);
    end; {end цикла по t}
    for t := 1 to k - 1 do
      F[t] := FZ[t];
    for i := k to N - 1 do
      F[i] := -1e8;
  end; {end цикл по k}
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 23:16. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru