Перевести код из Паскаля

17.05.2018, 20:01. Показов 503. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

помогите преобразовать,решает не коректно.

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
procedure TForm1.Button3Click(Sender: TObject);
var n,i,j,max:integer;
begin
  randomize;
  n:=strtoint(inputbox('Введите количество элементов массива:','Ввод',' '));
  stringgrid1.colcount:=n+1;
  stringgrid2.colcount:=n+1;
  for i:=1 to n do
  begin
  a[i]:=-10+random(20);
  if a[i]<0 then
            max:=a[i];
            stringgrid1.Cells[i,0]:=inttostr(i);
            stringgrid1.Cells[i,1]:=inttostr(a[i]);
  end;
  for i:=1 to n do
  if(a[i]<0) and(a[i]>max)then
                          max:=a[i];
                          showmessage('Максимальный отрицательный элемент  = '+inttostr(max));
  for i:=1 to n do
   begin
    if a[i]>0 then
              a[i]:=max;
    stringgrid2.Cells[i,0]:=inttostr(i);
    stringgrid2.cells[i,1]:=inttostr(a[i]);
   end;
  end;

C++
1
2
3
4
5
6
7
8
9
10
11
void masss( int* &t)
{
    cout << ("Введите кол-во строк = ");
    cin >> n;
    t = new int[n];
    for (int i = 0; i < n; i++)
    {
        t[i] = rand() % 100;
    }
    cout << endl << endl;
}

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
void zadacha1(int* &t)
{
    int max;
    
    for (int i = 0; i < n; i++) {
        if (t[i] < 0) 
            max = t[i];
    }
    for (int i = 0; i < n; i++) {
        if (t[i] < 0&&t[i]>max) {
            max = t[i];
            cout << "max ";
        }
 
 
    }
    printf("\n Измененная матрица:\n"); //исходматрица
    for (int i = 0; i < n; i++) {
        if (t[i] > 0) {
            t[i]=max;
            cout << t[i];
        }
 
    }
}

C++
1
2
3
4
5
6
7
int main()
{
int* t = 0;
masss(t)
zadacha1(t);
return 0;
}

Добавлено через 10 минут
вопрос решен.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

17.05.2018, 20:01

Ответы с готовыми решениями:

перевести код из паскаля на с++
var i, a, n, s: int64; j, t:longint; procedure out; begin writeln (s); halt; end; begin readln (n); if n<1 then...

Перевести код с Паскаля на Си++
Добрый всем день! Будьте добры, перепишете пожалуйста данную программу из паскаля на си++. Буду очень благодарен. Я сам Паскаль не знаю....

Перевести код с Паскаля на C++
begin var число := ReadInteger('Введите трехзначное натуральное число:'); var (сотни, единицы) := (число div 100, число mod...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

17.05.2018, 20:01

Помогаю со студенческими работами здесь

Перевести код с паскаля на C++
По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N! (факториала числа N). ...

Перевести код с Паскаля на С++
Program proga; uses crt; Type gostinica= record FIO:string; nomer:integer; cena:integer; kolvo:integer; itogo: integer; ...

Перевести код с Паскаля на С++
Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и августе, которая хранится в...

Перевести код с паскаля в с++
Нужно срочно перевести код с паскаля в с++uses crt; var a0,a1,ai,p,z:real; i:byte; begin clrscr; a0:=1; a1:=1; p:=1; ...

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

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх