应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 请问大虾们：这是什么语言编的代码？
111/2返回列表12下一页
查看: 910  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

tangls

木虫 (著名写手)

[交流] 请问大虾们：这是什么语言编的代码？

program Opt_Approx (input,output,optDatafile,optOutfile);

const        maxvar = 50;

type        CHARFILE = file of char;
        ARRN = array [1..maxvar] of integer;
        ARRNN = array[1..maxvar,1..maxvar] of integer;

var        N : integer;
        W : ARRNN;
        ROUTE : ARRN;
        Nextint : integer;
        optDatafile : CHARFILE;
        optOutfile  : CHARFILE;


procedure Infile (var N : integer;
                  var W : ARRNN;
                  var ROUTE : ARRN;
                  var Nextint : integer);

var row, column : integer;

begin
  reset (optDatafile);
  readln (optDatafile, Nextint);
  N := Nextint;
  for row := 1 to N do
  begin
    for column := 1 to N do
    begin
      read (optDatafile,Nextint);
      W[row,column] := Nextint;
    end;
    readln(optDatafile);
  end;
  for row := 1 to N do
  begin
    read (optDatafile,Nextint);
    ROUTE[row] := Nextint;
  end;
  readln(optDatafile);
end;

[ Last edited by csfn on 2008-12-29 at 20:28 ]
回复此楼

» 猜你喜欢
1楼 2007-12-09 09:35:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

abingchem

木虫 (著名写手)
★
spur(金币+1,VIP+0):感谢参与讨论！：）
有点像1stopt软件能解释的语言
赞一下(10人) 回复此楼
冰是从最寒冷的那天开始融化的
2楼2007-12-09 10:09:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sxdxland

银虫 (小有名气)
嗯，是Pascal 语言
回复此楼
3楼2007-12-10 11:59:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tangls

木虫 (著名写手)
谢谢各位～
回复此楼
4楼2007-12-10 13:10:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fah

铁杆木虫 (著名写手)
现在还有用pascal的计算程序？
赞一下 回复此楼
5楼2007-12-10 22:37:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yalefield

金虫 (文坛精英)

老汉一枚
PASCAL怎么了？
想当年，没有Turbo C的时候，Turbo PASCAL风靡全球。全屏编辑、图形界面、功能集成，开创编程软件新......境界
赞一下 回复此楼
6楼2007-12-10 22:41:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (正式写手)
本帖仅楼主可见
赞一下
7楼2007-12-11 18:05:54
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

yalefield

金虫 (文坛精英)

老汉一枚
出Delphi的，就是当年出Turbo Pascal和Turbo C的Borland公司。

Borland名称的由来与公司的创立
      
Borland - A Little History of the Name
---- David Intersimone

1981年8月，3个丹麦人Danish citizens, Niels Jensen, Ole Henriksen, and Mogens Glad在爱尔兰创建了一个小公司Borland(Both Import and Export of Irland --Bear)。公司第一个产品是MenuMaster。Philippe Kahn 是Borland在美国的第一个雇员。1983年5月2日，Philippe Kahn在美国建立了Borland International，为CEO。

1982年，Philippe Kahn带着3000美元从巴黎到了美国，除去机票钱已所剩无几，只好租人家的车库小阁间住。Kahn在硅谷干了一段时间，并以mit(market in time，恰好与麻省理工学院的缩写相同)为名开了一家公司。

1983年，kahn和anders hejlsberg(丹麦人，Turbo Pascal编译器的主要作者)合作开发了Turbo Pascal，并赊帐在《新闻周刊》上登了一份彩页广告。

Turbo Pascal在pc开发工具中是一个里程碑式的产品，它第一次把编译时间由分缩短到秒，并且其$49的价格在当时也是创纪录的(当时的一份编译器动辄数千美元，便宜的也要几百美元，还不好用)。

Turbo Pascal在不到两年的时间里销售了超过130万套(考虑到当时的pc数量，这是一个非常惊人的数字)，Borland从此创立。

