Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » С, C++ » Помогите передалать с С++ в Pascal
Помогите передалать с С++ в 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 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » С, C++ » Помогите передалать с С++ в Pascal
Страница 1 из 11
Поиск: