一级棒
一级棒,猫哥的个人主页
文章列表
1 2 3 4
programlong;
vari,j,l,m,jinwei,benwei:integer;s:string;a,b:array[1..30]ofinteger;
   c:array[1..61]ofinteger;
begin
 fori:=1to30dobegina[i]:=0;b[i]:=0;end;
 fori:=1to61dobeginc[i]:=0;end;
 r...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2003-01-06 00:00
programstr(input,output);
var
 str1,str2,str3:packedarray[1..20]ofchar;
 i,he,jinwei:integer;
begin
 fori:=1to20doread(str1[i]);
 fori:=1to20doread(str2[i]);
 fori:=20downto1do
 ...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-30 00:00
programbtod2;
var
 b:string;
 str1:char;
 i,p,leftofdot,rightofdot:integer;dot:boolean;
 a1,a2:array[1..20]ofinteger;
 d,y:real;
begin
 write('InputtheBinaryNumber:');readln(b);...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-26 00:00
programbtod;
var
 b:string;
 str1:char;
 d,i,y,l:integer;
 a:array[1..20]ofinteger;
begin
 write('InputtheBinaryNumber:');readln(b);
 l:=length(b);
 fori:=1toldo
...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-23 00:00
programDtoB;
var
 a,n:real;
 s1,s2:string[20];p:string;
 i,j,m,t:integer;
begin
 readln(a);
 m:=trunc(a);
 n:=a-trunc(a); i:=0;
 repeat
   i:=i+1...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-19 00:00
programcouqian;
var
 i,j,k:integer;
begin
 fori:=0to1do
   forj:=0to2do
     begin
       k:=10-5*i-2*j;
   ...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-16 00:00
programxunshu;
var
 m,n,i,p:integer;
begin
 read(m,n);
 p:=0;
 fori:=m+1ton-1do
   if(imodm=0)and(nmodi=0)then
     begin
   ...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-12 00:00
programmp(input,output);
type
 mingpian=record
   name:string[20];
   age:integer;
   phonenumber:string[7];
 end;
var
 mymp:array[1..10]ofmingpian;...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-09 00:00
programjilu(input,output);
type
 student=record
   name:string[20];
   age:integer;
   height:real;
   weight:real;
   sex:boolean;...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-05 00:00
programjihe(input,output);
type
 shuji=setof1..10;
var
 shuji1,shuji2,shuji3:shuji;
 a:integer;
begin
 shuji1:=[3,4,5];
 shuji2:=[6,8,4];
 shuji3:=shuji1+shuji2;
 re...
关键词:奥赛,PASCAL,编程,源码 编程园地 - 奥赛辅导 2002-12-02 00:00
1 2 3 4
搜索
Copyright©2000 - 2019 Eachfun.Com, All Rights Reserved 一级棒网络
苏ICP备15042862号-1