begin
var P:=new Listlt;realgt;;
Writeln(‘Введите последовательность чисел, завершив её нулём’);
P.AddRange(ReadSeqRealWhile(a-gt;alt;gt;0));
var what:=ReadReal(‘Что вставить?’);
var before:=ReadReal(‘После чего воткнуть?’);
ListInsert(P,before,what);
Writeln(‘Итог:’);
P.Println
end.
Пример
Введите последовательность чисел, завершив её нулём
3.8 -6.2 1.45 2.18 -6.2 14 2.7 2.18 2.18 3.8 15.4 0
Что воткнуть? 0.0001
После чего воткнуть? 2.18
Результат:
3.8 -6.2 1.45 2.18 0.0001 -6.2 14 2.7 2.18 0.0001 2.18 0.0001 3.8 15.4
Источник: obrazovalka.com
Вставить в список L новый элемент F за каждым вхождением элемента E — Turbo Pascal
Все работает правильно за одним только исключением, в этом исходнике задаешь количество элементов, которые она подбирает случайным образом, мне нужно сделать так, чтобы я мог задать эти элементы. Помогите подправить, я сам уже пытался-пытался, надо было все-таки на лекции ходить и букварь почитать))))))))))) Заранее благодарю и буду очень признателен ))
КАК ДОБАВИТЬ ЭЛЕМЕНТ В МАССИВ | в конец массива | в начало массива | по индексу | C# УРОКИ | ДЗ #13
uses crt; type PSpisok = ^TSpisok; TSpisok = record Inf: integer; Next: PSpisok; end; var h: PSpisok; L: PSpisok; x: PSpisok; t: PSpisok; i,n,e,f:integer; begin clrscr; write(‘Введите кол-во элементов списка, N=’); readln(n); randomize; New(L); L^.Next:=nil; L^.Inf:=random(50)-25; h:=L; x:=L; for i:=2 to n do begin New(L^.Next); L:=L^.Next; L^.Next:=nil; L^.Inf:=random(50)-25; x:=L; end; L:=h; while L^.Next<>nil do begin write(L^.Inf:4); L:=L^.Next; end; write(L^.Inf:4); writeln; write(‘E=’); readln(e); write(‘F=’); readln(f); L:=h; while L^.Next<>nil do begin if (L^.Inf = e) then begin t:=L^.Next; New(L^.Next); L:=L^.Next; L^.Inf:=f; L^.Next:=t; end; L:=L^.Next; end; if (L^.Inf = e) then begin New(L^.Next); L:=L^.Next; L^.Inf:=f; L^.Next:=nil; end; L:=h; while L^.Next<>nil do begin write(L^.Inf:4); L:=L^.Next; end; write(L^.Inf:4); Dispose(L); readln; end.
Люди помогите, завтра работу надо уже сдать.
Код к задаче: «Вставить в список L новый элемент F за каждым вхождением элемента E»
Листинг программы
uses crt; type PSpisok = ^TSpisok; TSpisok = record Inf: integer; Next: PSpisok; end; var h: PSpisok; L: PSpisok; x: PSpisok; t: PSpisok; i,n,e,f:integer; begin clrscr; write(‘Введите кол-во элементов списка, N=’); readln(n); randomize; New(L); L^.Next:=nil; writeln(‘vvedite zna4enie elementu’); readln(L^.inf); > h:=L; x:=L; for i:=2 to n do begin New(L^.Next); L:=L^.Next; L^.Next:=nil; L^.Inf:=random(50)-25; x:=L; end; L:=h; while L^.Next<>nil do begin write(L^.Inf:4); L:=L^.Next; end; write(L^.Inf:4); writeln; write(‘E=’); readln(e); write(‘F=’); readln(f); L:=h; while L^.Next<>nil do begin if (L^.Inf = e) then begin t:=L^.Next; New(L^.Next); L:=L^.Next; L^.Inf:=f; L^.Next:=t; end; L:=L^.Next; end; if (L^.Inf = e) then begin New(L^.Next); L:=L^.Next; L^.Inf:=f; L^.Next:=nil; end; L:=h; while L^.Next<>nil do begin write(L^.Inf:4); L:=L^.Next; end; write(L^.Inf:4); Dispose(L); readln; end.
Источник: studassistent.ru
1С: программное изменение форм и элементов
Составить программу, которая вставляет в список L новый элемент F за каждым вхождением элемента Е. СИ — вопрос №2836198
int main()
srand(time(0));
system(«chcp 1251 > nul»);
ND *beg=NULL, *end=NULL, *p;
p=(ND *) malloc(sizeof(ND));
p->val = rand()%10;
p->next = NULL;
beg = p;
int n, q;
printf(«Введите кол-во чисел в списке: „);
scanf(“%d»,
for (int i = 1; i < n; i++)
p->next=(ND *) malloc(sizeof(ND));
p=p->next;
p->val = rand()%10;
p->next=end;
>
printList(beg);
p = beg;
ND *temp;
int d, f;
printf(«nЧто вставлять?n»);
scanf(«%d»,
printf(«nПосле какого вставлять?n»);
scanf(«%d»,
// if (beg->val==d)
// // temp->next=(ND *) malloc(sizeof(ND));
// temp=temp->next;
// temp->val=f;
// temp->next=p;
// >
for (int i = 1; i < n; i++)
while (p->next!=end)
temp=p;
p=p->next;
if (p->val==d)
temp->next=(ND *) malloc(sizeof(ND));
temp=temp->next;
temp->val=-5;
temp->next=p;
>
>
>
printList(beg);
return 0;
>
Источник: www.liveexpert.org