Перевести код с паскаля в с++

@vilk · Регистрация: 14.04.2020

Author24 — интернет-сервис помощи студентам

Нужно срочно перевести код с паскаля в с++

Pascal

uses crt;
var a0,a1,ai,p,z:real;
    i:byte;
begin
clrscr;
a0:=1;
a1:=1;
p:=1;
z:=1;
for i:=2 to 14 do
 begin
  z:=z/2;
  ai:=a0+a1*z;
  p:=p*ai;
  a0:=a1;
  a1:=ai
 end;
write('P=',p:0:4);
readln
end.

@FFPowerMan · 22.05.2020, 14:41

C++

#include <iostream>
using namespace std;
 
int main()
{
double a0,a1,ai,p,z;
unsigned char i;
 
a0 = 1;
a1 = 1;
p = 1;
z = 1;
for(i = 2; i <= 14; i++)
{
    z /= 2;
    ai = a0 + a1*z;
    p *= ai;
    a0 = a1;
    a1 = ai;
}
cout << "P = " << p << "\n";
return 0;
}

http://cpp.sh/3ghl6

@ВладГейм · 22.05.2020, 14:46

C++

int a0,a1,ai,p,z;
byte i;
 
a0 = 1;
a1 = 1;
p = 1;
z = 1;
for (i = 2; i < 14; i ++) 
{
  z = z/2;
  ai = a0+a1*z;
  p = p*ai;
  a0 = a1;
  a1 = ai
}
cout >> 'P=' + p:0:4;
readln

Как-то так

	22.05.2020, 14:46

Перевести код с паскаля в с++

Решение