Kahn在解释为什么以Borland命名时说“我们要起一个与众不同的名字，其他公司都是叫这个micro，那个soft什么的”。不过据认为这个名称与德国或北欧的某些地名有关 (Kahn的父亲是德国人，而且Borland的很多开发人员是北欧人)。

Anders Hejlsberg ,丹麦人，曾在丹麦技术大学学习工程。当时Anders Hejlsberg 有个公司叫Poly Data在丹麦，他编写了Pascal编译器核心，最初叫Compass Pascal，后来叫Poly Pascal。Anders把该编译器核心授权给了Borland。Anders作为雇员加入公司，并且是后来所有Pascal版本与Delphi前3个版本的架构师。Kahn为Pascal添加了用户界面与编辑器。

Borland 著名Turbo Pascal与Turbo C产品的发布，引起全球狂卖，奠定了公司的全球声誉，也让Borland获得了巨大的收入
         
1983年11月20日 Turbo Pascal version 1.0发布 著名的Tubo Pascal随即风靡世界。
1986年09月17日 Turbo Pascal version 3.02 发布 支持Intel 8087数学协处理器
1989年05月02日 Turbo Pascal version 5.5 发布 面向对象Pascal
1989年05月11日 Turbo C version 2.01 发布 C语言开发集成环境，你还记得吗？
1991年02月28日 Turbo C++ version 1.01 发布 著名的C++语言开发集成环境
1991年后期，Borland发布Borland C++ 1.0
1993年 Borland发布著名的Borland C++ 3.1，当时微软为MS Visual C++ 1.0  
1991年至1994年，Borland 仍然是Windows平台上最好的C++编译器厂商。10年辉煌岁月。
   
Borland早期卡通形象Frank Borland与TurboMan

Will The Real Frank Borland Please Stand Up?

The Adventures of TurboMan
      
Borland危机

1992年，Borland C/C++的产品经理Eugene Wang，是一位中国人，因Philippe Kahn而离开Borland，去了Symantec，开发出了著名的Symantec C/C++。这一时期，Philippe Kahn花了一亿多美金建造了Borland在Scotts Valley豪华总部，花了一亿多美金买下了Ashton-Tate公司和dBase（并不值）。同时，Microsoft开始向Borland挖角。稍后，Microsoft的Visual C/C++小组有60%的成员是从Borland挖来的（--LiWei）。

1994年06月02日，据华尔街杂志报道Borland在当季度亏损4200万美元，连续3个季度亏损2.2亿美元。公司的股价从1992年1月的86美元跌至9.63美元。  
      
Delphi拯救Borland
      
1995年02月14日，Delphi1.0发布，号称VB Killer。获得空前成功，在关键时刻拯救了Borland。
以后几乎每年推出一个新版本。 Delphi 2.0时，编译器后端就改成了用C与汇编来编写，而不是Pascal与汇编。名称由来。

为什么起名Delphi Why the name "Delphi?"  

来源于Danny Thorpe 的 "Delphi": If you want to talk to the Oracle, go to Delphi.
Danny Thorpe是Borland的资深工程师,主页,爱好摄影，《Delphi组件设计》一书作者，现在是Borland的.Net架构设计师。

Anders Hejlsberg 被Microsoft挖走
      
1995年，Borland 与 Microsoft,Symantec,Watcom 的C++之战  ，当时为Borland C++ 4.5。Microsoft VC赢。从此Borland C++产品开始走下坡路。

1996年10月，Anders在Delphi3发布前离开了Borland。Anders在Delphi3中几乎没有做什么工作，Chuck Jazdzewski扮演了一个更重要的角色。(--Anders Ohlsson)Anders在Borland时把所有精力都放在了Pascal产品上，也需要新的挑战，由于Bill Gates的亲自邀请，并许诺挑战的机会，Anders加入了Microsoft，起薪$3,000,00。果然，在Microsoft，Anders称为VJ++开发中扮演了一个重要的角色，然后是C#的设计者，主要的架构设计师，以及.Net的架构设计师之一。（--Marco Menardi）
      
