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

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

Войти
Регистрация
Восстановить пароль
 
PIVEHb
0 / 0 / 0
Регистрация: 03.06.2013
Сообщений: 23
#1

С Паскаля на С++ - C++

17.06.2013, 12:53. Просмотров 299. Ответов 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
program Matrix25;
var
MAx,Sum,num,j,i,M,N:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных 
writeln('Введите числа M (M<=10) и N (N<=10)');
 read(M); readln(N);
writeln('Введите по ',N,' элементов ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
// Решение 
writeln;
writeln('Ответ');
for j:=1 to N do begin Max:=Max+a[1,J]; end;
num:=1;
for i:=2 to M do
begin
Sum:=0;
for j:=1 to N do
begin
Sum:=sum+a[I,J];
end;
if Sum> max then begin max:=sum; num:=i; end;
end;
// Ответ 
writeln('номер строки с наибольшей суммой элементов ',num);
writeln('суммa элементов ',max);
end.
 Комментарий модератора 
Пользуйтесь тегами форматирования кода.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 12:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос С Паскаля на С++ (C++):

с паскаля на Си++ - C++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat writeln('Выберите действие:');...

Из Паскаля в С++ - C++
Дана программа на Паскале: Program q; var a,b:byte; begin Writeln('Двузначные числа, удвоенная сумма цифр которых равна...

Из Паскаля на СИ - C++
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x + c * c; a := exp(ln(abs(92))...

Из Паскаля на С++ - C++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function del(n:integer):integer; var...

из паскаля в си) - C++
Переведите мне пожалуйста прогу, написанную в паскале, в си))))) для меня это очень важно))))))) завтра последний срок) program...

Из паскаля в С++ - C++
Program lab5; Var a:array of integer; n,I,min,k:integer; P:longint; s:real; Begin Writeln('введите размерность массива'); ...

3
SatanaXIII
Супер-модератор
Эксперт С++
5639 / 2674 / 252
Регистрация: 01.11.2011
Сообщений: 6,571
Завершенные тесты: 1
17.06.2013, 13:30 #2
По чем купил по том продал.
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
#include <iostream.h>
//program Matrix25;
//var
int MAx,Sum,num,j,i,M,N;//MAx,Sum,num,j,i,M,N:integer;
int a[9][9]//a: array [1..10,1..10] of integer;
{//begin
// Ввод данных 
cout << "Введите числа M (M<=10) и N (N<=10)";//writeln('Введите числа M (M<=10) и N (N<=10)');
 cin >> M >> N;//read(M); readln(N);
cout << "Введите по ',N,' элементов ";//writeln('Введите по ',N,' элементов ');
for(i=0; i<M; i++)//for i:=1 to M do begin
cout << i <<" строки : ";//write(i,' строки : ');
for(j=0; j<N; j++) cin >> a[i][j];//for j:=1 to N do read(a[i,j]);
}//end;
// Решение 
cout << endl;//writeln;
cout << "Ответ";//writeln('Ответ');
for(j=0; j<N; j++) {Max = Max+a[1][J]}//for j:=1 to N do begin Max:=Max+a[1,J]; end;
num = 1;//num:=1;
for(i=2; i<M; i++)//for i:=2 to M do
{//begin
Sum = 0;//Sum:=0;
for(j=0; j<N; j++)//for j:=1 to N do
{//begin
Sum = sum+a[I][J];//Sum:=sum+a[I,J];
}//end;
if(Sum>max){max=sum; num=i;}//if Sum> max then begin max:=sum; num:=i; end;
}//end;
// Ответ 
cout << "номер строки с наибольшей суммой элементов " << num";//writeln('номер строки с наибольшей суммой элементов ',num);
cout << "суммa элементов + << max";//writeln('суммa элементов ',max);
}//end.
0
PIVEHb
0 / 0 / 0
Регистрация: 03.06.2013
Сообщений: 23
17.06.2013, 13:44  [ТС] #3
Не роботает(
0
SatanaXIII
Супер-модератор
Эксперт С++
5639 / 2674 / 252
Регистрация: 01.11.2011
Сообщений: 6,571
Завершенные тесты: 1
17.06.2013, 14:02 #4
Цитата Сообщение от PIVEHb Посмотреть сообщение
Не роботает(
Странно. У меня тоже не работает. Давайте разбираться вместе! Что не работает у вас?
P.S. Историческая справка: Си, в отличие от паскаля, чувствителен к регистру. А это значит, что для него Max, mAx и MAx будут три разные переменные.
Так что именно у вас не работает?
0
17.06.2013, 14:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2013, 14:02
Привет! Вот еще темы с ответами:

С Паскаля на С++ - C++
Дана целочисленная матрица размера M × N. Найти количество ее строк, все элементы которых различны. ...

Из паскаля в С++ - C++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее спасибо. program example1; var ...

с паскаля в с++ - C++
помогите перевести с код паскаля в с++ program MYstring; var len1, len2:byte; s1, s2: string; function center (s1,s2:string;...

из паскаля в C++ - C++
3)Даны два действитьельных числа. Заменить первое число нулем, если оно меньше или равно второму и оставить числа без изменения в противном...


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

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

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