o m - 1 doj: = 0 to n - 1 do.Cells [j, i]: = IntToStr (a [ i, j]);. Text: = IntToStr (CmpCount);. Text: = IntToStr (XchgCount);; TForm1.btn4Click (Sender: TObject);
// Початок печаті.BeginDoc;. Canvas.Font.Color: = clBlack;. Canvas.TextOut (40, 20, 'Порівнянь =' + edt3.Text);. Canvas.TextOut (40 , 40, 'Перестановок =' + edt4.Text);
// Кінець печаті.EndDoc;;.
Лістинг програми:
В
Динамічний список
Умова задачі
Створити С1 -спрямований список, упорядкований за С2, з N С3 С4 і знайти елемент, що задовольняє умові С5 . Вивести створений список або повідомлення: В«Список порожнійВ». Для двонапрямлених списків - створений список виводити двічі: в прямому і зворотному порядку.
Передбачити 1) можливість введення даних до списку з текстового файлу; 2) генерації елементів в заданій кількості N, 3) додавання заданого елемента до списку в зазначеному порядку C2 .
Для вирішення завдання створити процедури: додавання першого елемента в порожній список, додавання чергового елемента в необхідному порядку (в початок/кінець/середину), генерація списку (генерація/введення і виклик процедури додавання для кожного елемента списку ), виведення списку в Memo, пошуку в списку, звільнення списку.
Варіанти завдань
Обчислюються за правилом: сума двох останніх цифр залікової книжки. Якщо сума більше 15, варіант = сума мінус 15
№ С1С2С3С4С5 2Одно-По зростанню кодів сімволовПсевдослучайних, від а до ясімволов кірілліциНомер першої голосної букви
Код програми:
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Spin; = class (TForm): TButton;: TLabel;: TButton;: TOpenDialog;: TMemo ;: TButton;: TEdit;: TLabel;: TButton;: TLabel;: TSpinEdit;: TButton;: TButton; FormCreate (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); ButtonAddClick (Sender: TObject) ; ButtonAddRandomClick (Sender: TObject); ButtonLoadClick (Sender: TObject); ButtonClearClick (Sender: TObject); ButtonSearchClick (Sender: TObject); ButtonRefreshClick (Sender: TObject);
{Private declarations}
{Public declarations}; = ^ TElement; = record: PElement;: char;;: TForm1;, ListEnding: PElement;
