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

Перевод из Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ 3 числа по возростанию (элегантное решение vs быдлокод) http://www.cyberforum.ru/cpp-beginners/thread1008500.html
Вот задача)) Write a program that prompts the user to enter three integer values, and then outputs the values in numerical sequence separated by commas. So, if the user enters the values 10 4 6, the output should be 4, 6, 10. If twO values are the same, they should just be ordered together. So, the input 4 5 4 should give 4, 4, 5. вот моё решение, но код мне очень не нравиться))))...
C++ Как записать элементы матрицы в обратном порядке C++ Не получается записать столбцы матрицы в обратном порядке пробовал такой способ: for(i=0;i<n;i++) { for(j=0;j<m;j++) { x=x; } } http://www.cyberforum.ru/cpp-beginners/thread1008485.html
C++ Программа по выводу информации и сравнивая ее с другой информацией(для тех кто хорошо программирует - легкая прога)
Помогите с задание на лабораторной: Output countries with a population more than the population in Ukraine - вот такую программу нужно написать, пожалуйста помогите... Тема лабораторной Структура
Не могу найти ошибку C++
{ char str={0}; char str2={0}; int k=0; int n=8; strcpy(str,this->Edit1->Text.c_str()); for(int i=0; str!='\0';i++) { If(str==str) {
C++ Составить квадратную матрицу по образцу. Двумерные массивы С++ http://www.cyberforum.ru/cpp-beginners/thread1008464.html
Помогите, пожалуйста, с заданием. Составьте квадратную матрицу по заданному образцу:
C++ Надо читать числа из файла в динамический массив Доброго времени суток. Проблема такая- нужно читать числа из файла в динамический массив. Заранее задавать размер никак нельзя по условию. Нужно что то вроде массива из делфей... Нашел число-увеличил массив-записал число... А еще нужно избегать ситуаций типа "зашел в ванную-включил свет-вышел из ванной. снова зашел в освещенную ванную - почистил зубы"... Заранее спасибо. Добавлено через 33... подробнее

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

Перевод из Pascal в C++ - C++

15.11.2013, 12:33. Просмотров 349. Ответов 4
Метки (Все метки)

Помогите перевести в С++.
Вот код :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
program Adam;
uses crt;
var
 func,x,y,yp:array[1..100] of real;
 proiz:array[1..4] of real;
 h,a,b,maxfp,maxp:real;
 i,n:integer;
{---------------------------------------------------------------------}
function f(x,y:real):real; {functia proizvodnoi}
begin
 y:=x+sin(x);        {-zadacha Koshi}
 f:=y;
end;
{---------------------------------------------------------------------}
function FP(x:real):real;
begin
    FP:=(x*x)/2-cos(x)   {reshenie zadachi Koshi}
end;
{---------------------------------------------------------------------}
procedure Adams;
begin
 writeln('metod Adamsa for reshenia zadachi Koshi');
 writeln('nachalnie proizvodnie');
for i:=1 to 4 do
 writeln('x[',i,']=',x[i]:2:3,'      f(x[',i,'],y[',i,'])=',f(x[i],y[i]):2:3);
 writeln('nachalnoe znachenie Y=',y[4]:2:3);
 for i:=4 to n do
  begin
   y[i+1]:=y[i]+h/24*(55*f(x[i],y[i])-59*f(x[i-1],y[i-1])+37*f(x[i-2],y[i-2])-9*f(x[i-3],y[i-3]));
   x[i+1]:=x[i]+h;
   writeln('x[',i+1,']=',x[i+1]:2:3,'    y[',i+1,']=',y[i+1]:2:3);
  end;
end;
{---------------------------------------------------------------------}
begin
 clrscr;
 writeln('vvedite znachenie granic otrezka a-nachalo,b-konec');
 readln(a,b);
 writeln('kol-vo razbienia otrezka (a,b] :n');
 readln(n);
 h:=(b-a)/n;
 writeln('znachenie shaga',h:2:3);
 writeln('vvedem znachenie nachalnix proizvodnix');
 x[1]:=a;
for i:=1 to 4 do  {}
 begin            {}
  f(x[i],y[i]);   {}
  x[i+1]:=x[i]+h; {opredelaem nachalnie znachenia}
 end;             {}
 y[4]:=x[4]*x[4]/2-cos(x[4]); {}
 Adams;
 for i:=4 to n do
    yp[i]:=FP(x[i]);
  MaxP:=abs(y[4]-yp[4]);
 for i:=5 to n do
  if MaxP<abs(y[i]-yp[i]) then
      MaxP:=abs(y[i]-yp[i]);
 writeln('practicheskaia pogreshnost',MaxP:2:6);
{ writeln(y[i]);
 writeln(yp[i]);}
 MaxP:=abs(y[4]-yp[4])/(h*h*h*h);
 for i:=5 to n do
  if MaxP<abs(y[i]-yp[i])/(h*h*h*h) then
      MaxP:=abs(y[i]-yp[i])/(h*h*h*h);
  writeln('teoreticheskaia pogreshnost',MaxP:2:6);
 readkey;
end.
Спасибо)
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru