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

Перевод с Pascal в С++

29.11.2021, 20:23. Показов 239. Ответов 0

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Var a:array[1..10000] of real;
    min,d,count,s: real;
    i,j,m,n,key: integer;
      begin
       Randomize;
       write('Введите n ');
       readln(n);
       writeln('Наш массив: ');
        for i:=1 to n do
          begin
            a[i]:=random(21)-10;
            Write(a[i]:1:1,' ');
          end;
        m:=0;
        writeln();
         for i:=1 to n do
            if a[i]=0 then m:=m+1;
             writeln('Количество нулевых элементов=',m);
             min:=a[1];
            for i:=2 to n do begin
            if a[i]<=min then min:=a[i];
            if a[i]<=min then m:=i;
         end;
        s:=0;
        for i:=m+1 to n do
          s:=s+a[i];
          writeln('Сумма элементов, после последнего минимального=',s:3:1);
          for i:=1 to N do
            begin
              for j:=1 to N-1 do
               begin
                key:=j+1;
                count:=a[key];
                  if abs(a[j])>=abs(a[key]) then
                    begin
                      a[key]:=a[j];
                      a[j]:=count;
                    end;
               end;
          end;
      writeln('Отсортированный по возрастанию модулей массив: ');
  for i:=1 to n do begin
     Write(a[i]:1:1,' ');
  end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2021, 20:23
Ответы с готовыми решениями:

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

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

Перевод с Turbo Pascal в ABC Pascal
помогите пожалуйста с переводом, никак не могу разобраться( program Mayatnik; uses graphABC,...

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

0
29.11.2021, 20:23
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2021, 20:23
Помогаю со студенческими работами здесь

Перевод из Pascal в С++
Помогите пожалуйста перевести программу из Паскали в С++ var k,n: integer; d: char; ...

Перевод с Pascal на c#
Const N=10; Var I,temp:integer; A:array of integer; Begin For i:=1 to n do Begin ...

Перевод с C на Pascal
Помогите перевести код с C на Pascal, сам я его плохо знаю, да и в универе нас учат C и C++, я не...

Перевод из С ++ в Pascal
Здравсвуйте, помогите перевести код из С++ в Pascal. Пожалуйста!! #include&lt;stdio.h&gt;...

Перевод из Pascal в C#
Пытался перевести сам, но не получается, т.к. новичок в этой теме. Помогите, заранее признателен....

Перевод с Pascal на C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program...


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

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

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