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

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

Войти
Регистрация
Восстановить пароль
 
AlexNY
Сообщений: n/a
#1

Помогите, пожалуйста, перевести код с Паскаля на С++ - C++

12.04.2012, 12:56. Просмотров 299. Ответов 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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
program Virazhenie;
//uses crt;
type
  tmatr = array[1..4, 1..3] of real;
 
var
  F, Q, A1, A2, A3, A4, A5, x, y, z, x1: real;
  i, j: integer;
  g: boolean;
  a, b, c, d: array [1..4] of real;
  matr: tmatr;
  matr1: array[1..5] of real;
  rez: array[1..4, 1..4] of string;
  str1: string;
 
procedure vvod(var b: boolean);
var
  f: text;
  s, s1, s2: string;
  err1, err2, err, i: integer;
begin
  assign(f, 'input.txt');
  if FileExists('input.txt') then begin
    reset(f);
    b := true;
    i := 1;
    while b and not seekeof(f) and (i <= 5) do 
    begin
      readln(f, s1);
      readln(f, s);
      val(s, matr1[i], err);
      b := (err = 0);
      inc(i);
    end;
    if not b then 
    begin
      writeln('Некорректные данные');
    end   
    else begin
      readln(f, s);
      readln(f, s1);
      val(s1, x, err);
      b := (err = 0);
      if b then begin
        i := 1;
        while not seekeof(f) and b and (i <= 4) do 
        begin
          readln(f, s);
          readln(f, s1);
          val(s1, a[i], err);
          b := (err = 0);  
          inc(i);
        end;
        i := 1;
        while not seekeof(f) and b and (i <= 4) do 
        begin
          readln(f, s);
          readln(f, s1); 
          val(s1, matr[i, 1], err);
          b := (err = 0);
          readln(f, s1);
          val(s1, matr[i, 2], err1);
          readln(f, s1);
          val(s1, matr[i, 3], err2);
          b := ((err = 0) and (err1 = 0) and (err2 = 0));
          inc(i);
        end;
      end
                              else 
      begin
        writeln('Некорректные данные');
      end;        
      if not b then 
      begin
        writeln('Некорректные данные');
      end;        
    end; 
    close(f);
  end
    else 
  begin
    writeln('Такого файла не существует');
  end;         
end;
 
function primer(y, z: real): real;
begin
  F := (sqrt(Q) + sin(z / 180 * pi) / cos(z / 180 * pi)) * (cos(y * y) / sin(y * y) - exp(sin(z / 180 * pi) / cos(z / 180 * pi)));
end;
 
procedure vivod;
var
  i, j: integer;
  f: text;
begin
  assign(f, 'output.txt');
  rewrite(f);
  writeln('                Таблица результатов':44);
  writeln('-----------------------------------------------------------------------------');
  writeln('|':5, 'z1':10, '|':8, 'z2':10, '|':8, 'z3':10, '|':8, 'z4':10, '|':8);
  writeln('----|-----------------|-----------------|-----------------|-----------------|');
  for i := 1 to 4 do 
  begin
    write('y':2, i, ' |');
    for j := 1 to 4 do
      write(rez[i, j]:14, '|':4);
    writeln;
    write('----|-----------------|-----------------|-----------------|-----------------|');
    writeln;
  end;     
  writeln(f, '                Таблица результатов':44);
  writeln(f, '-----------------------------------------------------------------------------');
  writeln(f, '|':5, 'z1':10, '|':8, 'z2':10, '|':8, 'z3':10, '|':8, 'z4':10, '|':8);
  writeln(f, '----|-----------------|-----------------|-----------------|-----------------|');
  for i := 1 to 4 do 
  begin
    write(f, 'y':2, i, ' |');
    for j := 1 to 4 do
      write(f, rez[i, j]:14, '|':4);
    writeln(f);
    write(f, '----|-----------------|-----------------|-----------------|-----------------|');
    writeln(f);
  end;
  close(f);
end;
 
begin
  vvod(g);
  if g then begin
    for i := 1 to 4 do 
      for j := 3 downto 2 do 
        if matr[i, j] >= 60 then begin
          matr[i, j] := matr[i, j] - 60;
          matr[i, j - 1] := matr[i, j - 1] + 1;
        end;
    x1 := 1;
    for i := 1 to 5 do 
    begin
      q := q + matr1[i] * x1;
      x1 := x1 * x
    end;
    for i := 1 to 4 do
      matr[i, 1] := matr[i, 1] + matr[i, 2] / 60 + matr[i, 3] / 3600;
    for i := 1 to 4 do
      for j := 1 to 4 do
      begin
        y := a[i];
        z := matr[j, 1];
        if sin(y) <> 0 then
          if cos(z / 180 * pi) > 0.00000000000001 then
            if Q >= 0 then begin
              primer(y, z);
              str(f, str1);
              rez[i, j] := copy(str1, 1, pos('.', str1) + 5);                                                                   
            end 
            else rez[i, j] := 'решений нет'    
          else rez[i, j] := ' решений нет'
        else rez[i, j] := 'решений нет';
      end;
    vivod;
  end;
  readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2012, 12:56
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Помогите, пожалуйста, перевести код с Паскаля на С++ (C++):

помогите перевести программу с паскаля на С++ - C++
Ребят , помогите перевести программу с паскаля на С++ , или подскажите как написать нечто подобное. Заранее благодарен. Вот задание : ...

Помогите перевести программу с Паскаля на С++ - C++
function IsPowerN(K: integer; N: byte): boolean; var i: byte; res: integer; begin res := 1; //начальное значение степеня...

Перевести код из Паскаля в С++ - C++
Помогите, пожалуйста перевести в с++ uses crt; const nmax=20; var a:array of integer; n,m,i,j,k:byte; s,x:integer; ...

Перевести код с Паскаля на С++ - C++
Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и августе, которая хранится в...

Перевести код с Паскаля на С++ - C++
Program proga; uses crt; Type gostinica= record FIO:string; nomer:integer; cena:integer; kolvo:integer; itogo: integer; ...

Перевести код паскаля в с++ - C++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности символов и заменить их другой...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2012, 12:56
Привет! Вот еще темы с ответами:

Перевести код с паскаля на C++ - C++
По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N! (факториала числа N). ...

Перевести код из Паскаля в Си++ - C++
Переведите пожалуйста из Паскаля в Си++, кому не сложно.

Перевести код с Паскаля на Си++ - C++
Добрый всем день! Будьте добры, перепишете пожалуйста данную программу из паскаля на си++. Буду очень благодарен. Я сам Паскаль не знаю....

Перевести код программы Паскаля в код С++ - C++
В массиве Х (15) найти произведение и количество элементов расположенных между наибольшими и наименьшими элементами кто может перевести...


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

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

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