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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вычислить сумму ряда http://www.cyberforum.ru/cpp-beginners/thread146589.html
вычислить
C++ Заполнение случайными числами у меня вот какая проблема...вот часть программы заполнения массива случайными числами....но каждый разпри выполнении программы у меня выдает один и тот же массив...ну то есть если в паскале при каждом запуске массивы всегда разные то тут один и тот же.....как сделать чтобы всегда разный был?... for(i=0;i<N;i++) a=rand()%100-10; for(i=0;i<N;i++) printf("%5d",a); ... http://www.cyberforum.ru/cpp-beginners/thread146587.html
Связный список и вставка элемента C++
Мне надо написать прогу, которая создает связный список (линейный), вставляет в любом месте элемент. Написала создание связного списка, написала вставку. При запуске компилятор ошибку не выдает, но при выполнении кода, который делает вставку, программа выводит ошибку. Скажите, что у меня не так в коде с этой вставкой?! #include "stdafx.h" #include <iostream> using namespace std; #include...
Дано натуральное число n (n>99). Определить число сотен внем C++
Дано натуральное число n (n>99). Определить число сотен внем. на паскале это выглядит такprogram z64; {$APPTYPE CONSOLE} uses SysUtils; var a,b : integer ;
C++ Описать функцию Exp1(x,e) вещественного типа ( параметры x,e - вещественные, e>0 ) http://www.cyberforum.ru/cpp-beginners/thread146521.html
Описать функцию Exp1(x,y) вещественного типа (параметры х,у - вещественные, y>0), находящую приближенное значение функции exp(x): exp(x)=1+x+x2/(2!) +x3/(3!) + ... + xn(n!)+...
C++ Решить матрицу) Характеристикой столбца целочисленной матрицы называется произведение ее целочисленных элементов. Указать номер столбца с минимальной характеристикой. подробнее

Показать сообщение отдельно
andju
0 / 0 / 0
Регистрация: 16.06.2010
Сообщений: 6

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

17.06.2010, 09:49. Просмотров 356. Ответов 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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru