Помогите передалать с С++ в Pascal - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Помогите передалать с С++ в Pascal

#include<conio.h>

#include<stdio.h>

#include<math.h>

float x,p,e=0.8,rez=1;

int i=1;

void main()

{

clrscr();

for (x=1,p=1;p > e; x++)

{

for (;i<=x;i++)

rez *= (1+(1/i));

p=fabs(rez-exp(1));

}

printf("absolute = %f \npogr = %f \nx = %f\n",p,e,x);

getch();

}

№1 | Автор: davka | 2011-06-13, 20:05 | Репутация: [ + 0 ]

Помогите передалать с С++ в Pascal

Страница 1 из 1
1

прикладная математика