Borland在几个产品上都与Microsoft展开了战争般的竞争。结果显而易见。
      
1997年07月30日, Borland发布JBuilder 1.0，进军Java跨平台开发
      
Borland在经营上再次面临危机

1998年04月29日，Borland改名为Inprise。准备采用新的战略：Integrate the Enterprise。遭遇失败。
1999年中，Dale Fuller临危受命，被请来做Borland的CEO。
2000年05月16日，困难重重的Inprise取消与Corel的合并计划。
广大Borland开发者联合起来呼吁反对合并。此前，Corel欲收购Inprise，进军Linux。（当时Borland的困境以及计划合并的消息，对于所有的Borland开发者打击很大，不少公司转向微软）
2000年07月16日，Borland的InterBase数据库OpenSource化  InterBase 6.0  
      
Borland回来了
2000年11月08日，Borland把名字从Inrise改回Borland。2001年1月完成。
Dale Fuller确定新的战略，结束与微软的战争，转为合作关系，同时提出了Made In Borland口号，开始逐渐把Borland带出低谷。 还将一些技术转让给微软，获得2亿美金。  
2001年03月01日，Borland发布Kylix 1.0,进军Linux平台。Kylix本意是古希腊的一种带耳朵的酒杯。
2001年至2002年，Borland陆续收购VMGEAR，StarTeam，Together，CaliberRM等公司及产品，与已有的产品整合，逐步实现构建应用生命周期管理(ALM)的产品战略。
2003年05月06日，Borland针对.NET发布C#Builder    C#Builder界面   
2003年09月15日，Borland发布C++BuilderX     C++BuilderX测试版试用截图  
2003年10月21日，Borland Launches Next Generation Java Development Environment: Borland JBuilder X
2003年11月3日，Borland 发布 Delphi 8 for .NET
2003年11月3日，Borland 发布 Borland Enterprise Studio 7 for Java
   
Borland开发者大会BorCon报道
      
BorCon 1999，Dr.Bob's BorCon 1999 Report (Philadelphia (US), July 17-21, 1999 ） 会上发布了Delphi5，图文并茂

BorCon 2000，Dr.Bob's BorCon 2000 Report (in San Diego, July 8-12, 2000)

Borcon2000 SA San Diego Photos，Borland Come Back !
BorCon 2001   
Borland Conference 2001 - Long Beach (CA) marcocantu.com大量图片报道！
给JBuilder首席科学家兼架构师Blake Stone颁奖
给Delphi首席科学家兼架构师Chuck Jazdzewski颁奖

BorCon 2002   
Borland Conference 2002 - Anaheim (CA) marcocantu.com大量图片报道！

Dr.Bob's BorCon 2002 Report (in Anaheim, May 18-22, 2002)  WebService !

Opening Keynote 图文并茂
Danny Thorpe作为Borland的.NET架构师，获得Borland总裁奖。也是他起的Delphi这个名字

David I introduces Anders Hejlsberg (video) David I介绍，我们的朋友...Anders 。

Microsoft Anders 的PowerPoint演讲稿！图文并茂

Intel 的PowerPoint演讲稿！图文并茂

BorCon 2003   
Dr. Bob's BorCon 2003 Report Bob的BorCon2003实时报道，文字与图片

BORCON 2003 A SUCCESS!
赞一下 回复此楼
8楼2007-12-11 21:50:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

samtyty

铁杆木虫 (著名写手)
Delphi是以Pascal为基础的，就像VB是以Basic为基础一样
赞一下 回复此楼
http://www.net.hr/2006/07/13/0311007.20.gif
9楼2007-12-12 10:34:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yalefield

金虫 (文坛精英)

老汉一枚
引用回帖:
Originally posted by samtyty at 2007-12-12 10:34:
Delphi是以Pascal为基础的，就像VB是以Basic为基础一样

毛主席教导我们说：

吃水不忘挖井人
写书多提参考文
软件编来不容易
语言变化难紧跟
赞一下 回复此楼
10楼2007-12-12 21:13:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 tangls 的主题更新
111/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