一级棒(Eachfun)
偷猫的个人主页
一级棒(Eachfun) - 编程园地 - 奥赛辅导 - 二十六课:集合
RSS订阅
二十六课:集合
发表时间:2002-12-02 00:00:00 关键词:奥赛,PASCAL,编程,源码

program jihe(input,output);
type
  shuji=set of 1..10;
var
  shuji1,shuji2,shuji3:shuji;
  a:integer;
begin
  shuji1:=[3,4,5];
  shuji2:=[6,8,4];
  shuji3:=shuji1+shuji2;
  repeat
    read(a);
    if (a in shuji3) then writeln('yes')
                     else writeln('no');
  until a=-1;
end.

本站特约顾问律师常州东晟律师事务所朱立律师(电话13915029670,QQ646146109)提醒您:
本站文章皆为作者原创,其它媒体(包括但不限于报刊、杂志、网站、电视、电台)未经作者书面许可严禁转载(或部分摘录)!
相关评论
发表评论
称呼:
QQ:
邮箱:
链接:
内容:
搜索: 百度搜索 Google搜索
Copyright©2000 - 2011 Eachfun.Com, All Rights Reserved 一级棒网络
备案号忘了带来
一级棒建站系统 http://www.eachfun.com 一级棒版权所有,未经许可不得商用!