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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2011, 23:09   #1
gtnheirf
 
Регистрация: 15.04.2011
Сообщений: 7
Восклицание задача

Помогите решить задачу !!!!!! плиз завтра здавать(((((((((((


Даны две последовательности a1<=a2<=...<=an и b1<=b2<=...<=bm.
Образовать из них новую последовательность чисел так, чтобы она тоже была неубывающей. Дополнительный массив не использовать.
gtnheirf вне форума Ответить с цитированием
Старый 15.04.2011, 23:11   #2
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Есть идеи? Или хотите, чтобы с нуля написали, а вы завтра пошли и сдали?
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Старый 15.04.2011, 23:15   #3
gtnheirf
 
Регистрация: 15.04.2011
Сообщений: 7
По умолчанию

Извините ! НО я ВОбще ноль в этом деле! ПОЖАЙЛУСТА!
gtnheirf вне форума Ответить с цитированием
Старый 15.04.2011, 23:18   #4
VKorablev
Форумчанин
 
Аватар для VKorablev
 
Регистрация: 14.04.2011
Сообщений: 126
По умолчанию

200 рублеф
Нам больше не нужно смотреть на мир сквозь замочную скважину 64Кб сегмента (с) ВалИк
VKorablev вне форума Ответить с цитированием
Старый 15.04.2011, 23:21   #5
MyLastHit
Очень суровый
Участник клуба
 
Аватар для MyLastHit
 
Регистрация: 17.12.2009
Сообщений: 1,988
По умолчанию

Цитата:
200 рублеф
Сделаю за 199 руб 100 коп
Ненавижу быть как все, но люблю, чтобы все были как я.
MyLastHit вне форума Ответить с цитированием
Старый 15.04.2011, 23:23   #6
VKorablev
Форумчанин
 
Аватар для VKorablev
 
Регистрация: 14.04.2011
Сообщений: 126
По умолчанию

зээээххххх......обскакали меня конкуренты :D
Нам больше не нужно смотреть на мир сквозь замочную скважину 64Кб сегмента (с) ВалИк
VKorablev вне форума Ответить с цитированием
Старый 15.04.2011, 23:24   #7
gtnheirf
 
Регистрация: 15.04.2011
Сообщений: 7
По умолчанию

И каким образом их вам заплатить???????
gtnheirf вне форума Ответить с цитированием
Старый 16.04.2011, 00:05   #8
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

WEBMONEY, яндекс Деньги, Мобилка) мало ли способов )
язык какой?

Код:
#include "stdafx.h"
#include <iostream>
#include <conio.h>
#include <locale>
#include <cstdlib>
using namespace std;
 
void main()
{
setlocale (LC_ALL, "Russian");
srand((unsigned)time( NULL ));
int size1, size2, i,j,q,k, cont1=0,cont2=0;
int *mas2, *mas1;
cout<<"введите размерность массива 1"<<endl;
cin>>size1; 
mas1=new int[size1];
for(i=0;i<size1;i++)
{
mas1[i]=rand()%2000-1000; 
}
for(i=1;i<size1;i++)
{
 for(j=size1-1;j>=i;j--)
 {
        if(mas1[j-1]>mas1[j]) 
        {
        q=mas1[j-1];
        mas1[j-1]=mas1[j];
        mas1[j]=q;
        }
 }
}
cout<<endl<<"Упорядоченный массив"<<endl;
 for(i=0;i<size1;i++) cout<<mas1[i]<<" ";
cout<<endl<<"введите размерность массива 2"<<endl;
cin>>size2; 
mas2=new int[size2];
for(i=0;i<size2;i++)
{
mas2[i]=rand()%2000-1000; 
}
for(i=1;i<size2;i++)
{
 for(j=size2-1;j>=i;j--)
 {
        if(mas2[j-1]>mas2[j]) 
        {
        q=mas2[j-1];
        mas2[j-1]=mas2[j];
        mas2[j]=q;
        }
 }
}
cout<<endl<<"Упорядоченный массив"<<endl;
 for(i=0;i<size2;i++) cout<<mas2[i]<<" ";
cout<<endl<<"Упорядоченныe массивы"<<endl;
k=0;
i=0;
for(;;)
 {
if(mas1[i]==mas2[k])
{cout<<mas1[i]<<" "<<mas2[k]<<" ";if(i!=size1-1){i++;}else {i++;k++;break;};if(k!=size2-1){k++;}else {k++;i++;break;}}
 if(mas1[i]<mas2[k])
 {cout<<mas1[i]<<" ";if(i!=size1-1){i++;}else {i++;break;}}
if(mas1[i]>mas2[k])
{cout<<mas2[k]<<" ";if(k!=size2-1){k++;}else {k++;break;}}  
 }
if(i!=size1)
{       for(;i<size1;i++)
        {cout<<mas1[i]<<" ";}
}
if(k!=size2)
{       for(;k<size2;k++)
        {cout<<mas2[k]<<" ";}
}
 _getch();
}
{pascal/delphi}(с) Puporev
Код:
uses crt;
var a,b,c:array[1..500] of integer;
    n,m,i,j,k:integer;
begin
clrscr;
write('n=');readln(n);
write('m=');readln(m);
writeln('Massiv A:');
for i:=1 to n do
   begin
    readln(a[i]);
   end;
writeln;
writeln('Massiv B:');
for i:=1 to m do
   begin
    readln(b[i]);
   end;
writeln;
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n) or (j<=m) do {пока не дошли до конца каждого из массивов}
  begin
   if (i<=n) and (j<=m) then {если оба массива ещё не закончились}
     begin
       if a[i]<b[j] then {то пишем в новый массив меньший из текущих элементов}
        begin
         c[k]:= a[i];
         inc (i); {переходим к следующему элементу соответствующего массива}
         inc (k); {переходим к следующему элементу конечного массива}
        end
       else
        begin
         c[k]:= b[j];
         inc (j);
         inc (k);
        end
     end
   else if j>m then {иначе один из массивов уже закончился}
     begin {и мы пишем из того, в котором ещё есть элементы}
       c[k]:= a[i];
       inc (i);
       inc (k);
     end
   else if i>n then
     begin
       c[k]:= b[j];
       inc (j);
       inc (k);
     end;
  end;
writeln('Massiv C:');
for i:=1 to m+n do
write(c[i],' ');
readln
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 16.04.2011 в 00:25.
Mad_Cat вне форума Ответить с цитированием
Старый 16.04.2011, 06:57   #9
gtnheirf
 
Регистрация: 15.04.2011
Сообщений: 7
По умолчанию

Ой,как интересно,главное ничего не понятно )) Спасибо большое,надеюсь на тройку сдам )))
gtnheirf вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача минимизации дисбаланса на линии сборки (задача минимакса) LenZab Microsoft Office Excel 13 13.03.2011 22:51
Задача Anna T Паскаль, Turbo Pascal, PascalABC.NET 4 13.12.2010 18:47
задача tcjkjl Общие вопросы Delphi 0 13.12.2010 14:16