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

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Нужна помощь в трансляции кода

Опции темы

Поиск в этой теме

Опции просмотра

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

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..

20.08.2009, 22:29

gisTy

Постоянный

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

Сообщений: 589

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

Репутация: 504

соблственно С

Код:

#include<stdio.h>

void main(void)
{
float r;

printf("Input radius:\n > ");
scanf("%f", &r);
printf("L=2*Pi*R\nResult:\n > %5.2f", 2*3,14*r);
}

на остальное времени нет, так как убегать надо..

27.08.2009, 20:30

Unregistered

Познающий

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

Сообщений: 37

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

Репутация: 26

Вверх.
очень нужна помощь

27.08.2009, 20:43

Unregistered

Познающий

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

Сообщений: 37

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

Репутация: 26

Код:

#include <iostream.h>
#include <stdio.h>
#include <conio.h>
main()
{
float r;
const float p=3.14;
printf("Input radius:\n > ");
scanf("%f", &r);
printf("L=2*Pi*R\nResult:\n > %5.2f", 2*p*r);
getch();
return 0;
}

Это я первое подправил, так оно должно выглядеть в моем компиляторе. А сам с 0 сделать не могу

27.08.2009, 20:53

Fata1ex

Постоянный

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

Сообщений: 906

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

Репутация: 930

Код:

main()
...
return 0;

эээ?

везде заменяешь readln & writeln на cin & cout или на scanf & printf
:= на =
begin & end на { & }

и немного подправить циклы и объявление переменных
разве это сложно сделать самому?

27.08.2009, 20:55

Unregistered

Познающий

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

Сообщений: 37

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

Репутация: 26

форматирование, мне это все сложно держать в башке при том что я только об этом прочитал.

27.08.2009, 21:15

dnd

Новичок

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

Сообщений: 26

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

Репутация: 11

void lab2()
{
double x=0,y=0;
int n;
printf("y=");
scanf("%f",&y);
printf("n=");
scanf("%f",&n);
srand(time(0));
printf("\r\nx=%f\r\n%4.0f",x=rand()%n,(cos(pow(y,x )) + x - y/3) / (2*pow(x,2) - y + 1));
}

long lab6()
{
long n;
float a=0,P=1;
printf("n=");
scanf("%d",&n);
for(int i=0;i<n;i++)
{
printf("a%d=",i+1);
scanf("%e",&a);
P *= (1 + pow(a,n));
}
printf("\r\nP=%f",P);
return 1;
}

Последний раз редактировалось dnd; 27.08.2009 в 21:36..

28.08.2009, 11:57

Mozy

Познающий

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

Сообщений: 77

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

Репутация: 73

Отправить сообщение для Mozy с помощью ICQ

Вот 3

Код:

#include <iostream>
#include <conio.h>
#include <stdlib.h>
#include <math.h>
using namespace std;

int main(void){
float a,b,c,min,max;

cout << "a=";
cin >> a;
cout << "b=";
cin >> b;
cout << "c=";
cin >> c;

if ((a==b) || (a==c) || (b==a) || (b==c) || (c==a) || (c==b)){
   cout << "Incorrect values are entered. Can`t continue"<<endl;
   getch();
   exit(1);
}
   
if ((a>b) && (a>c)){
max=a;}
else{
   if ((b>a) && (b>c)){
   max=b;} 
   else{
      if ((c>a) && (c>b)){
      max=c;}}}
      
if ((a<b) && (a<c)){
min=a;}
else{
   if((b<a) && (b<c)){
   min=b;}
   else{
      if ((c<a) && (c<b)){
      min=c;}}}
      
if (pow(min,2)>max){
cout << "Square of min is more than max"<<endl;
getch();}
else{
   if (pow(min,2)<max){
   cout << "Square of min is less than max"<<endl;
   getch();}
   else{
      if (pow(min,2)==max){
      cout << "Square of min is equal to max" << endl;
      getch();}}}

return 0;
}

Вот 4

Код:

#include<iostream>
#include <conio.h>
using namespace std;

int main(void){
float n,i=1;
cout <<"n=";
cin >> n;

do{
i++;
}while(n%i==0);

if (n=i){
cout << n << " is simple"<<endl;
getch();}
else{
   cout<< n<<" isn`t simple"<<endl;
getch();}

return 0;
}

Вот 5

Код:

#include <iostream>
#include <math.h>
#include <conio.h>
using namespace std;

int main (void){
int i,j,n;
float pr=1;

cout << "n=";
cin >>n;
 for (i=1;i<=n;i++){
   for(j=1;j<=n;j++){
    pr=pr*sin(2*i+j*j);
   }
 }
cout << pr;
getch();

return 0;
}

Последний раз редактировалось Mozy; 28.08.2009 в 12:30..

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужна ваще помощь XP	jks	Windows	12	22.01.2009 00:33
Внедрение Sql кода с завязанными глазами	k00p3r	Чужие Статьи	0	12.06.2005 20:48

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход