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

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

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

Нужно программу на Паскале переделать в программу на С++ - C++

16.03.2010, 21:55. Просмотров 499. Ответов 2
Метки нет (Все метки)

Помогите, пожалуйста!!!
У меня есть программа на Паскале , а нужно ее переписать, чтобы она была на С++ (windows консоль).

Текст программы на Паскале:
Цитата Сообщение от Dnnn Посмотреть сообщение
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
var i, i1, i2 ,N, z: integer; 
     q,delta,X,Y,a,b,k,Y1,X1: real; 
     M, M1: array[1..2, 1..20] of real; {2 stroki - 1- X, 2 - Y }
begin 
 write('Input tha count of dots N='); readln(N);
  for i:=1 to N do 
  begin 
      write('Input dot coordinates ',i,' X='); readln(M[1,i]);
      write('Input dot coordinates ',i,' Y=');readln(M[2,i]);
  end; 
 
  write('Input the aperture value q='); readln(q);
 
  i1 := 1; i2 := 3;  
  {в массив заносим первую точку}
  z:=1; M1[1,1]=M[1, 1] ; M1[2,1]=M[2, 1];
 
  while (i1<=N-2) and (i2<=N) do 
  begin 
       a: = (M[2,i2]-M[2,i1])/(M[1,i2]-M[1,i1]);
       b: = M[2,i2]-a*M[1,i2];
       writeln('a=',a:10:3,' ; b=',b:10:3);
       Y1=a*M[1, i2-1]+b;
       delta=abs(M[2, i2-1]-Y1);
       if (delta>q) then 
         begin 
           writeln(' Y= ',M[2, i2-1]:10:3, ' ; Y1=', y1:10:3, '; delta=', delta:10:3,' ne szimaetsya');
           i1 :=i1+1; i2=i1+2;
           z=z+1;
           M1[1,z]=M[1, i2-1] ;
           M1[2,z]=M[2, i2-1];
         end
       else
         begin  
           writeln('Y=', M[2, i2-1]:10:3,'; Y1=', Y1:10:3,'; delta=',delta:10:3); { здесь как раз и выводятся не вошедшие в сжатый массив точки }
           i2=i2+1;
         end;
  end;   
  {записываем в конец массива посл точку }
  z := z+1; M1[1,z]=M[1, N] ; M1[2,z]=M[2, N];
 
  writeln('Array M*:' );
  for i := 1 to z do  
     writeln(' X[',i, ']=', m1[1,i]:10:3,'; Y[',i,']=', M1[2,i]:10:3);
 
  writeln('Коэффициент сжатия k = ', N/Z);
  readln; {nazat Enter}
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2010, 21:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужно программу на Паскале переделать в программу на С++ (C++):

Нужно переделать программу из C++ в C - C++
Вот собственно и она. Заранее благодарен #include &lt;iostream&gt; using namespace std; int main() { const int m = 4 , n...

Нужно переделать программу с С++ под С - C++
Доброе утро форумчани! Есть программа написанная на С++ #include &lt;iostream&gt; #include &lt;string&gt; #include &lt;conio.h&gt; int...

Матрица, нужно слегка переделать программу - C++
Вот есть программа #include &quot;stdafx.h&quot; #include &lt;iostream&gt; using namespace std; int Sum (int** arr, int N, int i) { int...

Нужно переделать программу (accumulate_if() и count_if() ) - C++
#include &lt;vector&gt; #include &lt;iostream&gt; using namespace std; int main(int argc, char *argv) { int i, c, p=0 ,o=0; ...

Нужно переделать программу из cin и cout в printf и scanf - C++
#include &lt;iostream&gt; using namespace std; int fact(int n) { int s=1; for(int i=1; i&lt;=n; i++) s*=i; ...

Нужно немного переделать программу: использовать функции и динамическое выделение памяти - C++
Помогите переделать программу в соответствии с условиями: а) для хранения массивов используйте динамически распределяемую память; б)...

2
insideone
Модератор
Автор FAQ
3642 / 921 / 50
Регистрация: 10.01.2010
Сообщений: 2,477
17.03.2010, 18:32 #2
C++
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
#include <iostream>
using namespace std;
 
int main()
{
    int i, i1, i2 ,N, z;  // var i, i1, i2 ,N, z: integer; 
    double q,delta,X,Y,a,b,k,Y1,X1; // q,delta,X,Y,a,b,k,Y1,X1: real; 
    double M[2][20], M1[2][20]; // M, M1: array[1..2, 1..20] of real;
    // begin 
    cout << "Input tha count of dots N=";//write('Input tha count of dots N=');
    cin >> N;//readln(N);
    for (i = 0; i <= N; i++) // for i:=1 to N do 
    {
        cout << "Input dot coordinates " << i << " X="; // write('Input dot coordinates ',i,' X=');
        cin >> M[0][i]; // readln(M[1,i]);
        cout << "Input dot coordinates " << i << " Y="; // write('Input dot coordinates ',i,' Y=');
        cin >> M[1][i]; //  readln(M[2,i]);
    }
 
    cout << "Input the aperture value q="; // write('Input the aperture value q='); 
    cin >> q; // readln(q);
  
 
    i1 = 1; i2 = 3;  
    // в массив заносим первую точку
    z=1; M1[0][1]=M[0][1]; M1[1][1]=M[1][1];
    while ((i1<=N-2) && (i2<=N)) // while (i1<=N-2) and (i2<=N) do
    { // begin 
       a = (M[1][i2]-M[1][i1])/(M[0][i2]-M[0][i1]);
       b = M[1][i2]-a*M[0][i2];
       cout << "a=" << a << " ; b=" << b;
       Y1=a*M[0][i2-1]+b;
       delta=abs(M[1][i2-1]-Y1);
       if (delta>q) //then 
       { //begin 
           cout << "Y=" << M[1][i2-1] << "; Y1=" << Y1 << "; delta=" << delta << " ne szimaetsya";
           i1 =i1+1; i2=i1+2;
           z=z+1;
           M1[0][z]=M[0][i2-1] ;
           M1[1][z]=M[1][i2-1];
       } // end
       else
       { //begin
           cout << "Y=" << M[1][i2-1] << "; Y1=" << Y1 << "; delta=" << delta; // { здесь как раз и выводятся не вошедшие в сжатый массив точки }
           i2++; // i2=i2+1;
       } //end;
    }//end;   
  //{записываем в конец массива посл точку }
  z = z+1; M1[0][z]=M[0][N] ; M1[1][z]=M[1][N];
 
  cout << "Array M*:";
  for (i = 0; i <= z; i++)
      cout << " X[" << i << "]=" << M1[0][i] << "; Y[" << i << "]=" << M1[1][i];
 
  cout << "Коэффициент сжатия k = " << N/z;
return 0;
}
Где то так...
0
Lookatme
0 / 0 / 0
Регистрация: 15.03.2010
Сообщений: 7
17.03.2010, 19:50  [ТС] #3
Спасибо огромное!!!!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2010, 19:50
Привет! Вот еще темы с ответами:

Нужно переделать программу используя функция , чтобы все буыло универсально - C++
Помогите пожалуйста! Программу то, я сделал! а вот теперь нужно все по функциям сделать и чтобы &quot;универсально все было&quot; .( что имеется...

Нужно немного переделать программу нахождения компонент сильной связности в графе - C++
В общем задание такое, нужно переделать эту программу, я не знаю как это сделать, помогите люди добрые)) #include &lt;iostream&gt; ...

Переделать программу 1 в программу 2 с использованием функций - C++
проблема в том, что компилятор не ругается, но программа зависает при выполнении. уже много времени на это потратил. вроде задание не...

Переделать программу - C++
Ребят помогите девушке не понимаю сама как решить вот есть программа #include &lt;iostream&gt; using namespace std; void...


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

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

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