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

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

Войти
Регистрация
Восстановить пароль
 
Дмитрий12
1 / 1 / 0
Регистрация: 19.02.2011
Сообщений: 70
#1

Из Pascal в С++ - C++

16.05.2011, 21:12. Просмотров 287. Ответов 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
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.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2011, 21:12
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Из Pascal в С++ (C++):

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница? - Pascal
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET и не понял, в...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal - Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC - Turbo Pascal
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских букв; соседние слова разделены запятой,...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы - Turbo Pascal
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record x,y:integer; end; ...

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal - Turbo Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг ограниченный окружностью , проходящий...

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net? - PascalABC.NET
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode: integer; ErrCode: integer; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MILAN
885 / 779 / 86
Регистрация: 21.02.2009
Сообщений: 1,722
16.05.2011, 21:26 #2
Дмитрий12, задание где?
1
Дмитрий12
1 / 1 / 0
Регистрация: 19.02.2011
Сообщений: 70
16.05.2011, 21:29  [ТС] #3
Цитата Сообщение от MILAN Посмотреть сообщение
Дмитрий12, задание где?
Сори забыл=(!!
Вот само задание: Если в данном массиве действительных чисел а1,...,аn есть хотя бы один член, меньший чем -2,то все отрицательные члены заменить их квадратами.
0
Onishare
30 / 30 / 5
Регистрация: 07.05.2011
Сообщений: 50
16.05.2011, 21:42 #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");
 
}
1
MILAN
885 / 779 / 86
Регистрация: 21.02.2009
Сообщений: 1,722
16.05.2011, 21:55 #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;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2011, 21:55
Привет! Вот еще темы с ответами:

Необходимо перевести программу с Pascal ABC на free pascal - Free Pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k, n, i:byte; begin ...

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal - Pascal ABC
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt, Graph; Var Punkt : Byte; Knopka :...

Нужен Turbo pascal или Free pascal на русском - Pascal
Нужен Turbo pascal или Free pascal на русском языке, есть такой или нет? По книге обучаюсь по Turbo pascal, а установлен pascalABC, в книге...

Перевести в код Pascal ABC из кода Pascal Delphi - Pascal ABC
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл последовательного доступа N...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
16.05.2011, 21:55
Ответ Создать тему
Опции темы

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