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

Из Pascal в С++ - C++

Восстановить пароль Регистрация
 
Дмитрий12
1 / 1 / 0
Регистрация: 19.02.2011
Сообщений: 70
16.05.2011, 21:12     Из Pascal в С++ #1
Всем добрый вечер!!!Помогите перевести программу в С++
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
program El;
uses crt;
const nmax=20;
var b,a:array[1..nmax] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
write('Количество элементов n=');
readln(n);
for i:=1 to n do
   a[i]:=random(10)-3;
writeln('исходная массив*');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<-2 then
Begin
for i:=1 to n do
 if a[i]<0 then
 a[i]:=a[i]*a[i];
end;
writeln('получившийся массив');
for i:=1 to n do
write(a[i]:4);
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2011, 21:12     Из Pascal в С++
Посмотрите здесь:

C Pascal'я на С++ C++
C Pascal на C++ C++
C++ Pascal to C++
Из Pascal в С C++
Pascal to С++ C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MILAN
 Аватар для MILAN
883 / 777 / 86
Регистрация: 21.02.2009
Сообщений: 1,722
16.05.2011, 21:26     Из Pascal в С++ #2
Дмитрий12, задание где?
Дмитрий12
1 / 1 / 0
Регистрация: 19.02.2011
Сообщений: 70
16.05.2011, 21:29  [ТС]     Из Pascal в С++ #3
Цитата Сообщение от MILAN Посмотреть сообщение
Дмитрий12, задание где?
Сори забыл=(!!
Вот само задание: Если в данном массиве действительных чисел а1,...,аn есть хотя бы один член, меньший чем -2,то все отрицательные члены заменить их квадратами.
Onishare
30 / 30 / 5
Регистрация: 07.05.2011
Сообщений: 50
16.05.2011, 21:42     Из Pascal в С++ #4
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
#include <iostream>
#include <ctime>
 
using namespace std;
 
int main()
{
  int n;
  const int nmax = 20;
  int a[nmax];
  cout << "Количество элементов n = ";
  cin >> n;
  if (n > 20) n = 20; // Добавил проверку на выход из дапазона массива
  srand(time(NULL));
  for (int i = 0; i < n; ++i) a[i] = rand() % 10 - 3;
  cout << "исходная массив\n";
  for (int i = 0; i < n; ++i) cout << a[i] << " ";
  cout << "\n";
  for (int i = 0; i < n; ++i)
  if (a[i] < -2) {
    for (int i = 0; i < n; ++i)
    if (a[i] < 0) a[i]=a[i]*a[i];
    break;
  }
  cout << "получившийся массив\n";
  for (int i = 0; i < n; ++i) cout << a[i] << " ";
  cout << "\n";
  system("pause");
 
}
MILAN
 Аватар для MILAN
883 / 777 / 86
Регистрация: 21.02.2009
Сообщений: 1,722
16.05.2011, 21:55     Из Pascal в С++ #5
Цитата Сообщение от Дмитрий12 Посмотреть сообщение
Вот само задание: Если в данном массиве действительных чисел а1,...,аn есть хотя бы один член, меньший чем -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
#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
    srand(time(NULL));
    int *arr;
    int size,cnt=0;
    std::cout<<"Enter size of array -> ";
    std::cin>>size;
    arr = new int[size];
    std::cout<<"Array -> ";
     for(int i=0; i<size; i++)
     {
         arr[i]=rand()%9-3;
         std::cout<<arr[i]<<" ";
          if(arr[i]<-2)
          {
              cnt=1;
          }
     }
    std::cout<<"\nOutput -> ";
     for(int i=0; i<size; i++)
     {
         if(cnt && arr[i]<0)
         {
             arr[i]*=arr[i];
         }
        std::cout<<arr[i]<<" ";
     }
     delete [] arr;
     system("pause");
     return 0;
}
Yandex
Объявления
16.05.2011, 21:55     Из Pascal в С++
Ответ Создать тему
Опции темы

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