pascal

迷宫问题pascal程序

有些话、适合烂在心里 提交于 2020-03-14 12:04:15
Description 设有一个n×n的方格迷宫,入口和出口分别在左上角和右上角(如图的示) 迷宫的格子分别放有0和1,0表示可通,1表示不能,迷宫走的规则如下图所示。 即从某点出发,可沿8个方向前进,前进方格中的数为0时表示可以通过,为1时表示不可以通过,如从入口开始,有2条路可以走,即向右走,或向右下角走,当迷宫给出后,找出一条从入口(1,1)到出口(1,8)的有多少条不同的中路径。 Input Output Sample Input 8 0 0 0 1 1 0 1 0 1 0 1 1 0 1 1 0 0 1 0 0 1 0 0 1 0 0 1 1 0 1 0 1 0 1 0 0 0 1 1 0 0 1 1 1 1 1 0 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 0 Sample Output 720 这题我是用搜索来做的 搜的时候,能走八个方向,如果下一个点能走就记录下来,继续搜。 var n,x,y,s,t,i,j:longint; a:array[0..1001,0..1001]of longint; b:array[0..1001]of longint; dx:array[1..8]of longint=(0,0,1,1,1,-1,-1,-1); dy:array[1..8]of longint=(1,-1,0,1,-1,0,1,-1);

程序员的语言“艳遇史”(一)——班长pascal

孤街浪徒 提交于 2020-03-02 15:39:33
程序员的语言“艳遇史”(一)   (***以下小说情节纯属虚构,供朋友们在紧张编程后轻松一下,如有雷同纯属巧合,切勿对号入座***)   地狱里,一个曾经的程序员经不过魔鬼们的严刑拷打,终于把埋藏在心里多年的年少荒唐史给招了。   “好吧,魔鬼大王,我承认我是花心大萝卜,革命意志薄弱,没有管好自己,但我再坏也比不上陈冠希,您不能这样冤枉我啊!”   “我靠!陈冠希才几个啊,你比他多多了!我们地狱的妇联都投诉了,说这样的流氓不严惩,全体女妖从明天起一律罢工!快老实交代你的罪行。”   “我招,我招还不行吗?”   程序员战战兢兢的打开地狱专用的日本Sany牌便携电脑,开始码字……   大学期间   第一个女孩——班长pascal   pascal是我们计算机系93(1)班班长,长得一般,严谨得可怕。据说是某省的高考状元,还是党员,所以一入校就被我们辅导员当成宝贝,连民主选举都免了,直任班长。   计算机系肯定有试验上机课啦。由于pascal学习好,机房上机时总是第一个完成。然后老师就叫她帮忙,对我们这些中学时连键盘都没摸过的菜鸟进行辅导。我当时上机,主要工作就是照着事先在纸上写好的代码,在键盘上找字母。简直是晕倒,一个简单的程序编译了几十次都过不去。我正绝望时,突然闻到一阵淡淡的如幽兰般的香气,原来是她!   pascal推推眼镜,微笑着说:   “第20行少了一个分号

leetcode118 Pascal's Triangle

蹲街弑〆低调 提交于 2020-02-28 02:08:19
1 """ 2 Given a non-negative integer numRows, generate the first numRows of Pascal's triangle. 3 In Pascal's triangle, each number is the sum of the two numbers directly above it. 4 Example: 5 Input: 5 6 Output: 7 [ 8 [1], 9 [1,1], 10 [1,2,1], 11 [1,3,3,1], 12 [1,4,6,4,1] 13 ] 14 """ 15 """ 16 解法一: 17 先来一个自己写的AC 18 直来直去,将第一行第二行单独拿出来讨论 19 第三行以后按照规律循环 20 """ 21 class Solution1: 22 def generate(self, numRows): 23 if numRows <= 0: 24 return [] 25 if numRows == 1: 26 return [[1]] 27 res = [[1], [1, 1]] 28 if numRows == 2: 29 return res 30 queue = [1, 1] 31 while numRows - 2: 32 temp = [1] 33 for i

Delphi/C#之父:Anders Hejlsberg

♀尐吖头ヾ 提交于 2020-02-25 22:03:09
Anders Hejlsberg曾在丹麦科技大学学习工程学,他编写的Pascal编译器的核心,1981年将Pascal编译器卖给了Borland,并加入Borland公司,那时的Borland公司还是一个名不见经传的小公司。 Anders Hejlsberg在Borland主持开发了Turbo Pascal,Turbo Pascal获得一直好评,Anders Hejlsberg并未止步不前,他将Turbo Pascal编程一种面向对象的、拥有可视化环境和卓越的数据库访问特性的应用程序开发语言-Delphi。 Java出现了。Anders Hejlsberg在Borland一直郁郁不得志,据Borland内部人士讲Anders Hejlsberg认为自己不再是不可或缺的人。比尔盖茨慧眼识才,三故茅庐,把Anders Hejlsberg请到了微软。最开始微软许以重金,但Anders Hejlsberg不为所动,当清楚Anders Hejlsberg的想法后,比尔盖茨答应给他一个宽松的环境,既领导Visual J++小组,并提供薪水和红利奖金300万美元。这样Borland这个大牛孵化器为微软输送了一位超级大牛。好景不长,SUN公司认为微软破坏了java的跨平台性,很快微软就会利用它的VJ++将java开发人员拉拢到它的周围,而它的VJ+

Delphi/C#之父:Anders Hejlsberg

可紊 提交于 2020-02-25 22:02:45
Anders Hejlsberg曾在丹麦科技大学学习工程学,他编写的Pascal编译器的核心,1981年将Pascal编译器卖给了Borland,并加入Borland公司,那时的Borland公司还是一个名不见经传的小公司。 Anders Hejlsberg在Borland主持开发了Turbo Pascal,Turbo Pascal获得一直好评,Anders Hejlsberg并未止步不前,他将Turbo Pascal编程一种面向对象的、拥有可视化环境和卓越的数据库访问特性的应用程序开发语言-Delphi。 Java出现了。Anders Hejlsberg在Borland一直郁郁不得志,据Borland内部人士讲Anders Hejlsberg认为自己不再是不可或缺的人。比尔盖茨慧眼识才,三故茅庐,把Anders Hejlsberg请到了微软。最开始微软许以重金,但Anders Hejlsberg不为所动,当清楚Anders Hejlsberg的想法后,比尔盖茨答应给他一个宽松的环境,既领导Visual J++小组,并提供薪水和红利奖金300万美元。这样Borland这个大牛孵化器为微软输送了一位超级大牛。好景不长,SUN公司认为微软破坏了java的跨平台性,很快微软就会利用它的VJ++将java开发人员拉拢到它的周围,而它的VJ+

C#之父 Anders Hejlsberg

若如初见. 提交于 2020-02-25 22:01:54
Anders Hejlsberg,丹麦人,曾在丹麦科技大学学习工程学。 Anders Hejlsberg第一次登上软件界历史舞台是在80年代早期,因为他为MS-DOS和CP/M设计了一个Pascal编译器。当时,还是一个小公司的Borland很快雇用了他,并买下了他的编译器,改称Turbo Pascal。在Borland,Hejlsberg继续开发Turbo Pascal,并最终带领他的小组设计了Turbo Pascal的替代品、开发工具史上的奇迹:Delphi语言。 1996年,Anders Hejlsberg在Delphi3发布前离开Borland去了MS。  在此之前,MS曾多次企图挖走Anders,但都没有成功。据信Anders去MS(主要)不是钱的问题,虽然MS的开价也相当有吸引力: 130万美元年薪外加股票期权和分红,总计超过300万美元。更主要的原因是Anders和Delphi开发组的其他成员在修改编译器的问题上发生了争执;还有,据Borland内部人讲,Anders认为自己不再是“不可缺少的人”。   Anders在Delphi3中几乎没有做什么工作,Chuck Jazdzewski扮演了一个更重要的角色。(--Anders Ohlsson) Anders在Borland时把所有精力都放在了Pascal产品上,也需要新的挑战,这时Bill Gates的亲自邀请

