Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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


Ответ
 
Опции темы
Старый 24.12.2010, 16:11   #1
Alesis
 
Регистрация: 24.12.2010
Сообщений: 2
Сообщение Работа с массивами (на Си или Паскаль)

В массивы вводятся элементы двух невозрастаюших последовательностей Ai и Bj целых чисел, которые содержат 6 и 8 элементов соответственно. Необходимо вывести на экран общий список значений элементов этих последовательностей по их возрастанию без создания третьего массива. Предусмотреть проверку правильности ввода информации.

язык: Си или Паскаль
Alesis вне форума Ответить с цитированием
Старый 24.12.2010, 16:51   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Ну а в чем сложности? отсортирь одновременно эти два массива, а потом одновременно выведи.
Паскаля нет под рукой так что довольствуйся Делфи:
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 a:array[1..6] of integer;
 b:array[1..8] of integer;
 i,j,k:integer;
begin   {$o-}
 for i:=1 to 6 do begin  a[i]:=random(100);write(a[i]:5); end;writeln;
 for i:=1 to 8 do begin  b[i]:=random(100);write(b[i]:5); end;writeln;
 for i:=1 to 6+8 do begin
   for j:=1 to 6+8 do begin
     if i<=6 then begin
       if (j<=6) then begin
        if a[i]>a[j] then begin k:=a[i];a[i]:=a[j];a[j]:=k;end;
       end else begin
        if a[i]>b[j-6] then begin k:=a[i];a[i]:=b[j-6];b[j-6]:=k;end;
       end;
     end else begin
       if (j<=6) then begin
        if b[i-6]>a[j] then begin k:=b[i-6];b[i-6]:=a[j];a[j]:=k;end;
       end else begin
        if b[i-6]>b[j-6] then begin k:=b[i-6];b[i-6]:=b[j-6];b[j-6]:=k;end;
       end;
     end;
   end;
 end;

 for i:=1 to 6 do begin  write(a[i]:5); end;
 for i:=1 to 8 do begin  write(b[i]:5); end;writeln;

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
Хотя тут до Паскаля подправить пару строк.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.12.2010, 17:26   #3
Alesis
 
Регистрация: 24.12.2010
Сообщений: 2
По умолчанию

ща буду пробовать, спасибо большое!
Alesis вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с массивами в Паскаль A_Orlov Паскаль, Turbo Pascal, PascalABC.NET 1 10.06.2010 10:17
Работа с массивами(паскаль) AndrewPl Помощь студентам 5 27.04.2010 07:34
Работа с массивами. Паскаль hoangvu2005 Помощь студентам 3 10.04.2009 22:05
Паскаль. Работа с массивами... deceiver Помощь студентам 5 24.03.2009 04:27


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя