Форум АНТИЧАТ - Нужна помощь в трансляции кода

Нужна помощь в трансляции кода

20.08.2009, 09:10

Unregistered

Познающий

Регистрация: 15.01.2009

Сообщений: 37

Провел на форуме:
628486

Репутация: 26

Нужна помощь в трансляции кода

В общем нужен человек, который мог бы помочь мне за спасибо. Нужно переписать код из паскаля (Borland Pascal 7.0 for Windows) в С++ (Borland C++ 5.02). По усмотрению модератора, может топик переедет в "Программирование", я создал здесь потому-что народу много.
1. Это у нас длинна окружности

Код:

program n_1_13;
uses WinCRT;
var
   r:real;
begin
WriteLn('Input radius:');
Write('R=');
Read(r);
WriteLn('L=2*Pi*R ');
WriteLn('Result:');
Write('L=',2*Pi*r:5:2);
end.

2. Дано действительное число y, натуральное n и случайно генерированное случайное число x (x=0...n). вычислить

вывести целую часть результата.

Код:

program n_2_13;
uses WinCRT;
var n:integer;
    y,x:real;
begin
Write('y=');
Read(y);
Write('n=');
Read(n);
Randomize;
WriteLn('x=',random(n+1));
WriteLn(frac((cos(exp(Ln(y)*x))+x-y/3)/(2*sqr(x)-y+1)):0:5);
end.

3. Дано три действительных числа. Выяснить что больше, квадрат минимального или максимальное число. (Зделать ветвлениями)

Код:

program n_3_13;
uses WinCRT;
var a,b,c,min,max:real;
begin
Write('a=');
Read(a);
Write('b=');
Read(b);
Write('c=');
Read(c);
if (a=b) or (a=c) or (b=a) or (b=c) or (c=a) or (c=b) then
   begin
        WriteLn('Incorrect values are entered. Can`t continue');
        Exit;
   end;
if (a>b) and (a>c) then max:=a else
   if (b>a) and (b>c) then max:=b else
      if (c>a) and (c>b) then max:=c;
if (a<b) and (a<c) then min:=a else
   if (b<a) and (b<c) then min:=b else
      if (c<a) and (c<b) then min:=c;
if (sqr(min)>max) then WriteLn('Square of min is more than max') else
   if (sqr(min)<max) then WriteLn('Square of min is less than max') else
      if (sqr(min)=max) then WriteLn('Square of min is equal to max');
end.

4. Простым называется число, которое имеет два делителя — само число и единицу. Выяснить, является ли данное натуральное число n простым. (Циклы)

Код:

program n_4_13;
uses WinCRT;
var n,i:real;
begin
Write('n=');
Read(n);
i:=1;
repeat i:=i+1 until n mod i = 0;
if n=i then WriteLn(n,' is simple') else
   WriteLn(n,' isn`t simple');
end.

5. Дано натуральное число n. Вычислить

Код:

program n_4_38;
uses WinCRT;
var i,j,n:word;
     pr:real;
begin
write('n=');
read(n);
pr:=1;
 for i:=1 to n do
   for j:=1 to n do
    pr:=pr*sin(2*i+j*j);
writeln(pr);
end.

6. Дано натуральное число n, и действительные числа a1, a2, …, an. Вычислить

Код:

А это я и в Паскале даже не зделал :(

Очень надеюсь на вашу помощь.
З.Ы. Если таки кто-то возьмется помогать — используйте, пожалуйста, printf, scanf (кажется так операторы эти пишутся). Заранее благодарен.

Последний раз редактировалось Unregistered; 20.08.2009 в 14:42..