Помогите ,пожалуйста, перевости код паскаля на язык си.Не могу разобраться в этом

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Помогите ,пожалуйста, перевости код паскаля на язык си.Не могу разобраться в этом (http://forum.oszone.net/showthread.php?t=288249)

vad91996

21-09-2014 14:42 2405398

Помогите ,пожалуйста, перевости код паскаля на язык си.Не могу разобраться в этом

1)var
R,Pro:Real;
i,N:Integer;
begin
Pro:=1;
Write('Введите N: ');
Readln(N);
for i:=1 to N do
begin
Write('Введите ',i,' число: ');
Readln(R);
Writeln(R-Trunc(R));
Pro:=Pro*(R-Trunc(R));
end;
Writeln(Pro);
end.
2)
var
X,Rez,factorial,pow:Real;
N, i :Integer;
begin
Write('Введите X: ');
Readln(X);
Write('Введите N: ');
Readln(N);
Rez:=1;
pow:=1;
factorial:=1;
For i:=1 to N do
begin
factorial:=factorial*i;
pow:=pow*X;
Rez:=Rez+pow/factorial;
end;
Writeln(Rez);
end.

mrcnn

21-09-2014 15:59 2405432

Код:

#include <stdio.h>

#include <locale.h>

double x, rez, factorial, pow;

int n, i;

void main(){

set_locale(LC_ALL, "Russian");

printf("Введите x: ");

scanf("%f",&x);

printf("Введите n: ");

scanf("%d", &n);

rez = 1.0;

pow = 1.0;

factorial = 1.0;

for(i=1;i<=n;i++)

{

factorial *= (double) i;

pow *= x;

rez += pow/factorial;

}

printf("%f\n", rez);

}

Код на си

Время: 20:29.