Решение задач «можете помочь нужно чтобы повторяющие элементы списке были рядом 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 раза ниже

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

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

Схемы

Контрольная, Электротехника

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

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

Описать особенности возделывания культуры по предложенной технологии

Отчет по практике, Агрегатирование сельскохозяйственных машин

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

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

Онлайн помощь, Гражданское право

Онлайн-помощь, Гражданское право

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

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

Характеристика внешней информации и внутренней информации предприятия

Лабораторная, Оценка стоимости бизнеса

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

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

Реферат

Реферат, Налоговое планирование в организации

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

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

раскрыть 2 вопроса

Контрольная, автоматизированные системы управления

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

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

Фирма «Химпласт» заключила контракт на поставку из Томска в Австралию

Контрольная, страховое право

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

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

Одна простая задача

Решение задач, Комплексный анализ

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

5 минут назад

Лабораторная работа №1 Оценка характеристик продукции...

Лабораторная, Управление качеством допечатной подготовки

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

5 минут назад

Интеграция педагогических и информационных технологий

Курсовая, информатика и КТ

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

6 минут назад

Выполнить кр по истории россии

Контрольная, История

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

6 минут назад

3 таблицы в excel

Другое, экономика организации

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

7 минут назад

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

Решение задач, Теоретическая Механика

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

7 минут назад

Решить 2 задачи (Язык Си)

Решение задач, Информатика и программирование

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

8 минут назад

Решение задачи по статистике

Решение задач, Статистика

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

8 минут назад

15:30, 1:20 на выполнение(может меньше), 5 макроэкономических задач

Онлайн-помощь, Макроэкономика

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

8 минут назад

реферат

Реферат, Исследование скважин и пластов

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

9 минут назад
Решение задач по предметам
Отзывы студентов о нашей работе
79 271 оценка star star star star star
среднее 4.9 из 5
СПбГТИ(ТУ)
Спасибо за оперативность! Доработка была сделана быстро и без замечаний.
star star star star star
БГТУ "Военмех"
Тут действительно не может быть ничего плохого сказано. Во-первых очень быстро. Во-вторых ...
star star star star star
НГТУ
Спасибо большое, у меня скоро лабораторная по этим заданиям, мне надо узнать как вы это с...
star star star star star
Калининградский Государственный Технический Университет
выполнено быстро и недорого!!! все выполнено хорошо и понятно! спасибо!
star star star star star

85 498

студентов

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

13 940

экспертов

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

291 374

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

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

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

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

  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
года


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

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

Ludmila

С нами с 2015
года


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

executor-reviews +1595 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
Ну что, приступим?

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

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

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

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