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

Сортировка - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ изменить прогу до не узнаваемости http://www.cyberforum.ru/cpp-beginners/thread146237.html
есть оригинал кода) нужно его изменить чтобы не было похоже друг на друга препод если видит 2 одинаковые или похожие валит обоих
C++ Двумерный массив Помогите перевести с Паскаля. Задание - . В квадратной матрице А определить наименьшие элементи каждой строки и найти их сумму. Uses wincrt; Type TMas= array of integer; Var A : TMas; i , j : byte; min, sum : integer; http://www.cyberforum.ru/cpp-beginners/thread146233.html
C++ Не работает код
Что-то не работает код, хочу вывести значение которое передал в функцию. #include <iostream> #include <string.h> using namespace std; class A{ public: string f(string a){ return a;
прога тима системы данных C++
написал прогу но не могу найти ошибку вроде все правильно написал помогите ее найти
C++ Ошибка в сортировке\выводе массива http://www.cyberforum.ru/cpp-beginners/thread146219.html
Помогите исправить ошибку в программе. Задание: В квадратной матрице 3х3 поменять местами столбец, имеющий наибольший элемент со столбцом, имеющим наименьший элемент среди элементов матрицы. Текст программы: #include <iostream.h> void main () { int n,i,j,jmax,jmin; double x,max,min,k; n=3; k=0;
C++ приведение типа Здравствуйте. у меня такой вопрос. как можно в c++ 2008 поменять тип. мне нужно char перевести в int, я пробовала char a; int y; y=(int)a; не получается. ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО!!! подробнее

Показать сообщение отдельно
DanielDefo
5 / 5 / 0
Регистрация: 13.09.2009
Сообщений: 225
16.06.2010, 19:51     Сортировка
Помогите перевести программу с ПАскаля:
Задание - Провести сортировку последовательности а1, … , аn методом Шелла.


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
program shell;
uses wincrt;
var
  a: array[1..100] of integer;
  i, n, incr, j, x: integer;
begin
  writeln('введите размерность массива');
  readln(n);
  writeln('исходный массиы');
  for i := 1 to n do
  begin
    a[i] := random(10);
    write(a[i], ' ');
  end;
  incr := n div 2;
  while incr > 0 do
  begin
    for i := incr + 1 to n do
    begin
      j := i - incr;
      while j > 0 do
        if a[j] > a[j + incr] then
        begin
          x := a[j];
          a[j] := a[j + incr];
          a[j + incr] := x;
          j := j - incr;
        end
        else
          j := 0;
    end;
    incr := incr div 2;
  end;
  readln;
  for i := 1 to n do
  begin
    write(a[i], ' ');
  end;
end.
Заранее спасибо.

Добавлено через 3 часа 47 минут
Помогите плиз, срочно надо
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 11:08. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru