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

Перевести программу,написанную на паскале,на язык си++ - C++

Войти
Регистрация
Восстановить пароль
 
Nikitos1243
0 / 0 / 0
Регистрация: 07.01.2014
Сообщений: 5
14.01.2014, 17:09     Перевести программу,написанную на паскале,на язык си++ #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
uses crt;
var a:array[1..2,1..100] of integer;
    m,i,j,s,mx:integer;
begin
randomize;
write('Количество столбцов матрицы m=');
read(m);
writeln('Матрица:');
for i:=1 to 2 do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(5)+1;//введем небольшой диапазон чисел, чтоьы было несколько максимумов
    write(a[i,j]:3);
   end;
  writeln;
 end;
mx:=a[1,1];
for j:=2 to m do
if a[1,j]>mx then mx:=a[1,j];
writeln('Максимальный элемент в первой строке=',mx);
s:=0;
for j:=1 to m do
if a[1,j]=mx then s:=s+a[2,j];
write('Сумма элементов второй строки, в столбцах с максимальным=',s);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2014, 17:09     Перевести программу,написанную на паскале,на язык си++
Посмотрите здесь:

C++ Как запустить программу на C++ написанную в VS 2008
C++ Нужно перевести небольшую программу, написанную на C++, на С (неповторяющиеся символы в строке)
C++ Перевести программу с языка Паскаль в язык С++
C++ Перевести на язык С++
C++ ламеру перевести в язык с++
C++ перевести на язык С++ с Паскаля
Правильно перевести в С++ язык C++
Нужно перевести на язык Pascal C++
Переделать программу написанную на Pascal в С++ C++
Откомпилировать и выполнить написанную программу из блокнота в Dev-C++ 4.9.9.2 C++
C++ Правильно перевести на язык c++
C++ Какой исправить программу, написанную в Visual studio?

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
cooller
 Аватар для cooller
564 / 532 / 120
Регистрация: 25.12.2013
Сообщений: 1,456
14.01.2014, 17:24     Перевести программу,написанную на паскале,на язык си++ #2
Nikitos1243, Держи
C++
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
#include "stdafx.h"
#include<iostream>
#include<iomanip>
#include<time.h>
 
 
int _tmain(int argc, char* argv [])
{
    setlocale(LC_ALL, "Russian");
    int n = 2, m, i, j, s = 0, mx;
    srand(time(NULL));
    std::cout << "Введите количество столбцов = ";
    std::cin >> m;
    int **a = new int *[n];
    for (int i = 0; i < n; i++)
        a[i] = new int[m];
    for (int i = 0; i < n; i++)
        for (int j = 0; j < m; j++)
            a[i][j] = 1 + rand() % 5;
    for (int i = 0; i < n; i++, std::cout << std::endl)
        for (int j = 0; j < m; j++)
            std::cout << std::setw(3) << a[i][j];
 
    mx = a[0][0];
    for (int j = 1; j < m; j++)
        mx = a[0][j]>mx ? a[0][j] : mx;
 
    std::cout << "Максимальный элементв в первой стороке = " << mx;
    for (int j = 0; j < m; j++)
        if (a[1][j] == mx)
            s += a[1][j];
 
    std::cout << "\nСумма элементов второй строки, в столбцах с максимальным= " << s;
 
    std::cin.get();
    std::cin.ignore();
    
    return 0;
}
Yandex
Объявления
14.01.2014, 17:24     Перевести программу,написанную на паскале,на язык си++
Ответ Создать тему
Опции темы

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