Question

100财富值求fortran95程序！具体要求是，给a到z赋值0到25，空格赋值26，用户可以输入

100财富值求fortran95程序！具体要求是，给a到z赋值0到25，空格赋值26，用户可以输入一组单词，然后程序将其拆开个个字母换算成数字再进行计算，具体算式照片第一张是，举例来说，如果用户输入的是“dog”的话，d=3，o=14，g=6，
按照公式就是P=3*26^2+14*26^1+6*26^0=2398
这样的程序，最好可以支持输入10位字符的计算，急等，谢了





Answer 1

这显然是一个26进制数向10进制转化的题目。用pascal吧！ fortran处理字符串或者字符性能较弱 ！
{$n+e-}
var
	s:string;
	n:integer;
	a:array[0..100] of integer;
	i,j:integer;
	sum:extended;
begin
	s:='zzzzzzzzz';
	n:=length(s);
	for i:=1 to n do begin
		a[i]:=ord(s[i])-ord('a');
	end;
	sum:=0.0;
	for i:=1 to n do begin
		sum:=sum*26+a[i];
	end;
	writeln(sum);
end.

追问

没用过pascal，另外这个程序要和其他的fortran程序合并成一个简单的RSA加密小程序，这是毕业研究的一部分……

你好，真的没法用fortran写这个程序吗？哪怕简单些，比如只识别三位字母，或四位字母之类的固定格式的字母

追答

fortran的字符串为定长的，你的问题是变长的，所以用fortran处理有难度。

追问

定长也可以，固定五位或者固定四位就可以了

追答

character*10 s
integer n
dimension a(100)
integer a,i,j
double precision sum
s='dog'
c n=len(s)  不存在len函数
n=3
do 10 i=1,n 
a(i)=ichar(s(i:i))-ichar('a')
10 continue
sum=0.0
do 20 i=1,n
sum=sum*26+a(i)
20 continue
write(*,*)sum
stop
end