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

04.10.2019, 11:14. Показов 570. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Всем привет! Помогите перевести код Pascal на C++. Заранее спасибо!

Pascal

uses crt;
const mmax=23;
nmax=18;
var a:array[1..mmax+1,1..nmax+1] of integer;
m,n,i,j,imn,imx:byte;
sm,sp:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',mmax,' m=');
readln(m);
until m in [1..mmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
clrscr;
writeln('Исходная матрица c суммами по строкам и столбцам:');
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(50);
sp:=0;
for i:=1 to m do
begin
sm:=0;
for j:=1 to n do
sm:=sm+a[i,j];
a[i,n+1]:=sm;
sp:=sp+sm;
end;
for j:=1 to n do
begin
sm:=0;
for i:=1 to m do
sm:=sm+a[i,j];
a[m+1,j]:=sm;
end;
a[m+1,n+1]:=sp;
for i:=1 to m+1 do
begin
for j:=1 to n+1 do
if j=n+1 then write(a[i,j]:7)
else write(a[i,j]:4);
if i<=m then writeln;
end;
readln
end

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

04.10.2019, 11:14

Ответы с готовыми решениями:

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

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

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

Перевод из Pascal в C#
Пожалуйста переведите var x:integer; a,y:real; begin write('Введите коэффициент а=');...

	04.10.2019, 11:14

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

04.10.2019, 11:14

Помогаю со студенческими работами здесь

перевод с Pascal на C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод из Pascal в C#
Переведите если не сложно, пожалуйста var a: array of integer; n, m, i, j, k, k_min, i_max,...

Перевод из Pascal в С++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не получается вывести на...

Перевод из pascal в С
Program pr4_1; uses crt; var firstmaxpos, lastminpos, n, i :integer; x,...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх