0 / 0 / 0
Регистрация: 14.11.2016
Сообщений: 26
1

Перевод программы из Pascal на С++

21.11.2016, 18:49. Показов 3851. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++.

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
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
{просто посчитаем количество перегибов+1}
k:=1;
for i:=2 to n-1 do
if((a[i]<a[i-1])and(a[i]<a[i+1]))or((a[i]>a[i-1])and(a[i]>a[i+1]))
then k:=k+1;
write('Количество участков монотонности=',k);
readln
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2016, 18:49
Ответы с готовыми решениями:

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой...

Перевод программы с Pascal на C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++: program z3; ...

Перевод программы с Pascal
Помогите перевести программу на VBA, пожалуйста. program riski; uses crt; type mas=array of...

1
257 / 234 / 185
Регистрация: 02.04.2016
Сообщений: 898
21.11.2016, 19:27 2
Лучший ответ Сообщение было отмечено Kesuki как решение

Решение

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
#include <iostream> 
using namespace std;
 
int main()
{
    const int nmax = 1000;
    int n;
    srand(time(0));
    do
    {
        cout << "Введите размер массива до " << nmax << ": ";
        cin >> n;
    } while (n<0||n>nmax);
    int * a = new int[n];
    for (int i = 0; i < n; ++i)
    {
        a[i] = rand() % 50 - 25;
        cout << a[i] << " ";
    }
    cout << endl;
    int cnt = 1;
    for (int i = 1; i < n-1; ++i)
        if (((a[i]<a[i-1])&&(a[i]<a[i+1]))||((a[i]>a[i-1])&&(a[i]>a[i+1])))
            ++cnt;
    cout << "Количество участков монотонности= " << cnt;
    delete a;
}
1
21.11.2016, 19:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2016, 19:27
Помогаю со студенческими работами здесь

Перевод программы из Pascal в C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля...

Перевод программы с С++ на Pascal!
Помогите, пожалуйста, срочно нужно перевести код, у меня не получается постоянно выдает разные...

Перевод программы с Pascal на C#
плиз нужно перевести с паскаля на c# //Визуально разделил циклы, чтобы было более читаемо ...

Перевод программы из C++ на Pascal
Народ прошу помощи. Нужно перевести прогу из C++ на Pascal. Помогите пожалуйста, в синтаксисе...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru