Pascal - 随笔分类 - L的存在

Pascal学生管理

摘要：1 program Project2; 2 3 {$APPTYPE CONSOLE} 4 5 uses 6 SysUtils; 7 8 const N=2;M=3; 9 type 10 11 date=record 12 day:1..31; 13 month:1..12; 14 year:1970..1999; 15... 阅读全文

posted @ 2017-01-20 10:45 L的存在阅读(245) 评论(0) 推荐(0)

Pascal约瑟夫问题

摘要：1 program Project2; 2 3 {$APPTYPE CONSOLE} 4 const 5 n=13; 6 m=5; 7 8 9 10 Type 11 peopleno= array[1..n] of integer; 12 13 var 14 datering:peopleno; 15 s,p,i:integer; 16 flag:... 阅读全文

posted @ 2017-01-20 10:43 L的存在阅读(248) 评论(0) 推荐(0)

Pascal输出星星

摘要：1 program Project2; 2 3 {$APPTYPE CONSOLE} 4 5 uses 6 SysUtils; 7 8 var 9 i,j:integer; 10 11 begin 12 { TODO -oUser -cConsole Main : Insert code here 阅读全文

posted @ 2017-01-20 10:42 L的存在阅读(263) 评论(0) 推荐(0)

Pascal之计算小系统

摘要：1 program Project16; 2 3 {$APPTYPE CONSOLE} 4 VAR 5 n,i,k,score,b,a:integer; 6 answer,c:real; 7 ch:char; 8 Begin 9 repeat 10 writeln('1.加法练习'); 11 wri 阅读全文

posted @ 2017-01-20 10:40 L的存在阅读(222) 评论(0) 推荐(0)

pascal倒序输出

摘要：1 program Project6; 2 3 {$APPTYPE CONSOLE} 4 5 uses 6 SysUtils; 7 8 var 9 a,b,c,d:integer; 10 11 12 begin 13 { TODO -oUser -cConsole Main : Insert code here } 14 writeln('please... 阅读全文

posted @ 2017-01-20 10:38 L的存在阅读(173) 评论(0) 推荐(0)

Pascal之工种问题

摘要：1 program Project2; 2 Type 3 ma=(A,B,C); 4 wk=1..3; 5 const 6 x:array[ma,wk] of integer 7 =((4,3,3),(2,4,3),(4,5,2)); 8 var 9 maxefficiency:array[wk] 阅读全文

posted @ 2017-01-20 10:36 L的存在阅读(188) 评论(0) 推荐(0)

Pascal之while

摘要：1 program Project1; 2 3 {$APPTYPE CONSOLE} 4 5 uses 6 SysUtils; 7 8 begin 9 { TODO -oUser -cConsole Main : Insert code here } 10 end. 11 program examplesum(input,output); 12 13 {$... 阅读全文

posted @ 2017-01-20 10:34 L的存在阅读(396) 评论(0) 推荐(0)

L的存在

随笔分类 - Pascal