М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Tittans16
Tittans16
24.10.2021 03:24 •  Информатика

Использовать список при следующем его описании: type adrcel=^element; element=record info: integer; next: adrcel; end; составить процедуру, которая удаляет из списка второй элемент, если такой есть. хэлп ми

👇
Ответ:
Orlolo
Orlolo
24.10.2021

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.

4,8(30 оценок)
Открыть все ответы
Ответ:
dianagatina04
dianagatina04
24.10.2021

Изучение схемы метро:

по восприятия - визуальная, по форме представления - графическая (текстовая), по назначению - массовая, по значению - ценная, достоверная, актуальная, по истинности - истинная.

Объяснение:

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

4,4(32 оценок)
Ответ:
rigorevich17
rigorevich17
24.10.2021
//Pascal ABC.NET 3.1 сборка 1219

Var
 ar:array of integer;
 i,n:integer;

 procedure quicksort(var a:array of integer; Lo,Hi: integer);

procedure sort(l,r: integer);
var
i,j,x:integer;
begin
i:=l;
 j:=r;
 x:=a[random(r-l+1)+l];
repeat
while a[i]>x do i:=i+1;
 while x>a[j] do j:=j-1;
  if i<=j then
   begin
    if a[i]<a[j] then swap(a[i],a[j]);
    i:=i+1;
 j:=j-1;
  end;
    until i>=j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;

begin;
  randomize;
  sort(Lo,Hi)
end;

 begin
 readln(n);
 setlength(ar,n);
 n:=n-1;
 writeln('Array:');
 for i:=0 to n do
  begin
   ar[i]:=random(10);
   write(ar[i]:4);
  end;
 quicksort(ar,0,n);
 writeln;
 writeln('Final array:');
 for i:=0 to n do
 write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
   8   7   5   9   4
Final array:
   9   8   7   5   4
4,8(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