Решение задач «можете помочь нужно чтобы повторяющие элементы списке были рядом type»,
Программирование Pascal в Новомичуринске

Эта работа успешно выполнена на онлайн-сервисе помощи студентам «Всё сдал!»

Программирование Pascal

можете помочь нужно чтобы повторяющие элементы списке были рядом type

ID (номер) заказа

2418057

Тип задания

Решение задач

Предмет

Программирование Pascal

Статус

Заказ выполнен

Текст задания

можете помочь нужно чтобы повторяющие элементы списке были рядом type man=record name:string; age:integer; end; p_list=^element; element=record inf:man; next:p_list; end; procedure Init(var h,t: p_list); begin h:=nil; t:=nil; end; procedure Print( h,t: p_list); var cur:p_list; begin if h=nil then writeln ('Список пуст') else begin cur:=h; while cur<>nil do begin write(cur^.inf.name,' ',cur^.inf.age,' ' ); cur:=cur^.next; end; end; writeln; end; function Size(h,t: p_list): word; var k:integer; cur:p_list; begin k:=0; cur:=h; while cur<>nil do begin k:=k+1; cur:=cur^.next; end; size:=k; end; procedure add(a:man;var h,t:p_list); var cur,cur_new:p_list; begin new(cur_new); cur_new^.inf:=a; if h=nil then begin h:=cur_new; t:=cur_new; t^.next:=nil; end else begin if a.age<=H^.inf.age then begin cur_new^.next:=h; H:=cur_new; end else begin if a.age>=t^.inf.age then begin cur_new^.next:=nil; t^.next:=cur_new; t:=cur_new; end else begin if (h<>nil) and (t<>nil) then begin cur_new^.next:=nil; t^.next:=cur_new; t:=cur_new; end end end; end; end; procedure delete(a: man; var h, t: p_list); var L,R, cur, curNext: p_list; begin L:=h; R:=t; if (L <> nil) then begin cur:= l; curNext:= cur^.next; if (a.age = L^.inf.age) and (L^.next = nil) then begin dispose(L); dispose®; end else begin cur:= L; curNext:= cur^.next; while (cur^.inf.age <> a.age) and (curNext <> nil) do begin cur:= cur^.next; if (cur<>nil) and (curNext<>nil) then curNext:=cur^.next; if (cur^.inf.age < a.age) and (curNext^.inf.age > a.age) then writeln('Такого элемента не существует.'); end; if (a.age = L^.inf.age) and (L^.next <> nil) then begin l:= curNext; cur^.next:= nil; dispose(cur); cur:= l; end else if (cur^.inf.age = a.age) and (curNext <> nil) then begin cur^.next:= curNext; cur^.next:= nil; dispose(cur); end else if (cur^.inf.age = a.age) and (curNext = nil) then begin cur^.next:= nil; dispose®; end; end; end; end; var h1,t1:p_list; m:man; k:integer; begin Init(h1,t1); Print(h1,t1); writeln('L=',size(h1,t1)); m.name:='Vasya'; m.age:=30; for k:=1 to 10 do begin add(m,h1,t1);writeln('Age=', m.age); Print(h1,t1); m.age:=30+k mod 3; end; writeln('L=',size(h1,t1)); {m.name:='Vasya'; m.age:=28; for k:=1 to 5 do begin add(m,h1,t1); m.age:=m.age-2; end; Print(h1,t1); writeln('L=',size(h1,t1)); m.name:='Vasya'; m.age:=30; for k:=1 to 10 do begin add(m,h1,t1); m.age:=m.age+2; end; Print(h1,t1); writeln('L=',size(h1,t1));} end.

Это место для переписки тет-а-тет между заказчиком и исполнителем.
Войдите в личный кабинет (авторизуйтесь на сайте) или зарегистрируйтесь, чтобы
получить доступ ко всем возможностям сайта.

Закажите подобную или любую другую работу недорого

или
city city bush bush
Цены ниже –
качество выше!

Вы работаете с экспертами напрямую,
не переплачивая посредникам, поэтому
наши цены в 2-3 раза ниже

Цены ниже – качество выше! Цены ниже – качество выше!

Последние размещенные задания

скину методичку там вариант и способ оформления курсовой...

Курсовая, Машины и аппараты

Срок сдачи к 10 окт.

только что

"Математика в общечеловеческой культуре"

Эссе, Основы математики

Срок сдачи к 29 сент.

только что

ответить на вопросы

Контрольная, конституционное право

Срок сдачи к 2 окт.

1 минуту назад

Технология переработки и обогащения фосфоритовых руд

Курсовая, Основы обогащения полезных ископаемых, горное дело

Срок сдачи к 7 окт.

2 минуты назад

Решить 4 задания по основам эксель

Лабораторная, Основы математической обработки информации, математика

Срок сдачи к 4 окт.

3 минуты назад

Решить задачи

Решение задач, Особенности расмотрения гражданскил дел, право

Срок сдачи к 6 окт.

3 минуты назад

тема: Криминологическая характеристика изнасилований

Курсовая, Криминология

Срок сдачи к 12 окт.

4 минуты назад

Возникновение ислама

Эссе, История

Срок сдачи к 2 окт.

4 минуты назад

Решить 2 задачи по транспортному праву.

Решение задач, Транспортное право

Срок сдачи к 29 сент.

5 минут назад

Сделать реферат

Реферат, Товароведение

Срок сдачи к 30 сент.

5 минут назад

Нужно перефразировать другими словами 3...

Другое, История

Срок сдачи к 30 сент.

6 минут назад

Научная статья для публикации

Статья, прокурорский надзор

Срок сдачи к 30 сент.

6 минут назад

Выполнить проект в lazarus. на 1ой форме меню нод, нок, выход

Решение задач, Программирование на Pascal

Срок сдачи к 28 сент.

6 минут назад

Итоговый тест

Тест дистанционно, Строительные материалы

Срок сдачи к 30 сент.

7 минут назад

Тест по истории

Тест дистанционно, История

Срок сдачи к 28 сент.

7 минут назад

Сделать курсовую

Курсовая, Теория управления

Срок сдачи к 5 окт.

8 минут назад

Помощь на зачёте по мат анализу

Онлайн-помощь, Мат анализ

Срок сдачи к 29 сент.

10 минут назад

Решить задачи

Решение задач, электротехника и электроника

Срок сдачи к 29 сент.

10 минут назад
Решение задач по предметам
Отзывы студентов о нашей работе
79 546 оценок star star star star star
среднее 4.9 из 5
Московский международный университет
Очень ответственный Исполнитель. Рекомендую на 1000% Спасибо,за оперативность и качество ...
star star star star star
Липецкий Государственный Технический Университет
Решил все быстро и понятно, почерк приятен для списывания, все крупно и четко предоставлен...
star star star star star
Липецкий Государственный Технический Университет
Замечательный исполнитель, один из тех кто решает быстро, без ошибок и не гнёт цену за вып...
star star star star star
ГУАП
Работа выполнена очень качественно и без нареканий !!!!! Огромное спасибо !
star star star star star

85 708

студентов

обратились к нам
за последний год

15 938

экспертов

работают с нашим сервисом

292 523

заданий и консультаций

выполнено и сдано
за прошедший год

Тысячи студентов доверяют нам Тысячи студентов доверяют нам
Разместите задание, а
мы подберём эксперта

