qbasic新手题目
qbasic吧
全部回复
仅看楼主
level 8
dsfdrds 楼主
分米和厘米
难度级别:A; 运行时间限制:1000ms; 运行空间限制:51200KB; 代码长度限制:2000000B
试题描述
这是一个最简单的问题,由键盘上输入1个整数,表示你手机的长度,单位是分米。请你将这个长度转换为厘米单位,输出。
输入
输入中只包含一个非负整数n,n < 200000000。
输出
输出中也包括一个正整数。为所求结果。
输入示例
12
输出示例
120
2013年02月26日 14点02分 1
level 8
dsfdrds 楼主
简单a+b
难度级别:A; 运行时间限制:1000ms; 运行空间限制:51200KB; 代码长度限制:2000000B
试题描述
由键盘上输入两个整数a和b,请计算出a和b的和,然后输出。
输入
输入中,有两个整数a和b(int范围内),两个数中间用一个空格隔开。
输出
输出a和b的和(int范围内)
输入示例
1 2
输出示例
3
2013年02月26日 14点02分 2
level 8
dsfdrds 楼主
a+b=?
难度级别:A; 运行时间限制:1000ms; 运行空间限制:51200KB; 代码长度限制:2000000B
试题描述
做了,简单的a,b和的问题。但是,如果要求输入的情况不是a和b,而是整个加法表达式呢?
请想办法,计算加法表达式的结果。
输入
输入一个加法表达式,如1+2=。
输出
计算出输入表达式的正确结果
输入示例
1+2=
输出示例
3
其他说明
完整的输入表达式。加号两边的数值属于int范围内,且第一个数可能为负数
2013年02月26日 14点02分 3
level 8
dsfdrds 楼主
数数小木块
难度级别:A; 运行时间限制:1000ms; 运行空间限制:51200KB; 代码长度限制:2000000B
试题描述
在墙角堆放着一堆完全相同的正方体小木块,如下图所示:
因为木块堆得实在是太有规律了,你只要知道它的层数就可以计算所有木块的数量了。
输入
只有一个整数 n ,表示这堆小木块的层数,已知1 <= n <= 100 。
输出
只有一个整数,表示这堆小木块的总数量。
输入示例
5
输出示例
35
2013年02月26日 14点02分 6
level 8
dsfdrds 楼主
从家到学校的距离
难度级别:A; 运行时间限制:1000ms; 运行空间限制:51200KB; 代码长度限制:2000000B
试题描述
小军,每天都要从家到学校去上学(好像大家都是这样),很幸运的是,他家和学校在一条直线上(两点肯定在一条直线上……),现在告诉你小军家的坐标n和学校的坐标m,请你算出从小军家到学校的距离。
输入
包含两个正整数,n和m!并保证 0 < n , m < 2000000000,n和m之间用空格隔开
输出
输出家和学校间的距离
输入示例
1 10
输出示例
9
2013年02月26日 14点02分 7
level 1
var
a,b:longint;
begin
read(a);
b:=a*10;
writeln(b);
end.
2014年10月06日 03点10分 10
level 1
刚才的是第一题,分米和厘米,这是第二题,简单a+b。
var
a,b:longint;
begin
read(a,b);
writeln(a+b);
end.
2014年10月06日 03点10分 11
level 1
第三题,a+b=?
var a:string;
t,i,s1,s2,p,d,j:longint;
code:integer;
k:boolean;
begin
readln(a);k:=true;
t:=length(a);s1:=0;s2:=0;if a[1]=*-* then begin d:=2;k:=false;end else d:=1;
for i:=d to t do
if a[i]=*+* then break
else begin p:=s1*10;val(a[i],s1,code);s1:=s1+p;end;
for j:=i+1 to t-1 do
begin p:=s2*10;val(a[j],s2,code);s2:=s2+p;end;
if k=true then writeln(s1+s2)
else writeln(s2-s1);
end.
2014年10月06日 03点10分 12
1