tests.cpp

eC++编译器源码

#include <Sets.h>
#include <iostream.h>
#include <Primes.h>
#include <TextWindow.h>

void write(Set &s)
{int i;
  for (i=0; i<=100; i++)
    if (In(i,s)) cout<<1; else cout<<0;
};

void main()
{Set s; unsigned int i; TWindow w;  char str[80];
 Open(s, 5, 100);
 Include(s, 22);
 write(s);
 cout<<'\n';
 Close(s);
 for (i=56000; i<56100; i++)
   if (Prime(i)) cout<<i<<'\n';
 OpenWindow(w,0,0,300,300,"test inout");
 for (i=0; i<5; i++) {
   Write(w, '>');
   ReadString(w, str);
   WriteLn(w);
   WriteString(w, "\t\t");
   WriteString(w, str);
   WriteLn(w);
 };
 CloseWindow(w);
};