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

С Pascal в С++ перевести задачку - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Помогите пожалуйста http://www.cyberforum.ru/cpp-beginners/thread437742.html
Дана строка символов. Заменить один слог на другой. Длина слогов одинаковая
C++ Для х изменяющегося от a до b с шагом(исправить малость) Всем доброго вечера!!!! Тут задачка не из простых, вроде как написал но че-то не работает! Не могли бы вы ее просмотреть и кое-где исправить ее!!!Буду очень благодарен!! Само задание: Для х изменяющегося от a до b с шагом (b-a)/k, где (k=10), вычислить функцию f(x), используя ее разложение в степенной ряд в двух случаях: а) для заданного n; б) для заданной точности е (е=0.0001). Для... http://www.cyberforum.ru/cpp-beginners/thread437741.html
C++ Одномерные массивы
1)Сформировать одномерный массив целых чисел, используя датчик случайных чисел. 2)Распечатать полученный массив. 3)Перевернуть массив и, если число элементов массива нечетное, удалить его средний элемент. 4)Добавить в начало массива 3 элемента с значением M-2. 5)Распечатать полученный массив.
адресная строка C++
как из программы на с++ получить доступ к адресной строке браузера? в эту адресную строку надо будет вставить свое инфо (произвольная строка), а не урл к которуму браузер приклеит хттп://, если делать вызов через ShellExecute
C++ Экономичное хранение матриц. Матричная алгебра http://www.cyberforum.ru/cpp-beginners/thread437710.html
Доброго времени суток, уважаемые форумчане:) Помогите пожалуйста решить задачку, я сам никак не могу :( Квадратная матрица А (треугольная или симметричная) порядка n в целях экономии памяти задана в виде одномерного массива из (n + 1)n/2 чисел: сначала идет n элементов первой строки, затем n – 1 элементов второй строки, начиная со второго элемента, и т. д. (из последней n-й строки берется...
C++ Задачи на C++. Мне посоветовали ваш форум парни с моей группы, сказали что здесь должны помочь. Так вот у нас по программированию Visual studio, а там C++, препод дал мне решить 2 задачи это контрольные. 1. Датчиком случайных чисел сгенерируйте натуральное число в интервале от 100 до 900. В полученном числе подсчитайте количество цифр, которые больше пяти. 2. Даны два массива различных размеров A(N) и... подробнее

Показать сообщение отдельно
сержи
6 / 6 / 0
Регистрация: 03.07.2010
Сообщений: 222
30.01.2012, 01:23     С Pascal в С++ перевести задачку
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
64
65
66
67
68
69
70
71
72
program zadanie_5;
uses crt;
const nn=15;
var n, i, j, k, imax, jmax: integer;
    a: array [1..nn,1..nn] of real;
    b:array[1..nn] of real;{массив для запоминания строк и столбцов}
    r: real;
    f:boolean;
begin
 randomize;
 repeat
 write('Задайте размер матрицы до ',nn,' n=');
 readln(n);
 until n in [1..nn];
 writeln('Исходный массив:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:5:2);
    end;
   writeln;
  end;
 for i:=1 to n-1 do {количество подмассивов, последний из 1 элемента не трогаем}
  begin
   imax:=i;  {считаем левый верхний элемент подмассива кандидатом на максимум}
   jmax:=1;
   for k:=i to n do  {цикл для перебора подмассивов}
   for j:=1 to n-i+1 do
   if a[k,j]>a[imax,jmax] then {для поиска максимального элемента}
    begin
     imax:=k;{нашли - делаем этот элемент максимальным}
     jmax:=j;
    end;
   if imax>i then{если максимальный не в первой строке подмассива}
    begin {сдвигаем (не обмениваем!) строки}
     for j:=1 to n do
     b[j]:=a[imax,j];  {запомним строку с максимумом}
     for k:=imax downto i+1 do {сдвинем строки вниз до макс.}
     for j:=1 to n do
     a[k,j]:=a[k-1,j];
     for j:=1 to n do {на место первой пишем строку с максимумом}
     a[i,j]:=b[j];
    end;
   if jmax<n-i+1 then{если максимальный не в последнем столбце подмассива}
    begin {сдвигаем столбцы}
     for k:=1 to n do
     b[k]:=a[k,jmax];{запомним столбец с макс.}
     for j:=jmax to n-i do{сдвинем столбцы влево до макс}
     for k:=1 to n do
     a[k,j]:=a[k,j+1];
     for k:=1 to n do {на место последнего пишем столбец с макс}
     a[k,n-i+1]:=b[k];
    end;
  end;
 writeln('Массив после перестановок:');
 for i:=1 to n do                     {вывод результата}
  begin
   for j:=1 to n do
   write (a[i,j]:5:2);
   writeln;
  end;
 {делаем проверку}
 f:=true;
 i:=2;
 while(i<=n)and f do
 if a[i,n-i+1]>a[i-1,n-i+2] then f:=false
 else i:=i+1;
 if f then write('На побочной диагонали убывающая последовательность')
 else write('Убывающая последовательность не получилась, ошибка в программе');
end.
Добавлено через 14 минут
Цитата Сообщение от сержи Посмотреть сообщение
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
64
65
66
67
68
69
70
71
72
program zadanie_5;
uses crt;
const nn=15;
var n, i, j, k, imax, jmax: integer;
    a: array [1..nn,1..nn] of real;
    b:array[1..nn] of real;{массив для запоминания строк и столбцов}
    r: real;
    f:boolean;
begin
 randomize;
 repeat
 write('Задайте размер матрицы до ',nn,' n=');
 readln(n);
 until n in [1..nn];
 writeln('Исходный массив:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:5:2);
    end;
   writeln;
  end;
 for i:=1 to n-1 do {количество подмассивов, последний из 1 элемента не трогаем}
  begin
   imax:=i;  {считаем левый верхний элемент подмассива кандидатом на максимум}
   jmax:=1;
   for k:=i to n do  {цикл для перебора подмассивов}
   for j:=1 to n-i+1 do
   if a[k,j]>a[imax,jmax] then {для поиска максимального элемента}
    begin
     imax:=k;{нашли - делаем этот элемент максимальным}
     jmax:=j;
    end;
   if imax>i then{если максимальный не в первой строке подмассива}
    begin {сдвигаем (не обмениваем!) строки}
     for j:=1 to n do
     b[j]:=a[imax,j];  {запомним строку с максимумом}
     for k:=imax downto i+1 do {сдвинем строки вниз до макс.}
     for j:=1 to n do
     a[k,j]:=a[k-1,j];
     for j:=1 to n do {на место первой пишем строку с максимумом}
     a[i,j]:=b[j];
    end;
   if jmax<n-i+1 then{если максимальный не в последнем столбце подмассива}
    begin {сдвигаем столбцы}
     for k:=1 to n do
     b[k]:=a[k,jmax];{запомним столбец с макс.}
     for j:=jmax to n-i do{сдвинем столбцы влево до макс}
     for k:=1 to n do
     a[k,j]:=a[k,j+1];
     for k:=1 to n do {на место последнего пишем столбец с макс}
     a[k,n-i+1]:=b[k];
    end;
  end;
 writeln('Массив после перестановок:');
 for i:=1 to n do                     {вывод результата}
  begin
   for j:=1 to n do
   write (a[i,j]:5:2);
   writeln;
  end;
 {делаем проверку}
 f:=true;
 i:=2;
 while(i<=n)and f do
 if a[i,n-i+1]>a[i-1,n-i+2] then f:=false
 else i:=i+1;
 if f then write('На побочной диагонали убывающая последовательность')
 else write('Убывающая последовательность не получилась, ошибка в программе');
end.
Выручите пожалуйста!!!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 05:32. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru