Читайте также:
|
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Create_dataClick(Sender: TObject);
Var i,x:integer;
begin
assignfile(f,'stack_f.dat');
rewrite(f);
Randomize;
n:=random(20)+2;
ListBox1.Clear;
For i:=1 to n do
begin
ListBox1.Items.add(inttostr(Random(20)+1));
x:= strtoint(ListBox1.Items[i-1]);
write(f,x);
end;
closefile(f);
end;
procedure TForm1.Del_elementClick(Sender: TObject);
var
pp:pst;
begin
reset(f);
pp:=nil;
ps:=tops;
While (ps=tops)and (ps^.date = v)do
begin
ps:=ps^.next;
dispose(tops);
tops:=ps;
end;
while (ps<>nil) and (ps^.date <> v)do
begin
pp:=ps;
ps:=ps^.next;
end;
if ps<> nil then
begin
pp^.next:=ps^.next;
dispose(ps);
end else
pp^.next:=nil;
ListBox3.Clear;
ps:=tops;
while ps<>nil do
begin
ListBox3.Items.add(inttostr(ps^.date));
ps:=ps^.next;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
v:=Strtoint(Edit1.Text);
Create_Less_stack.Enabled:=true;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
v:=Strtoint(Edit2.Text);
Del_element.Enabled:=true;
end;
end.
Рис. 3
Тема контрольной работы выбирается по последней цифре шифра зачетной книжки.
Если ваша зачетная книжка имеет на конце шифра цифру 4, то ваши варианты соответственно:4, 14, 24, 34, 44, 54, 64. Если – 0, то темы 10, 20, 30, 40 и т.д.Из этих вариантов вы выбираете один в качестве темы вашей контрольной работы.
Структура контрольной работы:
Титульный лист.
План контрольной работы (должно быть минимум 3 пункта плана).
Введение.
4. Основная часть – изложение содержания темы в соответствии с пунктами плана (по тексту контрольной указать не менее трех ссылок на используемую литературу).
Заключение.
Список использованной литературы (не менее трех наименований).
Контрольная работа должна иметь объем не менее 15 страниц формата А4, шрифт 14.Возможны иллюстрации, таблицы, рисунки.
Дата добавления: 2014-12-15; просмотров: 129 | Поможем написать вашу работу | Нарушение авторских прав |