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

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

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

Перевод кода Pascal в код C - C++

06.01.2012, 17:09. Просмотров 296. Ответов 0
Метки нет (Все метки)

Не получается перевести код в 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
while pos('x^',st) > 0 do
    begin
      i:=pos('x^',st);
      j:=i+1;
      repeat
        j:=j+1;
      until (st[j]='+')or(st[j]='-')or(j=length(st));
      if j=length(st) then begin s1:=copy(st,i+2,j-i-1);   n2:=j;   end
                      else begin s1:=copy(st,i+2,j-1-i-1); n2:=j-1; end;
      val(s1,ps,code);
      mks[ps]:=mks[ps]+1;
      j:=i;
      repeat
        j:=j-1;
      until (st[j]='+')or(st[j]='-')or(j=1);
      n1:=j;
      if j=1 then begin s1:=copy(st,1,i-1);  n1:=1;  end
             else begin s1:=copy(st,j,i-j-1); n1:=j; end;
      val(s1,km,code);
      mkm[mks[ps],ps]:=km;
      delete(st,n1,n2-n1+1);
    end;
  for i:=0 to 5 do
    if mks[i] > 0 then
      begin
        km:=0.0;
        for j:=1 to mks[i] do km:=km+mkm[j,i];
        mkm[1,i]:=km;
      end;
 
  writeln;
  writeln('Запись многочлена после приведения подобных членов:');
  for i:=0 to 5 do
    if mks[i] > 0 then
      begin
        if mkm[1,i] > 0 then write('+');
        write(mkm[1,i]:6:2);
        write('x^',i);
      end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2012, 17:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод кода Pascal в код C (C++):

Перевод кода из Pascal в C++ - C++
Помогите пожалуйста)) Дано: A 5*4 формируемый массив B 5*4, где bij=i+3,если i>=j j-2 - иначе, i=1..5, j=1..4 Условия...

Перевод кода с Pascal - C++
var k,n,m:integer; x,s,p,t:real; begin repeat write('x<>0 x=');{х в знаменателе, исключаем заведомое деление на 0} readln(x);...

Перевод кода с Pascal - C++
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; ...

Перевод кода с Pascal на С++ - C++
uses crt; function Summ(n:longint):byte; var m:longint; s:byte; begin s:=0; m:=n; while m>0 do begin s:=s+m mod...

Перевод кода с Pascal в C++ - C++
ребятки, помогите с переводом с паскаля на C++ данный код var n,s,t,n1,kk,e1,x,i,ss,h:integer; ///возводит x в степнь e1 по...

Перевод кода с Pascal - C++
const p=1; const x=2.1; var t,a,b,y:real; begin write('t='); readln(t); b:=sin(p*p)+Power(x,3); a:=Power(exp(1),...

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

Перевод кода с Pascal - C++
uses crt; const n = 17; var arr: array of integer; sum: integer; i: byte; k,d,e: integer; begin

Перевод кода из Pascal в С++ - C++
Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !:cry: function st2(k:integer): integer; var j, rez:...

Перевод кода из Pascal в Си++ - C++
Type ST = Record Num: Integer; Name: String; Fak: String; Group: String; Angl: Integer; Physic: Integer; var Table: Array ...

Перевод кода с Pascal - C++
Переведите, пожалуйста, код с Pascal на C++ const maxn = 10; var n: integer; a: array of integer; used: array of Boolean; ...


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

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

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