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
随笔分类 - Pascal
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
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
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
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
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
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
