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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ матрица: меняем местами последнюю строку и последный столбец http://www.cyberforum.ru/cpp-beginners/thread298110.html
что нужно сюда добавить или изменить, чтобы поменять местами последний столбец и последнюю строку #include <iostream.h> #include <conio.h> #include <stdlib.h> #include <iomanip.h> void fill(int...
C++ Перевести dataGridView1.Columns.ValueType = typeof(double); это на шарпе как переделать на С++ http://www.cyberforum.ru/cpp-beginners/thread298108.html
C++ стеганография в медиа-аудио файлах
ребяяят, нужно написать программу на тему стеганографии в аудио\медиа файлах-по выбору=) информации нашла минимум, у того же Грибунина все настолько заумно написано, что тут не только код не...
C++ Несколько заданий на массивы
Привет программная братия. Кому будет скучно, хелпните с задачками, а то я что-то подвис на них 1.Задан массив X из N элементов, определить его последний нулевой элемент, вычислить сумму дробных...
C++ Создать массив, составленный из суммы отрицательных элементов каждого столбца матрицы http://www.cyberforum.ru/cpp-beginners/thread298081.html
Помогите немного с программой, не пойму как реализовать... Нужно создать матрицу размером 4х5, заполнить её. Затем создать массив, составленный из суммы отрицательных элементов каждого столбца, и...
C++ Перегрузка && #pragma once class Fuzzy { public: enum logic {FALSE, TRUE, MAYBE = -1}; public: Fuzzy(logic); ~Fuzzy(); logic getValue() const; подробнее

Показать сообщение отдельно
сержи
6 / 6 / 0
Регистрация: 03.07.2010
Сообщений: 222

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

17.05.2011, 23:18. Просмотров 477. Ответов 5
Метки (Все метки)

Всем добрый вечер!!
Вот сама задача.....Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие выше побочной диагонали. Условный оператор не использовать.
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
Const
 m = 6;
Var
 a:array [1..m,1..m] of integer;
 i,j:byte;
Begin
 Randomize;
 For i:=1 to m do
  For j:=1 to m do
   a[i,j]:=random(9)+1;
 Writeln('Начальная матрица: ');
 For i:=1 to m do
  Begin
   For j:=1 to m do
    write(a[i,j],' ');
   writeln;
  End;
 writeln;
 Writeln('Конечная матрица: ');
 For i:=1 to m do
  For j:=m-i+1 to m do
   a[i,j]:=0;
 For i:=1 to m do
  Begin
   For j:=1 to m do
    write(a[i,j],' ');
   writeln;
  End;
End.
Помогите перевести в с++

Добавлено через 10 минут
Вот сама задача.....2. Дана матрица размера M × N (N — четное число). Поменять местами левую и правую половины матрицы.
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
program devjat;
uses crt;
var
a:array[1..100,1..100] of integer;
n,m,i,j:integer;
begin
writeln('vvedite M');
readln(m);
writeln('vvedite N');
readln(n);
if n mod 2=0 then begin
writeln('ishodnuj massiv:');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(100);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
writeln('perekyvurknytaja matrica:');
for i:=1 to m do begin
for j:=1 to (n div 2) do begin
write(a[i,j+(n div 2)]:3);
end;
for j:=(n div 2)+1 to n do begin
write(a[i,j-(n div 2)]:3);
end;
writeln;
end;
writeln;
end
else writeln('n - neparnoe');
readln;
end.
Помогите перевести в с++

Если есть минутка, то помгите плиззз.

Добавлено через 1 час 1 минуту
Если есть минутка, то помгите плиззз.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru