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

Перевод кода из Pascal в C++ - C++

Восстановить пароль Регистрация
 
popigun911
Сообщений: n/a
22.05.2014, 09:59     Перевод кода из Pascal в C++ #1
Всем привет, мне нужна помощь в переводе кода из Pascal в C++.
У самого получается с трудом, помогите кто сможет.
1)Даны две таблицы. Составить из них 3 таблицу, упорядоченную по возрастанию:
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
program z1;   
   uses crt;   
   var a : array [1..10] of longint;   
         b : array [1..20] of longint;   
         c : array [1..30] of longint;   
         n, m, k, l, i, j, min : longint;   
 begin   
   clrscr;   
   write ('введ. кол. эл. таб. а n='); readln (n);   
   write ('введ. кол. эл. таб. b m='); readln (m);   
   for i:=1 to n do   
     begin   
      write('a[', i, ']='); readln (a[i]);   
     end;   
   for i:=1 to m do   
    begin   
     write('b[' ,i, ']='); readln (b[i]);   
    end;   
   k := n + m;{кол. эл. таб. с}   
       
   (*заносим эл.таб.а в таб.с*)   
   for i:=1 to n do c[i] := a[i];   
  
   (*заносим эл.таб.в в таб.с*)   
   for i:=1 to m do c[i+n] := b[i];   
  
   (*упорядочим таб.с[1..k] по возраст*)   
   for i:=1 to k-1 do   
    begin   
     l := i; {номер мин.}   
     min := c[i];   
     for j := i+1 to k do   
      if c[j] < min then   
       begin   
        min := c[j];   
        l := j;   
       end;   
      c[l] := c[i]; {меняем местами 1-й и мин.эл.}   
      c[i] := min;   
    end;   
   for i:=1 to k do writeln ('Ответ: c[', i, ']=', c[i]);   
   readln;   
 end.
2)Найти наибольшее из четырёх чисел
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program z2;   
   uses crt;   
   var a, b, c, d, max, max1, max2 : real;   
  
   procedure bol2(aa, bb : real; var maxmax : real );   
    begin   
     if aa > bb then maxmax := aa else maxmax := bb;   
    end;   
  
 begin   
   clrscr;   
   write ('введте a, b, c, d через пробел ');   
   readln (a, b, c, d);   
   bol2 (a, b, max1);   
   bol2 (c, d, max2);   
   bol2 (max1, max2, max);   
   writeln ('max=', max);   
   readln;   
 end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2014, 09:59     Перевод кода из Pascal в C++
Посмотрите здесь:

перевод кода из Pascal в C++ C++
C++ Перевод кода из Pascal в Си++
Перевод кода с Pascal в C++ C++
C++ Перевод кода из Pascal в С++
C++ Перевод кода с Pascal на С++
Перевод кода с Pascal C++
Перевод кода с Pascal C++
Перевод кода из pascal в c++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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