FREE PASCAL 2道题的思路.幼稚的游戏 描述 Description 一年级的英语课上,老师在黑板上写着一个句子,问你这个句子有多少个单词你不屑于回答这种问题,所以你打算编一个程序来回答. 输入格式 Input Format 一行,有若干个单词或标点符号.长度小于256 输出格式 Output Format 一行,一个整数表示单词数. 样例输入 Sample Input Hello everybody!
2019-04-18
FREE PASCAL 2道题的思路.
幼稚的游戏
描述 Description
一年级的英语课上,
老师在黑板上写着一个句子,
问你这个句子有多少个单词
你不屑于回答这种问题,
所以你打算编一个程序来回答.
输入格式 Input Format
一行,有若干个单词或标点符号.长度小于256
输出格式 Output Format
一行,一个整数表示单词数.
样例输入 Sample Input
Hello everybody!Vivian Snow is the greatest alive.
样例输出 Sample Output
8
时间限制 Time Limitation
1s
注释 Hint
数据保证单词只出现在第一行
数据保证不会出现譬如单词间有多个空格等缺心眼的情况
------------------------------------------------------------
幼稚的潜伏
背景 Background
Unit6, Section C
描述 Description
幼儿园的小朋友们一直在研究一个问题——
如何在一个长长的句子中 找到最大的那个整数
你很不幸的被他们拖住了
又很不幸的被他们叫去执行这个 任务 ……
你非常的不爽..!
因为你觉得这么简单的问题简直侮辱了你的智商..
所以你决定写一个程序来代劳..
输入格式 Input Format
一行,一个句子长度小于256
输出格式 Output Format
一行,最大的那个数
小于maxlongint
样例输入 Sample Input
&&12345absddkjie64skjd5lk
样例输出 Sample Output
12345
时间限制 Time Limitation
1s
两道FREE PASCAL的题,
只要思路就可以了 具体程序不用
优质解答
第一题：
变量：a：longint；str:string;
1、读入字符串,用length求出str长度
2、a赋初值0
3、检查第一个字符,若为字母,a:=a+1,否则进行以下步骤：
用for语句对字符串逐个检查,如某字符不为字母且它的下一个字符是字母,则a:=a+1.
4、输出a
第二题
变量：a,b:longint;str1,str2:string;
1、读入str1并求其长度
2、a赋为0
3、再用for语句对str1逐个检查,如果为数字,则将其加到str2中,insert或+都可以.如果不为数字,则进行以下步骤：(1)用val语句把str2中的数字调到b（2)将str2清空(3)比较a、b大小,若a
第一题：
变量：a：longint；str:string;
1、读入字符串,用length求出str长度
2、a赋初值0
3、检查第一个字符,若为字母,a:=a+1,否则进行以下步骤：
用for语句对字符串逐个检查,如某字符不为字母且它的下一个字符是字母,则a:=a+1.
4、输出a
第二题
变量：a,b:longint;str1,str2:string;
1、读入str1并求其长度
2、a赋为0
3、再用for语句对str1逐个检查,如果为数字,则将其加到str2中,insert或+都可以.如果不为数字,则进行以下步骤：(1)用val语句把str2中的数字调到b（2)将str2清空(3)比较a、b大小,若a