pasca编程：编写一个译码程序,把一个英语句子译成数字代码现已有程序，只是不知道怎样结束,求大师讲解！
var
s:string;
i:longint;
begin
read(s);
for i:=1 to length(s) do
begin
if (s[i]>='a')and(s[i]<='z') then write(ord(s[i])-96,' ');
else
begin
if s[i]=' ' then write('*');
else
begin
if s[i]='.' then break;
end;
end;
end;
end.
要想跳出循环用break就行。
#include
int main ()
{
char c;
while ((c = getchar()) != '
')
{
if(c==' ')
{
printf("*");
continue;
}
c-=64;
if (c!=-32)
printf ("%d ",c);
}
printf (".");
return 0;
}
试试看符不符合你的要求
PASCAL的语法不在记得了，伪代码就是
while(s[i] != '.') ...
你参照改一下
var s:string;
begin read(s);
while s[i]<>'.' do
begin
if ((s[i]>='a') and (s[i]<='z')) then write(ord(s[i])-96,' ')
else if s[i]=' ' then write('*',' ')
else if ((s[i]>='A') and (s[i]<='Z')) then write(ords[i])-64，‘ ’）；
i:=i+1;
end;
end.
C语言编程题
\/ asd123rt456fg789 \/ include<stdio.h> include<string.h> void main(){ char str[1000];int num[20][20],sum=0,q=1;int i,j,p=0,len=0,numi=0,numj[20],count;gets(str);len=strlen(str);for(i=0;i<20;i++){ numj[i]=0;} count=0;for(i=0;i<len;i++){ if(...
C语言编程题
include <string.h> define MAX 10 void del_char(char *str,char ch){ char * tm = (char*)malloc(strlen(str)*sizeof(char));int i = 0;int j = 0;while (str[i]){ if (str[i] != ch){ tm[j++] = str[i++];}else{ i++;} } tm[j] = 0;strcpy(str,tm);free(...
Pascal编程时需要用的一些名词,如:integer,char。
1、integer 整数 2、real 小数，极大 3、longint 整数，比integer的范围广 4、byte 很小，最大估计就500吧 5、word 比较大，有100000多 6、char 字符型 7、string 字符串 8、double 这个本人不前不清楚，但是我在机器人快车编时用到了，反正也是个跟integer这些差不多的 9、boolea...
柳矩复方： var s:string; i:longint; begin read(s); for i:=1 to length(s) do begin if (s[i]>='a')and(s[i] else begin if s[i]=' ' then write('*'); else begin if s[i]='.' then break; end; end; end; end.要想跳出循环用break就行.
南川区19211884744： pasca编程:编写一个译码程序,把一个英语句子译成数字代码现已有程序,只是不知道怎样结束,求大师讲解! - ？
柳矩复方： 把for换成while PASCAL的语法不在记得了,伪代码就是 while(s[i] != '.') ...你参照改一下
南川区19211884744： 编写一个译码程序,把一个英语句子译成数字代码.拜托了!!! - ？
柳矩复方： 编写一个译码程序,把一个英语句子译成数字代码.译码规则是以数字1代替字母A,数字2代替字母B,……,26代替字母Z,如遇空格则打印一个星号'*',英文句子以'.'结束.
南川区19211884744： 用JAVA语言编写程序19.编写一个译码程序,把一个英语句子译成数字代码.译码规则是以数字 1代替字母 a,数 - ？
柳矩复方：[答案] String result = sentence.replaceAll(＂a＂,＂1＂).replaceAll(＂b＂,＂2＂).; 依此写 这个可以查API的
南川区19211884744： 编写一个字符译码程序 - ？
柳矩复方： char str[] = ＂program＂; if(strlen(str) > 6) { for(int i;i <= strlen(str) - 1 - 6;i++) { str[i]=str[i+6]; } }
南川区19211884744： 用JAVA语言编写程序19.编写一个译码程序,把一个英语句子译成数字代码.译码规则是以数字 1代替字母 a,数 - ？
柳矩复方： String result = sentence.replaceAll(＂a＂,＂1＂).replaceAll(＂b＂,＂2...
南川区19211884744： 急急急!!!这样怎么编写译码的程序!&???!!!!!!! - ？
柳矩复方： hanoi(n-1,one,three,two); move(one,three); hanoi(n-1,two,one,three); } } public static void move(char x,char y) { System.out.print(x); System.out.print(＂-->＂); System.out.println(y); } }
南川区19211884744： 用FreePascal编个程序？
柳矩复方： var i:integer; a,b,c,d,e,f,g:integer; s:array[1..7]of string = ('Monday', 'Tuesday', 'Wednesday','Thursday', 'Friday','Saturday','Sunday'); begin for c:=1 to 7 do begin a:=c+1; f:=4; for e:=1 to 7 do if(a<8)and(e<>a)and(e<>c)and(e<>f) then begin d:=e+2; for...
南川区19211884744： 打印数字金字塔的PASCAL程序 - ？
柳矩复方： program hahavar i, j, k: Integer;begin//初始化i := 1;j := 1;k := 1;for i := 1 to 9 dobegin for j := 1 to i do begin write(j, ' '); end; for k := i dow...
南川区19211884744： 三菱PLC驱动双位七段数码管译码程序 - ？
柳矩复方： 选择fx系列编程时可以写入segd. 选择q系列编程应该用seg.