HP 2114/15/16 floating point conversion

生来就可爱ヽ(ⅴ<●) 提交于 2020-02-25 04:39:08
问题 I have some files with floating point values in them that I'm having problems figuring out their exact encoding. I've tried several ways to convert to a standard double value, but haven't had much luck. I know what the values are supposed to convert to, but need a method to extract directly from the files. These are HP-1000 (HP21xx) series floating point values. Similar to 48 bit Pascal, but not the same. Other than some old, unreliable documentation (couldn't get a conversion using what it

Delphi: How to get (current code line, current unit, current function) without using Assertion?

别来无恙 提交于 2020-02-20 09:07:04
问题 I am trying to create a log system on my program that will log debugging messages on text files, and I want to save the exact place in the code where the log message called, but I don't want to use Assert function because it creates exceptions and this system is not for logging exceptions only, also I have to write some debugging info. example usning assert: procedure AnyProcedure(); begin try Assert(1=0); except on E: Exception do Log.AddLine('Log occurred is '+E.Message+' : Start');//Log

RCNN算法

半城伤御伤魂 提交于 2020-02-20 03:18:48
Region CNN(RCNN)可以说是利用深度学习进行目标检测的开山之作。作者Ross Girshick多次在PASCAL VOC的目标检测竞赛中折桂,2010年更带领团队获得终身成就奖,如今供职于Facebook旗下的FAIR。 这篇文章思路简洁,在DPM方法多年平台期后,效果提高显著。包括本文在内的一系列目标检测算法:RCNN, Fast RCNN, Faster RCNN代表当下目标检测的前沿水平,在github都给出了基于Caffe的源码。 思想 本文解决了目标检测中的两个关键问题。 问题一:速度 经典的目标检测算法使用滑动窗法依次判断所有可能的区域。本文则预先提取一系列较可能是物体的候选区域,之后仅在这些候选区域上提取特征,进行判断。 问题二:训练集 经典的目标检测算法在区域中提取人工设定的特征(Haar,HOG)。本文则需要训练深度网络进行特征提取。可供使用的有两个数据库: 一个较大的识别库(ImageNet ILSVC 2012):标定每张图片中物体的类别。一千万图像,1000类。 一个较小的检测库(PASCAL VOC 2007):标定每张图片中,物体的类别和位置。一万图像,20类。 本文使用识别库进行预训练,而后用检测库调优参数。最后在检测库上评测。 流程 RCNN算法分为4个步骤 - 一张图像生成1K~2K个候选区域 - 对每个候选区域,使用深度网络提取特征

Pascal's Triangle II(帕斯卡三角形)

大兔子大兔子 提交于 2020-02-13 09:22:46
Given an index k , return the k th row of the Pascal's triangle. For example, given k = 3, Return [1,3,3,1] . Note: Could you optimize your algorithm to use only O ( k ) extra space? 杨辉三角形,西方称为帕斯卡三角形     杨辉三角 1、每行数字左右对称,由1开始逐渐变大,然后变小,回到1。 2、第n行的数字个数为n个。 3、第n行数字和为2^(n-1)。 4、每个数字等于上一行的左右两个数字之和。可用此性质写出整个帕斯卡三角形。 5、将第2n+1行第1个数,跟第2n+2行第3个数、第2n+3行第5个数……连成一线,这些数的和是第2n个斐波那契数。将第2n行第2个数,跟第2n+1行第4个数、第2n+2行第6个数……这些数之和是第2n-1个斐波那契数。 6、第n行的第1个数为1,第二个数为1×(n-1),第三个数为1×(n-1)×(n-2)/2,第四个数为1×(n-1)×(n-2)/2×(n-3)/3…依此类推。 7.两个未知数和的n次方运算后的各项系数依次为杨辉三角的第n行。 把每一行看做一个矩阵或者向量,则第n行比第n-1行多一个元素,且每一行的第一个元素都等于1