Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] проблемы с динамическими указателями 
:(
    Опции темы
c1ber
Дата 28.3.2010, 12:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 1.3.2010
Где: Уфа

Репутация: нет
Всего: нет
Написать программу, содержащую процедуру, которая формирует список М, включив в него по одному разу элементы, которые входят одновременно в оба списка М1 и М2.

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

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

Написать программу, содержащую процедуру, которая удаляет из списка M N-ый элемент, если такой есть. N задает пользователь.

Написать программу, содержащую процедуры формирования и просмотра списка и функцию, увеличивающую каждое значение информационной части элемента списка на предыдущее значение элемента списка. Не создавать новый список.

помоги кто может решить,я эту тему ваще не понял((
PM MAIL WWW ICQ   Вверх
ФедосеевПавел
Дата 28.3.2010, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10
Цитата(c1ber @  28.3.2010,  12:56 Найти цитируемый пост)
я эту тему ваще не понял((

Ну, поздравляю!

Если всё ещё хочешь попробовать самостоятельно, то взгляни сюда и сюда.

Также воспользуйся поиском.
PM   Вверх
c1ber
Дата 28.3.2010, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 1.3.2010
Где: Уфа

Репутация: нет
Всего: нет
Спасибо большое,но все же может хоть одну сможет решить,я уже по ее примеру сделать то смогу дальше))
PM MAIL WWW ICQ   Вверх
Alexeis
Дата 28.3.2010, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ИванМ
Дата 28.3.2010, 15:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23
Создай хотя бы класс списка, потом уже будем смотреть.
PM MAIL   Вверх
c1ber
Дата 28.3.2010, 19:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 1.3.2010
Где: Уфа

Репутация: нет
Всего: нет
Цитата(ИванМ @ 28.3.2010,  15:30)
Создай хотя бы класс списка, потом уже будем смотреть.

знать бы что значат твои слова((
PM MAIL WWW ICQ   Вверх
t_gran
Дата 29.3.2010, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37
Вот, к примеру, описание, заполнение и просмотр списка:
Код

type
   TList= ^TNode;
   TNode= record
      digit: integer;
      next: TList;
   end;

{------------------------------------------------}
procedure AddInList (var theList: TList; theDigit: byte);
var
   node: TList;
begin
   new(node);
   node^.digit:= theDigit;
   node^.next:= theList;
   theList:= node;
end;
{------------------------------------------------}
procedure PrintList (theList: TList);
begin
   while (theList <> nil) do
   begin
      write(theList^.digit, ' ');
      theList:= theList^.next;
   end;
end;
{------------------------------------------------}
var
   list: TList;
   digit: byte;
begin
   list:= nil;
   repeat
      readln(digit);
      if (0 < digit)then
         AddInList(list, digit);
   until (digit = 0);
   PrintList(list);
end.


Для завершения ввести 0.

Это сообщение отредактировал(а) t_gran - 29.3.2010, 07:40


--------------------
Я знаю, что ничего не знаю© Сократ
user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0582 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.