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

Перевести код из Паскаля в С++ - C++

Восстановить пароль Регистрация
 
hhhhhh
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 20
16.12.2013, 23:45     Перевести код из Паскаля в С++ #1
Помогите, пожалуйста перевести в с++

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;
    s,x:integer;
begin
clrscr;
repeat
write('Количество строк=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов=');
readln(m);
until m in [1..nmax];
writeln('Введите построчно элементы массива, целые числа');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
{считаем сумму в столбцах}
for j:=1 to m do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+a[i,j];
  a[n+1,j]:=s; {и записываем в дополнительную строку}
 end;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  write(' ':6);{5 пробелов в начале строки}
  for j:=1 to m do
  write(a[i,j]:5);{элементы строки}
  writeln;
 end;
writeln;
write('Сумма:');{дополнительная строка с суммами}
for j:=1 to m do
write(a[n+1,j]:5);
writeln;
writeln;
{перестановка столбцов по возрастанию сумм(значений в последней строке)}
for j:=1 to m-1 do
for k:=j+1 to m do
if a[n+1,j]>a[n+1,k] then
for i:=1 to n+1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Столбцы упорядочены по возрастанию сумм:');
for i:=1 to n do
 begin
  write(' ':6);
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2013, 23:45     Перевести код из Паскаля в С++
Посмотрите здесь:

C++ Перевести код с Паскаля на С++
C++ Перевести код паскаля в с++
C++ Перевести код с паскаля на C++
перевести небольшой код с паскаля на с C++
C++ перевести из паскаля в с++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ryuk
16.12.2013, 23:54
  #2

Не по теме:

hhhhhh, а где же ваши попытки?

Di3go
Аноним
 Аватар для Di3go
3 / 3 / 2
Регистрация: 15.12.2013
Сообщений: 134
16.12.2013, 23:56     Перевести код из Паскаля в С++ #3
Сделай код читабельным.
hhhhhh
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 20
17.12.2013, 00:52  [ТС]     Перевести код из Паскаля в С++ #4
По созданию массиву и циклу for более менее дошло, но хотелось бы уточнить в таких моментах
Pascal
1
2
3
4
5
6
7
for j:=1 to m do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+a[i,j];
  a[n+1,j]:=s; {и записываем в дополнительную строку}
 end;
abit
 Аватар для abit
260 / 259 / 33
Регистрация: 03.02.2013
Сообщений: 709
17.12.2013, 03:49     Перевести код из Паскаля в С++ #5
это вообще шедевр
repeat
write('Количество строк=');
readln(n);
until n in [1..nmax];
пусть человек, что это написал, завяжет с программированием навсегда
Yandex
Объявления
17.12.2013, 03:49     Перевести код из Паскаля в С++
Ответ Создать тему
Опции темы

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