Форум программистов, компьютерный форум CyberForum.ru

Перевести с Delphi на C/C++. - C++

Восстановить пароль Регистрация
 
andju
0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 6
17.06.2010, 09:49     Перевести с Delphi на C/C++. #1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program zadacha5;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
a,b,s,k,v :real ;
 begin
 writeln('vedit a b');
  readln(a,b);
  s:=abs((a+b)/2);
  k:=sqrt(a*b);
    writeln ('s=',s );
     writeln ('k=',k );
    readln(v)
  { TODO -oUser -cConsole Main : Insert code here }
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Project58а;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
  var a,f:real ;
begin
    writeln('a=');
      readln(a);
      if a<=0 then
       f:=(-x); else
       f:=-x*x;
       writeln('f(',a,')=',f)
  { TODO -oUser -cConsole Main : Insert code here }
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program zadacha 67в;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
n,v :integer ;
 begin
 writeln('vedit n');
  readln;
    if (n<=100)then
    begin
     n:=n div 10 ;
    writeln ('n=',n );
    readln(v)
  { TODO -oUser -cConsole Main : Insert code here }
end
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program zadacha185;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  n,i:integer   ;
  a,s,v :real;
 
begin
write('n=');
readln;
s:=0  ;
for i:=1 to n do
begin
   write('4a[',i,']=');
   readln(a);
   if a>0 then s:=s+a
   end;
   writeln('suma=',s*2:0:2);
   readln(v)
 
  { TODO -oUser -cConsole Main : Insert code here }
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program zadacha84a;
 {$APPTYPE CONSOLE} 
uses SysUtils; 
var i,n:integer;x,s,sum:real; 
begin 
wrire('vedit n='); 
redln; 
sum:=0; 
for i=1 to n do 
begin 
write('x'); 
sum:=sum+sin(x)^i 
end; 
write('sum='); 
end
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2010, 09:49     Перевести с Delphi на C/C++.
Посмотрите здесь:

C++ Перевести с С на С++
Перевести простую программку с Delphi C++
Перевести с DELPHI в С++ C++
Перевести код программы из Delphi в C++ C++
Перевести синтаксис программы с Delphi в C++, очень нужно C++
Перевести с Delphi на C++. Ускорение умножения двоичных чисел с анализом двух разрядов C++
Перевести с Delphi на C++. Найти элементы последовательности, представимые в виде суммы двух квадратов C++
Перевести функцию с Delphi на C++ C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Artishok
ЧакЭ одобряЭ
 Аватар для Artishok
277 / 276 / 32
Регистрация: 27.12.2009
Сообщений: 1,767
17.06.2010, 16:26     Перевести с Delphi на C/C++. #2
если где-то не затупил то как-то так
2)
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <stdio.h>
 
 
 
int main()
{
    float a,f;
    
    printf("a=");
    scanf("%f",&a);
    if (a<=0)
    f=(-a);
    else
    f=-a*a;
    printf("f(%.1f)=%.1f\n",a,f);
    return 0;
}
3)
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <stdio.h>
 
 
int main()
{
    int n,v;
    printf("vvedite n\n");
    scanf("%d",&n);
    if (n<=100)
    {
        n=n/100;
        printf("--%d--",n);
        scanf("%d",v);
    }
    return 0;
}
4)
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <stdio.h>
 
int main()
{ 
    float s,a,v;
    int n,i;
    s=0;
    printf("n=");
    scanf("%d",&n);
    for (i=1;i<=n;i++)
    {
        printf("4a[%d]=",i);
        scanf("%f",&a);
        if (a>0) s+=a;
    }
    printf("suma=%0.2f",s*2);
    scanf("%f",&v);
    return 0;
}
5)
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <stdio.h>
#include <math.h>
 
int main()
{
    int i,n;
    float x,s,sum;
    printf("vvedit n=");
    scanf("%d",&n);
    sum=0;
    for (i=1;i<=n;i++)
    {
        printf("x=");
        scanf("%f",&x);
        sum+=pow(sin(x),i);
    }
    printf("summa=%1.2f\n",sum);
    return 0;
}
Yandex
Объявления
17.06.2010, 16:26     Перевести с Delphi на C/C++.
Ответ Создать тему
Опции темы

Текущее время: 03:53. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru