Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2011, 16:20   #1
Alebastr
 
Регистрация: 20.11.2011
Сообщений: 3
Вопрос Строки и сортировка одномерного массива

Такое в общем происшествие, как вы знаете сейчас сессии и т.д, а у меня не сданы 2 задачи по инфе, молю помочь решить хотя бы 1 задачу в паскале, так как времени сейчас уж извините вообще нету( подготовка к сессии по мату и т.д)

2 задачи
1 По теме строки
Дана символьная строка. Получить новую строку, взяв из данной все символы до 1-ого двоеточия и после последнего. Если двоеточие отсутствует, или встречается 1 раз, то вывести соответствующее сообщение.

2 задачо по теме : Сортировка одномерного массива.
Заполните массив 15 случайными числами. После этого отдельно первых 5ть элементов, 2-ых 5ть элементов и последних 5 элементов сортируется по возрастанию. После чего, заменить все элементы которые равняются 0 на число C.
Содержимое массива выводится на экран 3 раза - до, после сортировки и после замены.
Alebastr вне форума Ответить с цитированием
Старый 27.12.2011, 21:48   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Код:
var
          a:array[1..20]of integer;
          i,s,j:integer;
begin
          Randomize;
          for i:=1 to 15 do begin
                 a[i]:=random(50)-25;
                 write(a[i]:4);
          end;
          Writeln;

          for i:=2 to 5 do begin
                 j:=i;
 
          while a[j]<a[j-1] do begin
                s:=a[j];
                a[j]:=a[j-1];
                a[j-1]:=s;
                dec(j);
                if j=1 then 
                       Break;
                end;
         end;
 
         for i:=7 to 10 do begin
                 j:=i;
                 while a[j]<a[j-1] do begin
                         s:=a[j];
                         a[j]:=a[j-1];
                         a[j-1]:=s;
                         dec(j);
                         if j=6 then break;
                 end;
         end;
           
         for i:=12 to 15 do begin
                         j:=i;
                         while a[j]<a[j-1] do begin
                         s:=a[j];
                         a[j]:=a[j-1];
                         a[j-1]:=s;
                         dec(j);
                         if j=11 then 
                                 Break;
                         end;
         end;
          
         for i:=1 to 15 do 
                  Write(a[i]:4, '  ');
end.

Последний раз редактировалось Poma][a; 27.12.2011 в 21:56.
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обнулить элементы строки двумерного массива, содержащей наибольшее количество элементов одномерного массива griignat Помощь студентам 1 22.11.2011 20:04
VBA сортировка одномерного массива MIKE11IPME Помощь студентам 1 17.04.2011 20:58
сортировка одномерного массива imperceptible4462 Помощь студентам 10 07.09.2010 09:35
Сортировка одномерного массива Гамбит Помощь студентам 2 02.11.2009 00:28
Сортировка одномерного массива laponka Помощь студентам 7 14.09.2009 09:00