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

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

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

Перевести код с Pascal - C++

03.01.2013, 14:31. Просмотров 270. Ответов 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
uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    n,i,d:integer;
    f:boolean;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите в массив разные числа для проверки на арифметическую прогрессию:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
f:=true;
i:=2;
while(i<n) and f do
if a[i]-a[i-1]<>a[i+1]-a[i] then f:=false
else i:=i+1;
if f then write('Это арифметическая прогрессия, ее разность=',a[2]-a[1])
else write(0);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.01.2013, 14:31     Перевести код с Pascal
Посмотрите здесь:

Перевести код из Pascal в C++ - C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C := 0; write(P,...,P); i := 1; ...

Перевести код из Pascal в C++ - C++
Помогите перевести код из Паскаля в С++ Uses crt; const n = 10; var x: array of integer; i, k: integer; begin ...

Перевести код с Pascal - C++
код for i:=1 to length(num_st)do begin num_st:=upcase(num_st); if num_st in then n1:=ord(num_st)-55 ...

Перевести код Pascal на C++ - C++
Program PROGRAMMA6; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy, u : array of integer; ...

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

Перевести код с Pascal - C++
помогите перевести 2 программы из паскаль в С++ 1) uses graphABC; begin setwindowsize(500,500); setpenwidth(4); ...

Перевести код с Pascal - C++
l:array of integer; a,b,n,i:integer; w:boolean; begin readln(n); randomize; for i:=1 to n do begin l:=random(10)-3; ...

Перевести код с Pascal - C++
var m,n,i,k: longint; flag: boolean; begin writeln('vvod m&gt;3'); readln(m); write(' 2 3'); n:=3; k := 2; n...

Перевести код с Pascal - C++
var x,y: real; begin write('Введите x, y: '); readln(x,y); if ((sqr(x)/4)+(sqr(y)/1)&lt;=1) and (x&lt;=-1) or...

Перевести код с Pascal - C++
var a,b,c:real; begin clrscr; writeln('Vvedite A='); readln(a); writeln('Vvedite B='); readln(b); If a&gt;b...

Перевести код с C++ в Pascal - C++
#include &lt;iostream&gt; #include &lt;cmath&gt; #include &lt;vector&gt; #include &lt;numeric&gt; using namespace std; int main() { ...

Перевести код с Pascal на С++ - C++
Ребята,помогите преобразовать код,представленный по этой ссылке http://www.cyberforum.ru/turbo-pascal/thread1053110.html на С++ Задание...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
lemegeton
2923 / 1352 / 135
Регистрация: 29.11.2010
Сообщений: 2,725
03.01.2013, 15:06     Перевести код с Pascal #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
#include <cstdlib>
#include <ctime>
#include <iostream>
#include <iomanip>
 
bool isArithmeticSequence(int *sequence, size_t size) {
  if (size < 2) return false;
  int increment = sequence[1] - sequence[0];
  for (int i = 2; i < size; ++i)
    if (sequence[i] - sequence[i - 1] != increment)
      return false;
  return true;
}
 
void printSequence(int *sequence, size_t size) {
  for (int i = 0; i < size; ++i)
    std::cout << std::setw(4) << sequence[i];
  std::cout << std::endl;
}
 
int *getRandomSequence(int *sequence, size_t size) {
  int increment = rand() % 9 - 4;
  sequence[0] = rand() % 5;
  for (int i = 1; i < size; ++i)
    sequence[i] = sequence[i - 1] + increment
      + (rand() % 50 ? 0 : 1); // ñëîìГ*ГІГј ïîñëåäîâГ*òåëüГ*îñòü Г± âåðîÿòГ*îñòüþ 1/50
  return sequence;
}
 
int main(int argc, char *argv[]) {
  srand(time(0));
 
  size_t size = 7 + rand() % 5;
  int *sequence = getRandomSequence(new int[size], size);
 
  printSequence(sequence, size);
 
  if (isArithmeticSequence(sequence, size)) {
    std::cout << "The above sequence is arithmetic with increment of " <<
      (sequence[1] - sequence[0]) << "." << std::endl;
  } else {
    std::cout << "The above sequence is not arithmetic." << std::endl;
  }
  delete [] sequence;
 
  std::cin.peek();
  return 0;
}
ZaMaZaN4iK
Мой лучший друг-отладчик!
163 / 163 / 9
Регистрация: 24.06.2012
Сообщений: 662
Записей в блоге: 5
Завершенные тесты: 1
03.01.2013, 15:11     Перевести код с Pascal #3
lemegeton, я думаю мой код будет чуток полегче для понимания.
krion, я старался как можно меньше вносить правок в ваш код, старался сохранить его как можно ближе к оригиналу.Я бы честно говоря сделал чуть-чуть по другому, но...(переменную D я удалил - она лишняя)
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
#include <iostream>
#include <clocale>
 
int main()
{
    setlocale(LC_ALL,"RUS");
    const int nmax=20;
    int n,i,a[nmax];
    bool f;
    do
    {
    std::cout<<"Размер массива до ',"<<nmax<<" ,' n=";
    std::cin>>n;
    }
    while(n > nmax || n < 0);
    for(i=0;i<n;i++)
    {
        std::cout<<"a["<<i<<"]=";
        std::cin>>a[i];
    }
    f=true;
    i=1;
    while(i < n-1 && f)
    {
        if(a[i]-a[i-1] != a[i+1]-a[i])
            f=false;
        else 
            i++;
    }
    if(f)
        std::cout<<"Это арифметическая прогрессия, ее разность="<<a[1]-a[0]<<std::endl;
    else
        std::cout<<0<<std::endl;
    system("pause");
}
Ответ Создать тему
Опции темы

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