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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2011, 19:19   #1
Trol_ko
 
Регистрация: 12.09.2011
Сообщений: 3
Сообщение Pascal (turbo) Динамическая память (список, очередь, стек)

Здравствуйте, помогите пожалуйста решить задачу Pascal с использованием динамической памяти (список, очередь, стек)....
Цитата:
В поле данных каждого элемента списка записываются данные о книгах: фамилия автора, название, год издания. Выведите на экран весь список и определите сколько имеется книг, название которых заканчивается сочетанием "сказки".
Trol_ko вне форума Ответить с цитированием
Старый 12.09.2011, 19:31   #2
VadikV
Форумчанин
 
Аватар для VadikV
 
Регистрация: 08.01.2011
Сообщений: 226
По умолчанию

А где твои наработки. Покажи. Иначе это будет не помощь, а решение за тебя. А с этим уже во фриланс нужно обращаться.
icq 223-630-454
e-mail vysotskiy@list.ru
сайт http://www.big-library.net/
VadikV вне форума Ответить с цитированием
Старый 13.09.2011, 16:40   #3
Trol_ko
 
Регистрация: 12.09.2011
Сообщений: 3
По умолчанию

Лучше было не спрашивать.. Это феерический бред :D Набросал сейчас..
Вообще никогда ничего подобного не делал о_о
Код:
program l2l1;

uses
  crt;

type
  str = record
    fam: char;
    b1, b2: 2..3;
    sb: real;
  end;

var
  tbl: array[1..3] of real;
  a: array[1..3] of str;
  y: str;i, j, k, m, c: integer;x: real;

begin
  clrscr; writeln('vvedute kol');
  readln(m);writeln;
  for i := 1 to m do  
  begin
    with  a[i] do 
    begin
      writeln('vvedite fam,b1,b2');
      readln(fam, b1, b2);
      sb := (b1 + b2) / 2;tbl[i] := sb;
    end;     end;
  
  for i := 1 to m - 1 do
  begin
    x := tbl[i];
    for j := i + 1 to m do 
    begin
      if tbl[j] > x then
      begin c := j; end; end;
    x := tbl[k];tbl[k] := tbl[c];tbl[c] := x;
    y := a[k];
    
    a[k] := a[c];a[c] := y;
  end;
  for i := 1 to m do  writeln(a[i].fam, '   ', tbl[i]:6:1); readln;
end.
Trol_ko вне форума Ответить с цитированием
Старый 13.09.2011, 20:16   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

1) никакого использования динамической программы в вашем примере нет!
Динамические - это когда переменные создаются в памяти компьютера (т.е. как минимум используются операции выделения памяти по указателям: New() и GetMem() )

2) почему не ходите сходить в поиск по разделу Pascal
Тут примеров односвязных (очень много) и двухсвязных (поменьше) на форуме полным полно. Ну неужели тяжело поиском воспользоваться? Взять готовый рабочий код и чуток подправить под себя?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.09.2011, 22:24   #5
Trol_ko
 
Регистрация: 12.09.2011
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
1) никакого использования динамической программы в вашем примере нет!
Динамические - это когда переменные создаются в памяти компьютера (т.е. как минимум используются операции выделения памяти по указателям: New() и GetMem() )

2) почему не ходите сходить в поиск по разделу Pascal
Тут примеров односвязных (очень много) и двухсвязных (поменьше) на форуме полным полно. Ну неужели тяжело поиском воспользоваться? Взять готовый рабочий код и чуток подправить под себя?!
Конечно нет..=) Ибо я не знаю как это всё связать..=)
Наверно я плохо поиском пользовался...=(
Ну приведите пример готового.. Скиньте ссылку...
Trol_ko вне форума Ответить с цитированием
Старый 14.09.2011, 13:27   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

неужели просить и ждать проще, чем самостоятельно нажать на кнопочку "расширеннный поиск" выбрать раздел Паскаль и задать ключевое слово "Список" или "Динамические" или "Очередь" и полистать/почитать полученные тонны тем?!

так, небольшая выборка из поиска:

Односвязные списки

Разработайте класс, реализующий линейный двусвязный список

Односвязные списки, создание англо-русского словаря

Решить используя очередь

Паскаль... Двухсвязный список !!!

Двусвязный список
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
стек, очередь, список Alex911 Паскаль, Turbo Pascal, PascalABC.NET 4 12.08.2014 21:19
Стек, очередь, список (файл) Gromz Паскаль, Turbo Pascal, PascalABC.NET 0 14.06.2011 16:42
Стек,очередь,список и дерево. Lerika21 Помощь студентам 0 22.05.2010 19:31