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

Шейкерная сортировка и последовательный поиск(код на паскаль дан) - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Обьединение массивов(Код на Паскаль дан) http://www.cyberforum.ru/cpp-beginners/thread574371.html
Есть программа написанная на паскале,нужно ее переделать на С Смысл программы в том что она находит обьединение двух массивов в один const q=100; type VECTOR=array of integer; var X,Y,Z: VECTOR; n: word; i,m,k,s:integer;
C++ Программа которая работает и файлами (структуры данных) Из чужой проги надо сделать мою!!! ПЛИИИИИИз очень срочно нужна помощь.... Задание перврй: Структура TRAIN с полями: - название пункта назначения; - номер поезда; - время отправления. Действия с файлом структур: http://www.cyberforum.ru/cpp-beginners/thread574355.html
Арифметические действия с системами счисления C++
Доброго времени суток ! Нужно написать программу , производящую арифметические действия с числами во всех системах счисления. Систему счисления задает пользователь , действие ( + , - , * ) задает пользователь.
Найти периметр и площадь по координатам C++
Заданы координаты трех вершин треугольника (y1,x1),(y2,x2),(y3,x3).Найти его периметр и площадь.
C# Создать треугольный массив http://www.cyberforum.ru/cpp-beginners/thread574347.html
Мне нужно сделать треугольный массив, но не получается. Помогите using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace ConsoleApplication3
C++ си++ подскажи пожалуйста как сделать след: определение класса прописать в заголовочном файле, а реализация в отдельной библиотеке код основного потока проги должен подключать заголовок, а не конкретную библиотеку вот в этой вот программе #include <iostream> #include <cmath> using namespace std; подробнее

Показать сообщение отдельно
DeFeND
0 / 0 / 1
Регистрация: 18.10.2011
Сообщений: 37
14.05.2012, 19:02     Шейкерная сортировка и последовательный поиск(код на паскаль дан)
Дано натуральное число N (1£N£100), целочисленный линейный массив a0, a1, …, aN-1. Элементы массива заполняются случайными целыми числами из диапазона [0, 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
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Uses Crt;
Const
n= 10;
m= 10;
 
Type
  TIndex = 1..N;
  TElement = integer;
  TVector = array [TIndex] of TElement;
 
Var
  a: TVector;
  i:TIndex;
 
 {Їа®жҐ¤га* ᮧ¤**Ёп ¬*ббЁў*}
Procedure MakeVector(var a: TVector);
Var
  i:TIndex;
 
  begin  {MakeVector}
   randomize;
   for i:=1 to n do
   a[i]:=1+random(n+1);
  end;   {MakeVector}
 
 {Їа®жҐ¤га* ўлў®¤* ** нЄа** ¬*ббЁў* *}
procedure PrintVector (Var a: TVector);
 Var
   i:TIndex;
 
 begin {PrintVector}
 
  for i:=1 to N do
   write (a[i]:5);
  writeln;
 
 end;  {PrintVector}
 
{Џа®жҐ¤га* ®Ў¬Ґ**}
Procedure Swap (var f,g: TElement);
 Var
   t:TElement;
 
 begin {Swap}
   t:=f;
   f:=g;
   g:=t;
 end;  {Swap}
 
 
  {Џа®жҐ¤га* Ї®ЁбЄ* б Є®*ж* ¬*ббЁў*}
 procedure search(i:TIndex);
var
k:integer;
 
begin
  i:=n;
  writeln('ўўҐ¤ЁвҐ н«Ґ¬Ґ*в, Є®в®ал© *г¦*® **©вЁ');
  readln(k);
  while (i>=1) and (a[i]<>k) do
  dec(i);
    if i>=1 then writeln ('н«Ґ¬Ґ*в **©¤Ґ*, Ё*¤ҐЄб i= ', i)
    else
    writeln('н«Ґ¬Ґ*в *Ґ **©¤Ґ*')
end;
 
 
 {Їа®жҐ¤га* 襩ЄҐа*®© б®авЁа®ўЄЁ}
Procedure QNSort(l,r:integer);
 Var
   k,j:integer;
   x:integer;
 Begin
   l:=2;
   r:=n;
   k:=n;
   repeat
        for j:=r downto l do
          if a[j-1]>a[j] then
            begin
            x:=a[j-1];
            a[j-1]:=a[j];
            a[j]:=x;
            k:=j
            end;
        l:=k+1;
        for j:=l to r do
          if a[j-1]>a[j] then
            begin
            x:=a[j-1];
            a[j-1]:=a[j];
            a[j]:=x;
            k:=j
            end;
        r:=k-1;
        until l>r
        end ;
  Begin  {Program}
  MakeVector(a);  {‘®§¤**ЁҐ ¬*ббЁў* *}
  Writeln('?б室*л© ¬*ббЁў:');
  PrintVector(a); {‚лў®¤ ** нЄа** ¬*ббЁў* *}
  QNSort(1,n);
  Writeln ('®вб®авЁа®ў***л© ¬*ббЁў:');
  PrintVector(a);
  Search(i);
  readkey;
End.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:28. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru