| 查看: 1012 | 回复: 10 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
请问大虾们：这是什么语言编的代码？
|
|||
|
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 ] |
回复此楼» 猜你喜欢
材料科学与工程求调剂
已经有3人回复
-
289求调剂
已经有5人回复
-
329求调剂，一志愿西北工业大学，材料工程（085601）
已经有6人回复
-
化学工程085602 305分求调剂
已经有21人回复
-
26申博自荐
已经有5人回复
-
296求调剂
已经有5人回复
-
总分293求调剂
已经有10人回复
-
材料专硕调剂
已经有3人回复
-
调剂310
已经有12人回复
-
化学0703 调剂 306分 一志愿211
已经有6人回复
匿名
用户注销 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 2932.1
- 散金: 317
- 红花: 3
- 帖子: 539
- 在线: 421.3小时
- 虫号: 0
- 注册: 2007-12-05
- 性别: GG
- 专业: 材料学
7楼2007-12-11 18:05:54
2楼2007-12-09 10:09:55
3楼2007-12-10 11:59:37
fah
铁杆木虫 (著名写手)
- 应助: 28 (小学生)
- 金币: 6301.8
- 红花: 1
- 帖子: 1380
- 在线: 238.6小时
- 虫号: 332256
- 注册: 2007-03-26
- 性别: GG
- 专业: 无机非金属类高温超导与磁
5楼2007-12-10 22:37:56
6