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

Перевод программы с Pascal на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Обработка массива http://www.cyberforum.ru/cpp-beginners/thread667464.html
Помогите напи сать программу по заданному исходнику под Visual C++ Задание: Заданы два массива X=(x1,x2,...,xn) и Y = (y1,y2,...,ym), в состав которых входят натуральные числа, причем в...
C++ Программа для операций с комплексными числами На базе приведенного ниже класса и примера его использования надо реализовать программу работы с комплексными числами, что бы выполнялись следующие требования: 1. Программа должна позволять... http://www.cyberforum.ru/cpp-beginners/thread667463.html
C++ Выполнить задания с использованием инструкции выбора if и с использованием условного оператора
Выполнить задания с использованием инструкции выбора if и с использованием условного оператора ? (если он присутствует в языке программирования). Если сумма трех попарно различных вещественных x,...
C++ Объединение 2х массивов в 1 и его сортировка по возрастанию
Вообщем сабж, есть программа и небольшой недочет. int _tmain(int argc, _TCHAR* argv) { int *arra, *arrb, *arrc, sizea, sizeb, num, i, j, k, l; cout<<"Enter array A: "; cin>>sizea;...
C++ пишу функцию метода простой итерации, заместо результата Q выдaёт -1.#IND http://www.cyberforum.ru/cpp-beginners/thread667443.html
Здравствуйте, пишу функцию метода простой итерации, заместо результата Q выдaёт -1.#IND Читала что это деление на ноль....но у меня нет никакого деления( A=-2; B=-1; и E=0.0001 double...
C++ Сколько существует двухзначных, положительных чисел, сумма цифр которых равна 15 Подсчитать, сколько существует двухзначных, положительных чисел, сумма цифр которых равна 15. Вывести их на экран. подробнее

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

Перевод программы с Pascal на С++ - C++

09.10.2012, 21:07. Просмотров 655. Ответов 2
Метки (Все метки)

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var i,k,n:integer;
x,y,S:array[1..100] of real;
D:real;
begin
n:=StrToInt(edit1.Text);
D:=StrToInt(edit2.Text);
i:=0;
for K:=1 to n do
begin
X[k]:=StrToInt(StringGrid1.Cells[K,1]);
Y[k]:=StrToInt(StringGrid1.Cells[K,2]);
S[k]:=x[k]*y[k];
if (s[k]>D)
then i:=i+1;
end;
edit3.Text:=FloatToStr(i);
end;
end.
2.
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
procedure TForm1.Button1Click(Sender: TObject);
var k,n:integer;
x,y:array[1..100] of real;
min,max,s:real;
begin
n:=StrToInt(edit1.Text);
for k:=1 to n do
begin
X[k]:=StrToInt(StringGrid1.Cells[k,1]);
Y[k]:=StrToInt(StringGrid1.Cells[k,2]);
end;
min:=X[1];
max:=Y[1];
for k:=1 to n do
begin
if x[k]<min
then min:=x[k];
if y[k]>max
then max:=y[k]
end;
s:=min*max;
edit2.Text:=FloatToStr(s);
end;
end.
3.
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
27
28
29
30
31
32
33
34
function sumr(x,e:real):real;
var sum,k,t,fact,c,slag,v:real;
begin
sum:=0;t:=1;k:=1;fact:=1;c:=x;v:=1;
repeat
v:=v*(3*k-2);
fact:=fact*3*k;
slag:=v*c/fact;
sum:=sum+t*slag;
t:=-t;c:=c*x;k:=k+1;
until abs(slag)<=e;
sumr:=sum;
end;
procedure TForm1.Button1Click(Sender: TObject);
var x,e,sum:real;
k,i:integer;
begin
x:=0.4;
for i:=1 to 5 do
  begin
      x:=x+0.1;
      e:=0.01;
      for k:=1 to 4 do
          begin sum:=sumr(x,e);
          stringgrid1.cells[0,k]:=floattostr(e);
          e:=e/10;
          stringgrid1.cells[i,k]:=FloatToStr(sum);
          end;
      stringgrid2.cells[i,1]:=FloatToStr(1-1/(exp(ln(1+x)/3)));
      stringgrid1.cells[i,0]:=floattostr(x);
      stringgrid2.cells[i,0]:=floattostr(x);
  end;
end;
end.
Буду очень признателен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru