обнулення

Приклад 1:
“, mtConfirmation, mbOKCancel, 0); if(btn==1) f=FileCreate(s); // Обнулення файла FileClose(f); // і закриття його. ShowMessage(“Файл пустий!
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”

Приклад 2:
Форма додатка з результатами роботи матиме вигляд Текст програми : struct Elem // Оголошення елемента стека int x; Elem *p; ; Elem *root=0; // Оголошення вершини стека і початкове обнулення void add (int d) // Долучення елемента зі значенням d до стека Динамічні структури даних 415 // Оголошення й розміщення у пам’яті допоміжного елемента Elem *c=new Elem; c->x=d; c->next=0; // Попередній елемент покищо не визначено. c->next=root; // Новий елемент пов’язується зі старою вершиною стека root=c; // і після цього він стає новою вершиною.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”

Приклад 3:
Динамічні структури даних 417 Форма після введення даних матиме вигляд: Після натискання на кнопку “Розв’язок” форма матиме вигляд: Текст програми : struct Elem // Оголошення елемента черги AnsiString gorod; // Рядок – назва міста int nas; // Ціле число – кількість населення міста Elem *next; // Покажчик на наступний елемент черги (адреса) ; // Оголошення покажчиків на початок і кінець черги та їхнє початкове обнулення Elem *first=0, *last=0; void add (AnsiString S, int d) // Долучення елемента до черги Elem *c=new Elem; // Виділення пам’яті під новий елемент черги c->gorod=S; // Занесення до нового елемента назви міста c->nas=d; // Занесення до нового елемента кількості населення c->next=0; // Після нового елемента інших елементів покищо немає if(first==0)first=c;// Якщо черги ще нема, то новий елемент стає першим else // Інакше елемент долучається після останнього, last->next=c; // записуючи в last адресу нового елемента Розділ 12 418 last=c; // Тепер новий елемент стає останнім void del() // Вилучення першого елемента черги if(first==0) // Якщо черга є порожня, виводиться повідомлення і виконання ShowMessage(“Черга порожня”); return; // переривається Elem *c=first; first=first->next; // first указує на той елемент, який раніше був другим delete c; // Знищення елемент, який вилучається void print() // Виведення черги в Memo Form1->Memo1->Clear(); Elem *c=first; while(c!=0) Form1->Memo1->Lines->Add(c->gorod+” “+IntToStr(c->nas)); c=c->next; // Переходження до наступного елемента черги AnsiString udal() // Вилучення з черги всіх міст до міста // Вилучення з черги всіх міст до міста з максимальним населенням if(first==0) // Якщо черга є порожня, ShowMessage(“Черга порожня”); // виводиться повідомлення return “”; // і виконання переривається //Пошук міста з максимальним населенням int max=first->nas; // Початкове значення максимального населення – // населення першого міста AnsiString maxgor=first->gorod; // Початкове значення міста // з максимальним населенням – назва першого міста. Elem *c=first->next; // Цикл розпочинається з другого елемента черги while(c!=0) if(c->nas > max) // Якщо населення міста більше максимального, max=c->nas; // у max запам’ятовується кількість населення міста maxgor=c->gorod; // та його назва c=c->next; // Вилучення з черги всіх міст аж до міста з максимальним населенням c=first; while(c!=0 && c->gorod!=maxgor) // Допоки не дісталися міста, del();//з максимальним населенням, вилучається перший елемент черги c=first; return maxgor; void clean () // Очищення пам’яті while(first!=0) del(); // Кнопка “Долучити” void __fastcall TForm1::Button1Click(TObject *Sender) AnsiString S=Edit1->Text; int d=StrToInt(Edit2->Text); add (S, d); Динамічні структури даних 419 // Кнопка “Переглянути” void __fastcall TForm1::Button2Click(TObject *Sender) print(); // Кнопка “Вилучити” void __fastcall TForm1::Button3Click(TObject *Sender) del(); print(); // Кнопка “Очистити” void __fastcall TForm1::Button5Click(TObject *Sender) clean(); Edit1->Clear(); Edit2->Clear(); Edit3->Clear(); Memo1->Clear(); //Кнопка “Розв’язок” void __fastcall TForm1::Button4Click(TObject *Sender) Edit3->Text = udal(); print(); 12.4 Вставлення і вилучення елементів списку Список дозволяє вставити новий елемент поміж якими завгодно елемен- тами.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”