0 / 0 / 0
Регистрация: 11.09.2012
Сообщений: 3
1

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

09.10.2012, 21:07. Показов 1285. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
09.10.2012, 21:07
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.10.2012, 21:07
Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома стоит эта версия /перестала работать что...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой ABC. Важен именно этот метод. ...

Перевод программы из Pascal в C++
Добрый вечер, нужна помощь! Буду благодарен. Сама задача звучит так : Найти значение выражения (2*5!+3*8!) / (6!+4!) где n! означает...

2
601 / 569 / 104
Регистрация: 07.11.2010
Сообщений: 2,004
09.10.2012, 21:15 2
это не паскаль а делфи. Напишите условие задач, в стандартном с++ нету кнопок
1
0 / 0 / 0
Регистрация: 11.09.2012
Сообщений: 3
09.10.2012, 21:39  [ТС] 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-+...
0
09.10.2012, 21:39
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.10.2012, 21:39
Помогаю со студенческими работами здесь

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

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

Перевод программы из Pascal в C#
Описать функцию InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный. С помощью этой функции...

Перевод программы с С++ на Pascal!
Помогите, пожалуйста, срочно нужно перевести код, у меня не получается постоянно выдает разные ошибки. Вместо вектора можно использовать...

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Микросервис с нуля на Go с Kafka
stackoverflow 12.02.2025
Когда я впервые столкнулся с необходимостью разделить монолитное приложение на микросервисы, передо мной встал вопрос выбора правильных технологий и подходов. После долгих экспериментов с различными. . .
Микросервис с нуля на C# с RabbitMQ
stackoverflow 12.02.2025
Переход от монолитной архитектуры к микросервисной - это не просто модное веяние, а закономерный этап эволюции программных систем. В отличие от монолита, где все компоненты тесно связаны между собой. . .
Docker для начинающих
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения все чаще возникает необходимость быстро и надежно разворачивать приложения в различных средах. Разработчики постоянно сталкиваются с проблемой. . .
Создание бота для Телеграм на C#
stackoverflow 12.02.2025
В современном мире корпоративных коммуникаций Telegram-боты становятся незаменимым средством автоматизации бизнес-процессов и взаимодействия с сотрудниками. Как создать такого бота, который сможет. . .
Операторы сравнения (== и ===) в JavaScript
hw_wired 12.02.2025
JavaScript предоставляет два основных оператора сравнения - оператор нестрогого равенства (==) и оператор строгого равенства (===). На первый взгляд они могут показаться очень похожими, но их. . .
Определение адреса, откуда репозиторий Git был клонирован
hw_wired 12.02.2025
Система контроля версий Git хранит всю информацию о репозитории в специальной директории . git, включая данные об удаленных источниках. Эта информация необходима для синхронизации изменений между. . .
Объединение нескольких коммитов Git в один
hw_wired 12.02.2025
Представьте, что вы работаете над новой функциональностью и создали десяток небольших коммитов: исправление опечатки, форматирование кода, добавление комментариев, реализация основной логики. Каждый. . .
Как добавить локальную ветку в удалённый репозиторий Git
hw_wired 12.02.2025
Локальная ветка в Git - это изолированная линия разработки, существующая только на вашем компьютере. Представьте себе дерево с множеством веток - каждая ветка может расти в своем направлении, не. . .
Статическое отражение в C++
stackoverflow 12.02.2025
Статическое отражение представляет собой мощный механизм, позволяющий программам анализировать и манипулировать своей собственной структурой во время компиляции. Эта возможность открывает. . .
C++ в 21 веке - Бьярне Страуструп
stackoverflow 12.02.2025
В современном мире разработки программного обеспечения C++ продолжает оставаться одним из ключевых языков программирования, несмотря на свой солидный возраст - более 45 лет с момента создания. За это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru