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

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

Войти
Регистрация
Восстановить пароль
 
popigun911
Сообщений: n/a
#1

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

22.05.2014, 09:59. Просмотров 218. Ответов 0
Метки нет (Все метки)

Всем привет, мне нужна помощь в переводе кода из 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++ (C++):

Перевод кода из Pascal в Си++ - C++
Type ST = Record Num: Integer; Name: String; Fak: String; Group: String; Angl: Integer; Physic: Integer; var Table: Array ...

Перевод кода из Pascal в С++ - C++
Люди добрые прошу помочь в переписи кода из Pascal в С++, помогите пожалуйста !:cry: function st2(k:integer): integer; var j, rez:...

перевод кода из Pascal в C++ - C++
помогите, пожалуйста, перевести этот код в C++ :impossible: program chisla; uses Crt; const n = 5; var y: real; flag:...

Перевод кода из Pascal/VB в C++ - C++
Помогите пожалуйста перевести код в С++. Сдавать уже скоро, и я никак не приложу ума как это все сотворить в С++ uses crt; ...

Перевод кода с Pascal - C++
Const n=5;m=10; var b:arrayof integer; i,j,k,buf,l:integer; begin for i:=1 to n do begin writeln; ...

Перевод кода с Pascal - C++
Переведите, пожалуйста, код с Pascal на C++ const maxn = 10; var n: integer; a: array of integer; used: array of Boolean; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2014, 09:59
Привет! Вот еще темы с ответами:

Перевод кода с Pascal - C++
uses crt,graphABC; function y(x:real):real; begin if x&lt;0 then y:=1+sqrt(abs(cos(x*x+1))) else if x&lt;=1 then y:=-2*x-sqr(sin(x)) ...

Перевод кода с Pascal - C++
uses crt; const n = 17; var arr: array of integer; sum: integer; i: byte; k,d,e: integer; begin

Перевод кода с Pascal - C++
const p=1; const x=2.1; var t,a,b,y:real; begin write('t='); readln(t); b:=sin(p*p)+Power(x,3); a:=Power(exp(1),...

Перевод кода с Pascal - C++
var k,i,n,c:integer; p,w:real; begin write('k&gt;-3 k='); readln(k); w:=0; c:=1; for i:=-3 to k do begin ...


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

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

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