Программирование на языке Object Pascal в среде Delphi

    Дисциплина: Программирование
    Тип работы: Курсовая
    Тема: Программирование на языке Object Pascal в среде Delphi

    Министерство общего и профессионального образования
    Череповецкий государственный университет
    Институт математики, физики и информатики
    Кафедра программного обеспечения ЭВМ.
    Дисциплина
    Программирование на ЯВУ
    КУРСОВАЯ РАБОТА
    Тема:
    Программирование на языке
    Object
    Pascal
    в среде
    Delphi
    Выполнил студент:
    Группы:
    Принял преподаватель:
    Отметка о зачете
    г Череповец . 2002/2003
    Министерство общего и профессионального образования
    Череповецкий государственный университет
    Институт математики, физики и информатики
    Задание:
    Дан многочлен
    + … +
    с целыми коэффициентами можно представить в виде списка . Создать программу, которая проверяет на равенство многочлены
    ,а так же строит сумму этих многочленов.
    Название курсовой работы:
    Лабораторная работа N8
    План:
    Блок схема
    Текст программы
    Результаты работы
    Описание программы
    Процедуры и функции из других модулей
    Литература
    Блок-схема
    Текст программы:
    unit Unit1;
    interface
    uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    type
    TForm1 = class(TForm)
    private
    { Private declarations }
    public
    { Public declarations }
    implementation
    {$R *.DFM}
    procedure TForm1.FormCreate(Sender: TObject);
    var i :word;
    begin
    for i := 0 to 65535 do
    begin
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    var e1,e2:integer;
    C1,test,TCount,ENCount : word;
    s1,s2 : string;
    begin
    If ComboBox1.ItemIndex = 0 then
    begin
    If (e1=0) and (e2=0)and(C1=StrToInt(s2))and(Test=StrToInt(s1)) then
    begin
    For TCount := 0 to StringGrid1.RowCount - 1 do
    begin
    If StringGrid1.Cells[0,TCount]=s2 then
    begin
    StringGrid1.Cells[1,TCount] :=
    If ENCount = 0 then
    begin
    StringGrid1.RowCount := StringGrid1.RowCount
    else
    begin
    MessageDlg
    (\'Ошибка ввода данных !
    \',mtWarning,[mbOk],0);
    else
    begin
    If (e1=0) and (e2=0)and(C1=StrToInt(s2))and(Test=StrToInt(s1)) then
    begin
    For TCount := 0 to StringGrid2.RowCount - 1 do
    begin
    If StringGrid2.Cells[0,TCount]=S2 then
    begin
    StringGrid2.Cells[1,TCount] :=
    If ENCount = 0 then
    begin
    StringGrid2.RowCount := StringGrid2.RowCount
    else
    begin
    MessageDlg
    (\'Ошибка ввода данных !
    \',mtWarning,[mbOk],0);
    end;
    procedure TForm1.Button5Click(Sender: TObject);
    var I : word;
    begin
    For i := 1 TO StringGrid1.RowCount -2 do
    For i := 1 TO StringGrid2.RowCount -2 do
    for i := 0 to 65535 do
    begin
    end;
    procedure TForm1.Button2Click(Sender: TObject);
    Var i : word;
    begin
    for i := 65535 downto 0 do
    begin
    0 then
    220 then
    S := S + IntToStr(KofP[i])+\'X^\'+IntToStr(i)+\'+\'
    else
    begin
    for i := 65535 downto 0 do
    begin
    0 then
    220 then
    SS := SS + IntToStr(KofQ[i])+\'X^\'+IntToStr(i)+\'+\'
    else
    begin
    end;
    procedure TForm1.Button4Click(Sender: TObject);
    var t : Byte;
    i :word;
    begin
    for i := 65535 downto 0 do
    begin
    KofQ[i] then t := 1
    If t= 0 then ShowMessage(\'Списки равны\')
    else
    ShowMessage
    (\'Списки не равны\');
    end;
    procedure TForm1.Button3Click(Sender: TObject);
    Var i : Word;
    begin
    for i := 0 to 65535 do
    for i := 65535 downto 0 do
    begin
    0 then
    220 then
    S := S + IntToStr(KofS[i])+\'X^\'+IntToStr(i)+\'+\'
    else
    begin
    end;
    end.
    Результаты работы программы:
    Описание программы:
    Программа служит для построения на основе введенных коэффициентов 2-х списков и может выполнять так же :
    Сравнение
    этих спиков.
    Построение многочлена суммы этих списков.
    Описание процедур:
    procedure FormCreate(Sender: TObject)
    Устанавливает начальные параметры при загрузке программы.
    procedure Button5Click(Sender: TObject)
    Производит “очистку” программы.
    procedure Button2Click(Sender: TObject)
    Создание списков.
    procedure Button4Click(Sender: TObject)
    Проверка списков на равенство.
    procedure Button3Click(Sender: TObject)
    Составление суммы.
    Литература :
    В.В. Фаронов .
    Delphi
    6. Учебный курс.
    Язык: Русский
    Скачиваний: 325
    Формат: Delphi, Pascal, Microsoft Word
    Размер файла: 266 Кб
    Автор:
    Скачать работу...

    Забрать файл

    Похожие материалы:


ПИШЕМ УНИКАЛЬНЫЕ РАБОТЫ
Заказывайте напрямую у исполнителя!


© 2006-2016 Все права защищены