Сайт бесплатно разошлёт задание экспертам.
А эксперты предложат цены. Это удобнее, чем
искать кого-то в Интернете

  1. Цены ниже в 2-3 раза

    Вы работаете с экспертами напрямую, поэтому цены
    ниже, чем в агентствах

  2. Доработки и консультации
    – бесплатны

    Доработки и консультации в рамках задания бесплатны
    и выполняются в максимально короткие сроки

  3. Гарантия возврата денег

    Если эксперт не справится — мы вернем 100% стоимости

  4. Проверенные эксперты

    Мы проводим строгий отбор экспертов. На сайте
    работают только специалисты с высшим образованием,
    имеющие в дипломе оценки «хорошо» и «отлично»

  5. На связи 7 дней в неделю

    Вы всегда можете к нам обратиться — и в выходные,
    и в праздники

placed_order
Поможем вам со сложной задачкой 
Узнать стоимость
Гарантия возврата денег

Эксперт получил деньги за заказ, а работу не выполнил?
Только не у нас!

guarantees

Безопасная сделка

Деньги хранятся на вашем балансе во время работы
над заданием и гарантийного срока

guarantees_shield

Гарантия возврата денег

В случае, если что-то пойдет не так, мы гарантируем
возврат полной уплаченой суммы

line line line line line
line line line line line
circle
circle
circle
circle
Разместите заказ и получите
предложения с ценами
экспертов
Выберите эксперта
по цене и отзывам
Сдайте работу на проверку
преподавателю
Получите положительную оценку,
оплатите работу
и оставьте
отзыв
эксперту
Переживаете
за доработки?
Они бесплатны

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

ava executor

Иванна

С нами с 2014
года


Сдано работ: 2094

executor-reviews +941 0 -0
line
Обращайте внимание на отзывы и рейтинг исполнителя
ava executor

Ludmila

С нами с 2015
года


Сдано работ: 3880

executor-reviews +1602 75 -34
Заботимся о вас
и вашем времени
У нас есть все, чтобы сделать вашу жизнь
более приятной и беззаботной
Экономия времени
Теперь у вас есть время на друзей, любимые занятия,
работу и семью
Удобный интерфейс
Современный дизайн созданный для удобства
пользователей сайта
airplane airplane
Сколько стоит помощь?
line line

1. Сколько стоит помощь?

Цена, как известно, зависит от объёма, сложности и срочности. Особенностью «Всё сдал!» является то, что все заказчики работают со экспертами напрямую (без посредников). Поэтому цены в 2-3 раза ниже.

line line

2. Каковы сроки?

Специалистам под силу выполнить как срочный заказ, так и сложный, требующий существенных временных затрат. Для каждой работы определяются оптимальные сроки. Например, помощь с курсовой работой – 5-7 дней. Сообщите нам ваши сроки, и мы выполним работу не позднее указанной даты. P.S.: наши эксперты всегда стараются выполнить работу раньше срока.

line line

3. Выполняете ли вы срочные заказы?

Да, у нас большой опыт выполнения срочных заказов.

line line

4. Если потребуется доработка или дополнительная консультация, это бесплатно?

Да, доработки и консультации в рамках заказа бесплатны, и выполняются в максимально короткие сроки.

line line

5. Я разместил заказ. Могу ли я не платить, если меня не устроит стоимость?

Да, конечно - оценка стоимости бесплатна и ни к чему вас не обязывает.

line line

6. Каким способом можно произвести оплату?

Работу можно оплатить множеством способом: картой Visa / MasterCard, с баланса мобильного, в терминале, в салонах Евросеть / Связной, через Сбербанк и т.д.

line line

7. Предоставляете ли вы гарантии на услуги?

На все виды услуг мы даем гарантию. Если эксперт не справится — мы вернём 100% суммы.

line line

8. Какой у вас режим работы?

Мы принимаем заявки 7 дней в неделю, 24 часа в сутки.


или задать вопрос
computer airplane airplane airplane
Ну что, приступим?

Отправьте заявку и получите ответ с предложениями
по цене и срокам в течение часа.

Требуется помощь голубому человечку
Город
Кустарник слева Кустарник справа
Заполните форму
и узнайте цену

Файлы (при наличии)

    Вход или
    регистрация