cc.txt

来自「一个简单词法编译器。具体内容是产生一个二元式文本文件」· 文本 代码 · 共 72 行

#include <fstream> 
#include <string> 
using namespace std; 

ifstream fin("alpha.in"); 
ofstream fout("alpha.out"); 

bool finish, hash[256], used[27]; 
int n, stk[27]; 
string a, b, c; 
string word; 



void init() { 
fin >> n >> a >> b >> c; 
finish = false; 
} 
program li1(input,output); 
const pi=3.
var r,l,s:real;
begin
write('input r:'); 
readln(r);
l:=2*pi*r;
s:=pi*r*r;
writeln('s=',s);
writeln('l=',l);
readln;
end;

program li1(input,output); 
const pi=3.
var r,l,s:real;
begin
write('input r:'); 
readln(r);
l:=2*pi*r;
s:=pi*r*r;
writeln('s=',s);
writeln('l=',l);
readln;
end;



program li1(input,output); 
const pi=3.
var r,l,s:real;
begin
write('input r:'); 
readln(r);
l:=2*pi*r;
s:=pi*r*r;
writeln('s=',s);
writeln('l=',l);
readln;
end;


program li1(input,output); 
const pi=3.
var r,l,s:real;
begin
write('input r:'); 
readln(r);
l:=2*pi*r;
s:=pi*r*r;
writeln('s=',s);
writeln('l=',l);
readln;
end;