| 查看: 1003 | 回复: 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 ] |
回复此楼» 猜你喜欢
一志愿华东师范大学有机化学专业，初试351分，复试被刷求调剂!
已经有4人回复
-
298求调剂
已经有4人回复
-
材料学硕333求调剂
已经有11人回复
-
0856求调剂
已经有7人回复
-
356求调剂
已经有3人回复
-
332求调剂
已经有7人回复
-
348求调剂
已经有4人回复
-
305求调剂
已经有8人回复
-
一志愿北京化工大学材料与化工（085600）296求调剂
已经有13人回复
-
调剂310
已经有9人回复
9楼2007-12-12 10:34:13
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
