ICode9

精准搜索请尝试: 精确搜索
  • turtle-美国队长盾牌2022-09-16 13:34:29

    import turtle as t t.speed(0) t.color('red') t.begin_fill() t.circle(100) t.end_fill() t.penup() t.goto(0, 20) t.pendown() t.color('white') t.begin_fill() t.circle(80) t.end_fill() t.penup() t.goto(0, 40) t.pendown() t.color('r

  • Delphi 经典游戏程序设计40例 的学习 例30 残留的轨迹是圆形运动2022-09-15 22:33:18

    unit R30; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei30 = class(TForm) Panel1: TPanel; Button1: TButton; ScrollBar1: TScrollBar; ScrollBar2: TScr

  • 多元统计分析-矩阵复习2022-09-15 13:33:04

    矩阵代数 特别性质: 1. 若 \(A_{p\times q}~,~B_{q\times p}\) , 则 \[\left|\boldsymbol{I}_{p}+\boldsymbol{A B}\right|=\left|\boldsymbol{I}_{q}+\boldsymbol{B} \boldsymbol{A}\right| \]证明: \[\begin{array}{c} \because\left[\begin{array}{cc} \boldsymbo

  • Delphi 新语法:泛型2022-09-14 12:05:16

      这里的新语法一般指Delphi7不支持的语法,高版本中会经常遇到,所以花一点时间学会使用它。泛型是一种特殊的类型。你不用一开始就指明参数的具体类型,而是先定义一个类型变量,在使用的时候再确定参数的具体类型。准备从万一博客中学习,节约翻找资料的时间。 最简单的泛型 一开始我们

  • Delphi 经典游戏程序设计40例 的学习 例29 残留的轨迹是钟摆线2022-09-14 10:34:21

        unit R29; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TRei29 = class(TForm) Panel1: TPanel; Button1: TButton; ScrollBar1: TScrollBar; ScrollBar2:

  • 快速排序C语言版图文详解2022-09-13 09:03:59

    ​ 算法原理:选一个数位基准,将序列分成两个部分,一边全是比它小序列,另一边全是比它大序列。然后再分别对比他小的序列和比再次进行基准分割。依次分割下去,得到一个有序的队列。 原理图示:   ​编辑   ​编辑   ​编辑   ​编辑   ​编辑   ​编辑   ​编辑   ​编辑   ​编

  • delphi 解决SaveDialog保存文件时,因无后缀名产生的错误2022-09-08 11:00:54

    var  defaultPath:string;  //这里可以设置为全局变量begin if SaveDialog1.Execute then begin defaultPath := SaveDialog1.FileName; //文件路径+文件名,不确定是否包含后缀 if ExtractFileExt(defaultPath) = '' then  //判断用户是否有输入后缀名 b

  • [Google] LeetCode 1554 Strings Differ by One Character 哈希2022-09-07 06:00:22

    Given a list of strings dict where all the strings are of the same length. Return true if there are 2 strings that only differ by 1 character in the same index, otherwise return false. Solution 对于每个字符串,我们用哈希将其映射为数。然后对于每个位置(即删除的位

  • 质因数2022-09-04 21:04:29

    分解质因数 #include<bits/stdc++.h> using namespace std; int n; map<int,int> M; void f(int x){ for(int i=2;i<=sqrt(x);i++){ while(x%i==0){ M[i]++; x/=i; } } if(x!=1)M[x]++; for(map<int,int>::iterator it=M.begin();it!=M.end();i

  • LeetCode 93 复原 IP 地址2022-09-04 16:00:25

    class Solution { public: vector<string> res; int pointNum; bool isValid(string s, int begin, int end) { if (begin > end) return false; //防止在最后末尾插入. if (s[begin] == '0' && begin != end) return false;

  • HDLBits答案——Verification: Writing Testbenches2022-09-02 18:03:12

    1 clock module top_module ( ); reg clk; dut U1(.clk(clk)); initial begin clk = 0; end always begin #5; clk = ~clk; end endmodule 2 Tb/tb1 module top_module ( output reg A, output reg B

  • C++之常用的算法2022-09-01 18:31:30

    C++之常用的算法 1 函数对象 重载函数调用运算符的类,其对象称为函数对象。 一元仿函数 / 二元仿函数(根据参数个数判定) class MyPrint { public: void operator() (int num) { cout << "num = " << num << endl; } }; void test01() { MyPrint myPrint; myPrint(2); // 仿

  • linux中awk的小案例使用2022-08-31 20:04:37

    1.排版整齐的输出第一列与最后一列 awk '{printf "%-15s %s\n", $1, $NF}' data2.txt            2.对于数据的每个字段之间进行控制   使用print函数打印,如果$1$3之间没有逗号,它俩在输出时将贴在一起,应该在$1,$3之间加逗号,该逗号与awk的内置变量OFS保持一致,OFS默认为

  • WebSocket support in kbmMW #1 – Upcoming2022-08-31 07:30:31

    8月28日 ,kbmMW作者发布了文章,宣布即将到来的kbmMW新版本,将支持WebSocket!这是一个令人兴奋的消息!这样,我们就可以基于kbmMW,开发支持WebSocket的Web服务器了! 开发一个这样的服务器,将是一件简单的事件,看代码: constructor TForm6.Create(Owner:TComponent); begin inherited Cre

  • 矩阵递推斐波那契数列2022-08-30 23:03:27

      斐波那契数列都很熟悉,它满足, \(F_{n} = \begin{cases}1&n\leqslant2\\F_{n - 1} + F_{n - 2}&n > 2\end{cases}\) 。 因为\(F_n\)从第三项开始是不断的递推下去的,所以我们可以考虑用矩阵加速递推。   设\(Fib\left( n\right)\)表示一个\(1×2\)的矩阵\(\begin{bmatrix}F_n&

  • Linux之awk数组(四)2022-08-30 10:00:08

    1.awk数组 AWK 可以使用关联数组这种数据结构,索引可以是数字或字符串。 AWK关联数 组也不需要提前声明其大小,因为它在运行时可以自动的增大或减小。 AWK不支持多维数组。 2.awk数组的语法格式 array_name[index]=value array_name:数组的名称 index:数组索引 value:数组中元素所赋

  • 双指针:给定两个升序数组a,b;b由a加一个值d转化而来 求d数组2022-08-29 23:02:17

    https://codeforces.ml/contest/1721/problem/C 从n往前走 因为对于ai 他的最大值就是他对应下面的b数组 当一个数ai的最小值和最大值都只能取这个数的时候 那么后续的数也一定不能匹配这个数 所以弄个指针j在b数组 ai只能在bi里面通过二分找最小值 然后 到达bj这个点 void solve(

  • 存储过程(Stored Procedure)和存储函数2022-08-29 18:34:10

    一、存储过程(将业务逻辑写入存储过程) 存储过程:就是提前已经编译好的一段PL/SQL语言,放置在数据库,可以直接被调用。这一段PL/SQL一般都是固定步骤的业务。 java是面向对象的编程语言,PL/SQL是面向过程的编程语言,也可以用来写业务逻辑,它和java语言不同的是:如果涉及到数据库操作,java语

  • 14.最优合并问题(贪心)2022-08-26 22:30:09

    题目描述: 给定k 个排好序的序列s1 , s2,……, sk , 用2 路合并算法将这k 个序列合并成一个序列。假设所采用的2 路合并算法合并2 个长度分别为m和n的序列需要m + n -1次比较。试设计一个算法确定合并这个序列的最优合并顺序,使所需的总比较次数最少。 为了进行比较,还需要确定合并这

  • 全国大学生数学建模竞赛LaTeX模板使用说明|Readme2022-08-26 14:30:49

    基本模板及说明 \documentclass[]{cumcmthesis} %指定使用该模板, 需将cumcmthesis.cls文件于tex文件置于同一目录下 % 可选参数,加在[]中 % - withoutpreface:提交电子版时,无需承诺书和封面 % - bwprint:黑白打印,默认为colorprint \title{论文题目} \tihao{A

  • posedge clk 和 negedge clk2022-08-25 04:34:13

    我们在程序块的事件控制中使用“'always @(posedge <signal>)”或“always @(negedge <signal>)”。但是posedge和negedge是什么意思呢? posedge means 0->1, 0-> x, 0-> z, x->1, z->1negedge means 1->0, x->0, z->0, 1->x, 1->z 请注意,如果希望边缘敏感的“always”块对

  • Delphi 高低字节交换2022-08-25 04:33:12

    内存中的字节顺序与网络传输的字节顺序是不一样的,用名词说就是大端存储和小端存储的区别,有时候就需要转换。 Delphi7不支持inline内联函数,可以把inline去掉。 function Swap16(const Value: Word): Word; inline; begin Result := Swap(Value); end; function Swap32(const Val

  • LeetCode 34. 在排序数组中查找元素的第一个和最后一个位置2022-08-22 18:31:31

    34. 在排序数组中查找元素的第一个和最后一个位置 思路: 与AcWing 789一致 class Solution { public: vector<int> searchRange(vector<int>& nums, int target) { if (nums.size() == 0) return {-1, -1}; int begin, end; int l = 0, r = nums.size(

  • SQL Server 数据库字符串分割函数2022-08-22 15:34:06

    SQL Server 数据库字符串分割函数,源代码如下: ALTER FUNCTION [dbo].[f_split] ( @SourceStr VARCHAR(MAX), -- 源字符串 @SplitStr VARCHAR(100) -- 分割字符串 ) RETURNS @result TABLE (a VARCHAR(1000)) AS BEGIN DECLARE @i INT SET @SourceStr = RTRIM(LTRIM(@SourceStr

  • delphi 做一个动态PopupMenu菜单2022-08-21 17:32:33

    效果要求: 点击树形结构不同的行,弹出不一样的下拉菜单 窗体设计:    数据库设计:   实际效果:   核心代码: procedure TForm1.PopupMenu1Popup(Sender: TObject); var iType: Integer; begin with FDQuery1 do begin if RecordCount = 0 then // 当没有数

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有