| 查看: 1008 | 回复: 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人回复
-
317分 一志愿南理工材料工程 本科湖工大 求调剂
已经有9人回复
-
297求调剂
已经有10人回复
-
一志愿武汉理工，总分321，英一数二，求老师收留。
已经有10人回复
-
343求调剂
已经有5人回复
-
085601材料工程找调剂
已经有7人回复
-
求调剂，一志愿 南京航空航天大学 ，080500材料科学与工程学硕，总分289分
已经有6人回复
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研经历
已经有5人回复
-
340求调剂
已经有5人回复
-
一志愿北化求调剂
已经有4人回复
fah
铁杆木虫 (著名写手)
- 应助: 28 (小学生)
- 金币: 6301.8
- 红花: 1
- 帖子: 1380
- 在线: 238.6小时
- 虫号: 332256
- 注册: 2007-03-26
- 性别: GG
- 专业: 无机非金属类高温超导与磁
5楼2007-12-10 22:37:56
2楼2007-12-09 10:09:55
3楼2007-12-10 11:59:37
yalefield
金虫 (文坛精英)
老汉一枚
- 程序强帖: 3
- 应助: 129 (高中生)
- 贵宾: 0.17
- 金币: 21238.9
- 散金: 3440
- 红花: 66
- 帖子: 12101
- 在线: 759.1小时
- 虫号: 96063
- 注册: 2005-10-07
- 专业: 高等教育学
- 管辖: 计算模拟
6楼2007-12-10 22:41:43
