0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 20

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

16.12.2013, 23:45. Показов 754. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите, пожалуйста перевести в с++

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;
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.12.2013, 23:45
Ответы с готовыми решениями:

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод из одного кода в другой! Как его можно...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of integer; begin c:=1; ...

Перевести код с паскаля
Помогите перевести простой алгоритм сортировки в современное консольное приложение на C# Используется 2 массива. Суть метода: 1....

4
16.12.2013, 23:54

Не по теме:

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

0
Аноним
 Аватар для Di3go
5 / 5 / 4
Регистрация: 15.12.2013
Сообщений: 149
16.12.2013, 23:56
Сделай код читабельным.
0
0 / 0 / 0
Регистрация: 12.12.2013
Сообщений: 20
17.12.2013, 00:52  [ТС]
По созданию массиву и циклу 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;
0
 Аватар для abit
857 / 511 / 147
Регистрация: 03.02.2013
Сообщений: 1,696
17.12.2013, 03:49
это вообще шедевр
repeat
write('Количество строк=');
readln(n);
until n in [1..nmax];
пусть человек, что это написал, завяжет с программированием навсегда
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.12.2013, 03:49
Помогаю со студенческими работами здесь

Перевести код с Паскаля на Си
Думаю Вам не составит труда ). А я запутался) uses crt; var N,M:integer; function Fac(x:integer):longint; begin if x=1 then...

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

Перевести код с паскаля на Си
Задача написана под паскаль! Знающим людям прошу,помогите написать ее на Borland C (чистый С) program lab17_1; uses crt; type...

Перевести код с Паскаля на C#
Function h(st: string): integer; Var Sum: longint; I: integer; Begin For i:=0 to length(st) do Sum := sum + ord(st); H:=sum...

Перевести код с Паскаля на C#
program lm; uses crt; Type P= array of integer; M= array of integer; Var a:p; b:m; i,k,n,x:integer; begin


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

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

Новые блоги и статьи
Пишем адаптер для локального хранилища S3 на C#
stackOverflow 16.07.2025
Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .
Старые замки
kumehtar 16.07.2025
Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB
Javaican 15.07.2025
Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .
EmBitz, создание проекта, отладка, прошивка
locm 15.07.2025
Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов
golander 13.07.2025
Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .
Как Node.js выполняет асинхронные операции
Reangularity 13.07.2025
Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru