Использовать список при следующем его описании: Type AdrCel=^Element;
10-11 класс
|
Element=record
Info:integer;
Next:AdrCel;
End;
Составить процедуру, которая удаляет из списка второй элемент, если такой есть.
ХЭЛП МИ
type
adrcel=^Element;
Element=record
info:integer;
next:adrcel;
end;
var
start,last,new_el:adrcel;
i:integer;
procedure del2(var start:adrcel);
var
p:adrcel;
begin
p:=start^.next;
if p<>nil then start^.next:=p^.next
end;
begin
start:=nil;
last:=nil;
new_el:=nil;
repeat
new(new_el);
write('info=');
readln(new_el^.info);
new_el^.next:=nil;
if start=nil then
start:=new_el;
else
begin
last:=start;
while last^.next<>nil do last:=last^.next;
last^.next:=new_el;
end;
write('Продолжить? (1-Да/0-Нет):');
readln(i);
until i=0;
writeln('Удалим 2-й элемент');
del2(start);
new_el:=start;
while new_el<>nil do
begin
write(new_el^.info:4);
new_el:=new_el^.next;
end;
readln;
end.
Другие вопросы из категории
числа не равны, большее число заменяется разностью этих чисел. Полученное в результате число и есть наибольший общий делитель. Какие элементы, пронумерованные от 1 до 5, нужно вставить в блок-схему на места, обозначенные буквами от А до Д, чтобы получившаяся блок-схема соответствовала алгоритму Евклида?
Определить,можно ли сделать круглую заготовку с заданным радиусом R из квадратного листа фанеры с заданной стороной А. решить ее надо с помощью оператора выбора case
операторы
1 Из трех
данных чисел выбрать наименьшее и наибольшее.
Читайте также
Zi = (L, Ma, Mi, J, V, S, D);
Consum = array [Oras, Zi] of real;
var C : Consum;
r : Oras;
z : Zi;
Компонента C [r,z] переменной C представляет собой потребление электроэнергии города r в день z. Напишите программу, которая :
а)вычисляет количество электроэнергии, поторебляемой каждым городом за неделю;
б)вычисляет количество электроэнергии, потребляемой данными городами ежедневно;
в) вычисляет город с максимальным еженедельным потреблением электроэнергии;
г) определяет город с минимальным еженедельным потреблением электроэнергии;
д) определяет день, в который было потреблено наибольшее количество электроэнергии;
е) определяет деь с наименьшим потреблением электроэнергии.
вает такую информацию:
• Имя компании-производителя пиццы, которое может содержать более одного слова
• Диаметр пиццы
• Вес пиццы
Придумайте
структуру, которая может хранить такую информацию, и напишите
программу, в которой используется переменная специального типа для такой
структуры. Программа должна предлагать пользователю ввести данные для
каждого из названных пунктов и затем выводить эту информацию.
Используйте объекты cin (или его методы) и COUt.
5. Напишите
программу к упражнению 2, но используйте оператор new для выделения
структуре области памяти вместо объявления структурной переменной.
Программа должна также запрашивать диаметр пиццы до запроса названия
компании — производителя пиццы
работы
до 6 лет – 60%,
от 6-8 – 80%,
более 8 – 100 %,
если несовершеннолетний –100 %,
зарплата работника Z рублей в день.
последних цифр заданного числа; 3) число, образованное перестановкой второй и четвёртой цифр заданного числа.