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

перевод с паскаля на С++ - C++

Восстановить пароль Регистрация
 
helpme_plz
0 / 0 / 0
Регистрация: 07.02.2012
Сообщений: 21
20.02.2012, 21:05     перевод с паскаля на С++ #1
Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию (см. задание 4). Если образуют, то вывести знаменатель прогрессии, если нет — вывести 0.}

Задание 4. Дано целое число N (> 1), а также первый член A и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:}

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
Program Array25;
 
const
N = 10;
var 
IntArr:array[1..N]of integer;
q: real;
flag: boolean;
i:integer;
begin
flag:= true;
for i:=1 to N do
begin
IntArr[i]:=random(66);
end;
q:=IntArr[2]/IntArr[1];
for i:=3 to N do
begin
if((flag = true) or(intarr[i]/intarr[i-1] = q))then
flag:=true
else
flag:=false;
end;
 
if flag then
writeln('Yes, q = ', q)
else
writeln('No');
end.
Код выделяем тегами![/PASCAL]

Добавлено через 3 минуты
все научился) выделил тегом)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.02.2012, 21:05     перевод с паскаля на С++
Посмотрите здесь:

C++ Перевод с Паскаля на C++
Перевод с паскаля на С++ C++
C++ Перевод из паскаля в с ++
Перевод из Паскаля в С++ C++
C++ Перевод с Паскаля на С++
Перевод из Паскаля в C++ C++
C++ Перевод с паскаля на С++
Перевод с Паскаля в С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Xind
275 / 148 / 7
Регистрация: 05.11.2011
Сообщений: 425
Записей в блоге: 1
20.02.2012, 21:13     перевод с паскаля на С++ #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
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
int main()
{
  const int N = 10;
  int IntArr[N];
  double q;
  bool flag;
  int i;
 
  srand( time(NULL) );
 
  flag = true;
  for (i = 0; i < N; i++)
  {
    IntArr[i] = rand()%66;
  }
 
  q = (double)IntArr[1] / IntArr[0];
 
  for (i = 2; i < N; i++)
  {
    if ( flag || ((double)IntArr[i]/IntArr[i-1] == q) flag = true;
    else flag = false;
  }
 
  if (flag) cout << "Yes, q = " << q << endl;
  else cout << "No\n";
  system("pause");
  return 0;
}
Yandex
Объявления
20.02.2012, 21:13     перевод с паскаля на С++
Ответ Создать тему
Опции темы

Текущее время: 06:27. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru