надо написать программы для lazarus!

@Nastia463 · Регистрация: 11.04.2013

Author24 — интернет-сервис помощи студентам

помогите пожалуйста!
задача1. составте программу, проверяющую, можно ли, из одномерного массива А, получить одномерный массив В.
буду вам очень признательна!!!

@volvo · 12.04.2013, 22:23

Сообщение от Nastia463

понимаешь, по книге и я смогу написать, только в паскале

Напиши в Паскале. А потом мы посмотрим, намного ли Паскаль отличается от Free-Паскаля, который используется Лазарусом.

@Nastia463 · 12.04.2013, 22:24 **[ТС]**

там же вылазиет множество окон (на сколько я помню...) на окне Form мы вставляем кнопочки и их програмируем, я именно с этим не могу разобраться, какую и как программировать...(((

@Hretgir · 12.04.2013, 22:24

где вылазиет?

. вот UI, большой знаток, а я так ...-юзер среды Lazarus. ты бы и сама смогла написать такую прогу запросто (если я правильно понял задачу)-книга прикреплена в теме раздела прикреплённой.

@volvo · 12.04.2013, 22:28

Сообщение от Hretgir

полагаю, нужно проверить, содержит ли массив элементов больше чем один

Оба массива упорядочить по возрастанию/убыванию, и поэлементно сравнить. Если хоть в одной позиции была ошибка (элементы не совпали) - то выдать ответ "Нельзя", иначе (если успешно прошло сравнение всех элементов) - "Можно". Я доступно объяснил? Ждем реализации на Паскале.

Добавлено через 2 минуты

Сообщение от Nastia463

там же вылазиет множество окон (на сколько я помню...) на окне Form мы вставляем кнопочки и их програмируем

А ты не заморачивайся с окнами пока. Задачу реши (ее логическую часть), потом будешь интерфейс на нее навешивать, а не наоборот, как вы тут все любите делать. "Во, глядите, какой у меня интерфейс, только я долго его рисовал, а задачу решить не успел, зато интерфейс-же красивый!!!"

@Nastia463 · 12.04.2013, 22:31 **[ТС]**

Pascal

const
  tmax=100;
type
  Tarr=array[1..tmax] of integer;
var
  a,b:Tarr;
  i,t:integer;
function CanReshuffle(const x:Tarr;y:Tarr;size:integer):boolean;
var
  i,j,g,tmpSize:integer;
  gotElement,possible:boolean;
begin
  tmpSize:=size;
  possible:=true;
  i:=1;
  while (i<=size) and possible do
    begin
      gotElement:=false;
      j:=1;
      while (j<=tmpSize) and not gotElement do
        if x[i]=y[j] then
          begin
            for g:=j to tmpSize-1 do
              y[g]:=y[g+1];
            dec(tmpSize);
            gotElement:=true;
          end
        else
          inc(j);
      if gotElement then
        inc(i)
      else
        possible:=false;
    end;
  CanReshuffle:=possible;
end;
begin
  randomize;
  repeat
    write('Size of A and B arrays, not greater than ',tmax,'=');
    readln(t);
  until t in [1..tmax];
  writeln('Array A');
  for i:=1 to t do
    begin
      write('a[',i,']=');
      readln(a[i]);
    end;
  writeln;
  writeln('Array B');
  for i:=1 to t do
    begin
      write('b[',i,']=');
      readln(b[i]);
    end;
  writeln;
  writeln(CanReshuffle(a,b,t));
end.

честно говорю, писала не сама, в данной ситуации нет времени сидеть с книгой и вникать по полной программе...(((

@Hretgir · 12.04.2013, 22:34

Сообщение от UI

Оба массива упорядочить по возрастанию/убыванию, и поэлементно сравнить.

я бы не додумался никогда так излогать требуемое: можно ли из из массива А получиьт массив В, конечно можно, если элемент не один; это всё равно что спросить-можно ли спрыгнуть с 16-го этажа? конечно можно, если постройка не подземная. но это моё личное мнение конечно. мне такие вопросы не нравятся.

@Nastia463 · 12.04.2013, 22:38 **[ТС]**

Hretgir, ну это же как-то можно прописать всего несколькими строчками?
препод прекрасно понимает, что я идиот в этом и мне это надо обьяснять, а сидесь и с нуля изучать эту программу не реально...(

@Hretgir · 12.04.2013, 23:17

в Lazarus можно, UI легко, мне книгу смотреть, вообще не люблю массивы-роскошь. я просто имел ввиду, что по мне такая интерпретация вопроса лучше: : является ли массив В простым преобразованием массива А?

Добавлено через 9 минут
массив нужно отсортировать, для начала, как я понял, вот программа сортировки

Pascal

program upor_massiv ;
var i , j , n : byte ;
X: array [ 1 . . 1 0 0 ] of real ;
b : real ;
BEGIN
writeln ( ’введите␣размер␣массива ’ ) ;
readln ( n ) ;
for i :=1 to n do
begin
write ( ’X[ ’ , i , ’ ]= ’ ) ;
readln (X[ i ] ) ;
end ;
writeln ( ’массив␣X␣ ’ ) ;
for i :=1 to n do write ( x [ i ] : 5 : 2 , ’ ␣ ’ ) ;
writeln ;
for j :=1 to n−1 do
for i :=1 to n−j do
i f X[ i ] > X[ i +1] then
{Если текущий элемент больше следующего, то}
begin {поменять их местами.}
b:=X[ i ] ; {Сохранить значение текущего элемента.}
X[ i ] : =X[ i + 1 ] ; {Заменить текущий элемент следующим.}
X[ i +1]:=b ; {Заменить следующий элемент переменной b.}
end ;
writeln ( ’упорядоченный␣массив ’ ) ;
for i :=1 to n do
write (X[ i ] : 5 : 2 , ’ ␣ ’ ) ;
writeln ;
END.

уже не несколько строк

, то же самое делается с вторым массивом, (правда прежде сравнить число элемнтов массивов), а потом сравнить отсортированые массивы. если что я завтра вечером смогу сделать

Добавлено через 7 минут
и я не знаток Lazarus, вот UI может в лучшем виде.

Добавлено через 15 минут

Сообщение от Hretgir

является ли массив В простым преобразованием массива А?

запамятовал, кажется это называется прямым преобразованием, ещё одна книжка

@Hretgir · 14.04.2013, 23:07

Не по теме:

не мог раньше оставить сообщение, пока инет настроил, и комп другой.

сортировать массивы не надо, надо создать третий массив и вносить в него число повторов встречающихся значений в массие А, потом сравнить с массивом В.
для супер препода с такой задачей как в первом сообщении ответов прога должна давать несколько возможных:
1) нельзя
2) массив А-производное массива В (массив В является результатом замкнутого преобразования массива А (новых (элементов) в нем нет)
3) массив А-производное массива В, количество одинаковых значений равное (массив В является результатом замкнутого преобразования массива А, количество одинаковых элементов в операндах и образах равное).
не могу ничем утешить, кроме как, что код намного проще чем я в предыдущем сообщении предпологал (мне так подсказали вчера, что я оставил вот тот код вверху), и что смогу помочь не ранее завтра-уже сегодня, как 50 минут, и скорее займусь ближе к вечеру, но это быстро, если то что говорил UI, если по полной, то чуть дольше. но препода надо послать в гугл

, чтобы искал варианты смыслов своих-же заданий.

Добавлено через 19 часов 31 минуту
делаю, но столкнулся с проблемой ввода данных, книги специфичные. мне тоже надо будет вводить данные в БД, но я собирался это делать через TMemo, затем создана тема. книги не описывают тонкостей среды, делаю, но вот с вводом данных...консольное приложение в среде для меня темный лес, то что в заготовке выдает среда я увидел впервые, как-то и не думал что болванка такая огромная и непонятная

Добавлено через 10 минут
с болванкой все понятно, но комп другой, и я не помню что надо сделать, чтобы консоль не сворачивалась сразу после запуска приложения. ладно сделаю, там free его кажется закрывает.

Добавлено через 2 часа 31 минуту
все, бобик сдох, незнание среды сделало свое дело, не знаю что куда лепить,в консольном приложении,хотя код я бы сделал, но бросаю на такой бредовой стадии компиляций с ошибками. где я только не пробовал там объявлять и описывать, метод тыка тут не работает, а описаний из книги недостаточно, чтобы сделать что-то за 5 минут или даже 3 часа. как бы ни была развита логика, а "заточка" книг не позволяет
все, ы конце концов я лично ничего не потерял, кроме чутка времени. вот моя лепнина

Кликните здесь для просмотра всего текста

Pascal

program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };
 
type
   //massiv=array[word] of integer;
  { TMyApplication }
 
  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
    procedure WriteHelp; virtual;
    procedure vvestiMassiv1;
    type
  massiv=array[word] of integer;
    var
       chislo:integer;
  massiv01,massiv02,massiv03,massiv04:massiv;
  inddex:word;
  end;
 
{ TMyApplication }
 
procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin
  // quick check parameters
  ErrorMsg:=CheckOptions('h','help');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;
 
  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;
 
  { add your program here }
 
  // stop program loop
  Terminate;
end;
 
constructor TMyApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  StopOnException:=True;
end;
 
destructor TMyApplication.Destroy;
begin
  inherited Destroy;
end;
 
procedure TMyApplication.WriteHelp;
begin
  { add your help code here }
  writeln('Usage: ',ExeName,' -h');
end;
procedure TMyApplication.vvestiMassiv1;
var
  stroka:string;
  element:integer;
begin
  element:=-1;
 while stroka='finish' do
   begin
     element:=element+1;
     readln(stroka);
     if  stroka='finish'  then
  stroka:=stroka
else
  begin
    massiv1[element]:=StrToInt(stroka);
    end;
     end;
end;
 
var
  Application: TMyApplication;
    shag:byte;
  chislo:integer;
  massiv1,massiv2,massiv3,massiv4:massiv;
  inddex:word;
  //stroka:string;
begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  writeln('введите первый массив целых чисел или finish');
  readln;
  Application.Free;
end.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	12.04.2013, 22:23	21
	Сообщение от Nastia463 понимаешь, по книге и я смогу написать, только в паскале Напиши в Паскале. А потом мы посмотрим, намного ли Паскаль отличается от Free-Паскаля, который используется Лазарусом. 0

@Hretgir 356 / 124 / 3 Регистрация: 25.01.2012 Сообщений: 5,465 Записей в блоге: 118
	12.04.2013, 22:34	26
	Сообщение от UI Оба массива упорядочить по возрастанию/убыванию, и поэлементно сравнить. я бы не додумался никогда так излогать требуемое: можно ли из из массива А получиьт массив В, конечно можно, если элемент не один; это всё равно что спросить-можно ли спрыгнуть с 16-го этажа? конечно можно, если постройка не подземная. но это моё личное мнение конечно. мне такие вопросы не нравятся. 0

@Nastia463 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 12
	12.04.2013, 22:38 [ТС]	27
	Hretgir, ну это же как-то можно прописать всего несколькими строчками? препод прекрасно понимает, что я идиот в этом и мне это надо обьяснять, а сидесь и с нуля изучать эту программу не реально...( 0

@Nastia463 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 12
		1
	надо написать программы для lazarus! 12.04.2013, 20:36. Показов 4231. Ответов 28 Метки нет (Все метки) помогите пожалуйста! задача1. составте программу, проверяющую, можно ли, из одномерного массива А, получить одномерный массив В. буду вам очень признательна!!! 0

@Nastia463 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 12
	12.04.2013, 22:24 [ТС]	22
	там же вылазиет множество окон (на сколько я помню...) на окне Form мы вставляем кнопочки и их програмируем, я именно с этим не могу разобраться, какую и как программировать...((( 0

@Hretgir 356 / 124 / 3 Регистрация: 25.01.2012 Сообщений: 5,465 Записей в блоге: 118
	12.04.2013, 22:24	23
	где вылазиет? . вот UI, большой знаток, а я так ...-юзер среды Lazarus. ты бы и сама смогла написать такую прогу запросто (если я правильно понял задачу)-книга прикреплена в теме раздела прикреплённой. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	12.04.2013, 22:28	24
	Сообщение от Hretgir полагаю, нужно проверить, содержит ли массив элементов больше чем один Оба массива упорядочить по возрастанию/убыванию, и поэлементно сравнить. Если хоть в одной позиции была ошибка (элементы не совпали) - то выдать ответ "Нельзя", иначе (если успешно прошло сравнение всех элементов) - "Можно". Я доступно объяснил? Ждем реализации на Паскале. Добавлено через 2 минуты Сообщение от Nastia463 там же вылазиет множество окон (на сколько я помню...) на окне Form мы вставляем кнопочки и их програмируем А ты не заморачивайся с окнами пока. Задачу реши (ее логическую часть), потом будешь интерфейс на нее навешивать, а не наоборот, как вы тут все любите делать. "Во, глядите, какой у меня интерфейс, только я долго его рисовал, а задачу решить не успел, зато интерфейс-же красивый!!!" 1

	14.04.2013, 23:07