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

  • Просмотров 1866
  • Скачиваний 414
  • Размер файла 266
    Кб

      end;       If ENCount = 0 then       begin         KofQ[StrToInt(s2)] := StrToInt(s1);         StringGrid2.Cols[0].Append(Edit1.Text);         StringGrid2.Cols[1].Append(Edit2.Text);         StringGrid2.RowCount := StringGrid2.RowCount  + 1;       end;     end     else     begin       MessageDlg('Ошибка ввода данных ! ',mtWarning,[mbOk],0);       exit;     end   end   end;   procedure

TForm1.Button5Click(Sender: TObject); var I : word; begin   For i := 1 TO StringGrid1.RowCount -2 do   StringGrid1.Rows[i].Clear;   StringGrid1.RowCount := 2;   For i := 1 TO StringGrid2.RowCount -2 do   StringGrid2.Rows[i].Clear;   StringGrid2.RowCount := 2;   RichEdit1.Lines.Clear;   RichEdit2.Lines.Clear;   RichEdit3.Lines.Clear;   for i := 0 to 65535 do   begin     KofP[i] := 0;     KofQ[i] := 0;     KofS[i] := 0;   end; end;   procedure TForm1.Button2Click(Sender: TObject); Var i : word; begin   s := '';   ss:= '';   RichEdit1.Lines.Clear;   RichEdit2.Lines.Clear;   for i := 65535 downto 0 do   begin   If KofP[i] <> 0 then

  If Length(s) < 220 then    S := S + IntToStr(KofP[i])+'X^'+IntToStr(i)+'+'    else    begin      RichEdit1.Lines.Add(s);      S := IntToStr(KofP[i])+'X^'+IntToStr(i)+'+';    end;   end;   for i := 65535 downto 0 do   begin   If KofQ[i] <> 0 then   If Length(ss) < 220 then    SS := SS + IntToStr(KofQ[i])+'X^'+IntToStr(i)+'+'    else    begin      RichEdit2.Lines.Add(ss);      SS := IntToStr(KofQ[i])+'X^'+IntToStr(i)+'+';    end;   end;    RichEdit1.Lines.Add(Copy(s,1,length(s)-1));    RichEdit2.Lines.Add(Copy(ss,1,length(ss)-1));   

Button4.Enabled := True;    Button3.Enabled := True; end;   procedure TForm1.Button4Click(Sender: TObject); var t : Byte; i :word; begin   t := 0;   for i := 65535 downto 0 do   begin     If KofP[i]<>KofQ[i] then t := 1   end;   If t= 0 then ShowMessage('Списки равны')   else ShowMessage('Списки не равны'); end;   procedure TForm1.Button3Click(Sender: TObject); Var i : Word; begin   s := '';   RichEdit3.Lines.Clear;   for i := 0 to 65535 do   KofS[i]:= KofP[i]+KofQ[i];   for i := 65535 downto 0 do   begin   If KofS[i] <> 0 then   If Length(s) < 220 then    S := S + IntToStr(KofS[i])+'X^'+IntToStr(i)+'+'    else

   begin      RichEdit1.Lines.Add(s);      S := IntToStr(KofS[i])+'X^'+IntToStr(i)+'+';    end;   end;   RichEdit3.Lines.Add(Copy(s,1,length(s)-1)); end;   end.                                                 Результаты работы программы:                                 Описание программы:   Программа служит для построения на основе введенных коэффициентов 2-х списков и может выполнять

так же : ·        Сравнение  этих спиков. ·        Построение многочлена суммы этих списков.           Описание процедур:         procedure FormCreate(Sender: TObject) Устанавливает начальные параметры при загрузке программы.       procedure Button5Click(Sender: TObject) Производит “очистку” программы.       procedure Button2Click(Sender: TObject) Создание списков.       procedure Button4Click(Sender: