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

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

Восстановить пароль Регистрация
 
Zerokul
0 / 0 / 0
Регистрация: 11.09.2012
Сообщений: 3
09.10.2012, 21:07     Перевод программы с Pascal на С++ #1
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.
Буду очень признателен
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2012, 21:07     Перевод программы с Pascal на С++
Посмотрите здесь:

Перевод программы с Pascal на С++ C++
C++ Перевод программы с Pascal на C++
Перевод из Pascal в C++ C++
C++ Среднеарифметическое каждого столбца матрицы: перевод программы с Pascal
C++ Перевод текста программы с Pascal на C++
C++ Перевод программы с Pascal на С++
C++ Перевод программы из Pascal в C++
C++ Перевод программы с Turbo Pascal на С++
Перевод программы из Pascal на C++ C++
Перевод с Pascal на C++ C++
C++ Перевод программы с pascal на С++
C++ Перевод программы из Pascal на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
panicwassano
591 / 559 / 20
Регистрация: 07.11.2010
Сообщений: 2,004
09.10.2012, 21:15     Перевод программы с Pascal на С++ #2
это не паскаль а делфи. Напишите условие задач, в стандартном с++ нету кнопок
Zerokul
0 / 0 / 0
Регистрация: 11.09.2012
Сообщений: 3
09.10.2012, 21:39  [ТС]     Перевод программы с Pascal на С++ #3
1)Задание. Составить и испытать циклическую программу для одного из вариантов задания, выбрав удобные значения числовых векторов X, Y и величин C, D (если имена C, D указаны в варианте).
(Каждой парой (Xk, Yk) заданы длины сторон одного из прямоугольников; найти число тех прямоугольников, площадь которых больше D.)
2)Задание. Составить и испытать циклическую программу для получения результата, указанного в варианте задания, выбрав значения векторов X, Y, число n элементов вектора, величину A — в вариантах 26, 27. Если экстремальное значение повторяется, а найти надо его номер, считайте результатом номер первого по порядку экстремума.
( Произведение наименьшего элемента вектора X и наибольшего элемента вектора Y.)
3) Задание. Составьте программу суммирования начальных членов заданного ряда при заданном аргументе x, пока абсолютная величина члена ряда не станет меньше E (малая величина, например 0,0000001).
Вычисляйте члены ряда по рекуррентным формулам, которые выведите, анализируя выражение общего члена ряда. Для тестирования программы используйте |x| ≤ 1.
Правильное значение суммы ряда приблизительно равно значению контрольной формулы (см. ниже перечень контрольных формул; номера ряда и номер формулы совпадают). В противном случае для нахождения ошибки проверьте вычисления по шагам, в отладочном режиме, используя удобное значение x = 1.

(1/3)x-(1*4/3*6)x^2+(1*4*7/3*6*9)x^3-...+-(1*4*7...(3k-2)/3*6*9...(3k))x^k-+...
Yandex
Объявления
09.10.2012, 21:39     Перевод программы с Pascal на С++
Ответ Создать тему
Опции темы

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