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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Zerokul
0 / 0 / 0
Регистрация: 11.09.2012
Сообщений: 3
#1

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

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

Перевод программы из Pascal на С++ - C++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const nmax=100; var a:array of integer; ...

Перевод программы с Pascal на С++ - C++
uses crt; var i :integer; BEGIN ClrScr; Write('Результат: '); for i := 20 to 50 do if (i mod 3 = 0) and (i mod 5 &lt;&gt; 0)...

Перевод программы с pascal на С++ - C++
Столкнулся с трудностями при переводе данной программы на С++ Type Mat = array of real; var x, y, l:Mat; a, b, s:real; i:byte; ...

Перевод программы из Pascal на C++ - C++
program vlad; uses crt; var m:integer; a:real; begin clrscr; write('a: '); readln(a); for m:=-5 to 5 do

Перевод программы из Pascal в C++ - C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля нулевые, знания С++ - скромные,...

Перевод программы с Pascal на C++ - C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++: program z3; var a, b, c, x, x1, x2, dX, k:...

Перевод программы с Pascal на С++ - C++
Нужно перевести программу с языка Pascal на язык С++. Буду благодарен за помощь :) var text: string; i: integer; count:...

Перевод программы с Turbo Pascal на С++ - C++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.

Перевод текста программы с Pascal на C++ - C++
Такая вот задача:Найти сумму всех целых чисел из отрезка , которые при делении на 5 дают остаток 3. Есть текст программы на Паскале,нужно...

Перевод программы c Pascal ABC на С++ - C++
помогите сделать такую же программу только на С++. Программа рабочая const n=2; type TAr2=array of real; TAr1=array of real; ...

Среднеарифметическое каждого столбца матрицы: перевод программы с Pascal - C++
Всем доброго времени суток! Помогите, пожалуйста, с переводом программы. const n=10; var mas:array of integer; srmas:array...

Перевод из Pascal в C++ - C++
Перевод из Pascal в C++ Здравствуйте, помогите пожалуйста с переводом, сам нисколько не знаю паскаль, только в этом году начал...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
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-+...
Ответ Создать тему
Опции темы

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