实时搜索: pascal 输入几个数字

pascal 输入几个数字

529条评论 4515人喜欢 2733次阅读 586人点赞
还有也要输出个位数,十位数,百位数等是什么。是turbo pascal,不是free pascal哟 , 问题如上。求指点。 , 【试题描述】
那些3位数,
只由1,2,3 这3个数字组成。请编程输出这些3位数。
先小后大,每行一个。
【解题提示】
数字可以重复。
附:下面是我做的,帮忙看下哪里出错,谢谢。

var
str:string;
temp:char;
i,j:integer;
x:array[1..1000]of byte=(1,2,3);
begin

pascal输入一个不超过5位的数输出这是几位数: var
a:string;
i,n:integer;
begin
readln(a);
n:=length(a);
writeln('weishu:',n);
write('ge,shi,bai,...wei fenbie shi:');
for i:=n downto 1 do
write(a[i],',');
readln;
end.

用pascal做一个计算器 输入一串字符串,内容为数字,运算符(+ - * /)以及括号(不分大中:

program jisuanqi;
var nextch:char;
result:real;
procedure readnextch;
{读下一个字符的过程}
begin
repeat
if eoln then nextch:=';'
else begin
read(nextch);
write(nextch);
end;
until nextch<>'';
end;
procedure readnumber(var number:real);
{读数的过程}
var scale:real;
begin
{处理整数部分}
number:=0;
while nextch in['0'..'9'] do
begin
number:=number*10+ord(nextch)-ord('0');
readnextch;
end;
if nextch='.' then begin
{处理小数部分}
scale:=1;
readnextch;
while nextch in['0'..'9'] do
begin
number:=number*10+ord(nextch)-ord('0');
scale:=scale*10;
readnextch;
end;
number:=number/scale;
end;
end;
procedure readexpression(var exprvalue:real);
{读表达式的过程}
var addop:char;
     nexttermval:real;
procedure readterm(var termvalue:real);
{读项的过程}
var mulop:char;
     nextfacval:real;
procedure readfactor(var factorvalue:real);
{读因子的过程}
begin
if nextch in['0'..'9'] then readnumber(factorvalue)  {读数}
                        else if nextch='(' then begin
 readnextch;{读表达式}
 readexpression(factorvalue);
                        if nextch=')' then readnextch
                        else writeln('error');
                        end
                        else begin
                        writeln('error');
                        factorvalue:=1;
                        end;
end;
begin
{读因子}
readfactor(termvalue);
while nextch in ['*','/'] do
begin
mulop:=nextch;
readnextch;
{读下一个因子}
readfactor(nextfacval);
{因子与因子乘除}
case mulop of
'*':termvalue:=termvalue*nextfacval;
'/':termvalue:=termvalue/nextfacval;
end;
end;
end;
begin
{读项}
readterm(exprvalue);
while nextch in ['+','-'] do
begin
addop:=nextch;
readnextch;
{读下一项}
readterm(nexttermval);
{项与项加减}
case addop of
'+':exprvalue:=exprvalue+nexttermval;
'-':exprvalue:=exprvalue-nexttermval;
end;
end;
end;
begin
readnextch;
{读表达式}
readexpression(result);
{输出结果}
writeln('=',result:20:6);
end.
这个是我初中那会整的代码,参考一下这个,回答下面附了一张图:

用freepascal编程 输入一个三位数的整数,将数字位置重新排列,组成一个尽可能大的三位数.例如输入213,重: program make;
var a:array[1..3] of char;i,j:integer;t:char;
begin
for i:=1 to 3 do read(a[i]);
for i:=1 to 2 do
for j:=1 to 3-i do
if a[j]<a[j+1] then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
for i:=1 to 3 do write(a[i]);
writeln;
end.

用pascal语言编程:输入一行字符,分别统计出其中英文字母、空格、数字和其他字符的: #include <stdio.h>
void fun(char str[],int *zm,int *sz,int *kg)
{
int i=0;
while(str[i++]!=0)
if(str[i]>'a'&&str[i]<'z'||str[i]>'A'&&str[i]<'Z') (*zm)++;
else if(str[i]>'0'&&str[i]<'9') (*sz)++;
else if(str[i]==' ') (*kg)++;
}
void main()
{
char str[81];
int zm=0,sz=0,kg=0;
printf("请输入一个字符串(不超过80个)");
gets(str);
fun(str,&zm,&sz,&kg);
printf("其中字母%d个,数字%d个,空格%d个",zm,sz,kg);
}

#include <stdio.h>
#define N 100
main()
{
char all[N];
int i,zimu=0,shuzi=0,qita=0;
printf("请输入一个字符串(不超过100个):");
gets(all);
for(i=0;all[i];i++)
{
if(all[i]>'a'&&all[i]<'z'||all[i]>'A'&&all[i]<'Z')
zimu++;
else if(all[i]>'0'&&all[i]<'9')
shuzi++;
else
qita++;
}
printf("其中字母%d个,数字%d个,其他字符%d个\n",zimu,shuzi,qita);
}

pascal问题:输入一个大数n,输出它除以(10^9+7)的余数。: N是多少啊,要用高精度么?
要再找我。。。
不要就用,这个,
var
s,n:qword;
begin
readln(n);
s:=10000000007;
writeln(n mod s);
end.

那些3位数 pascal: 为什么不用for做?
for a :=1 to 3 do
for b:=1 to 3 do
for c:= 1 to 3 do
begin
s:=s+1;
n[s]:=a*100+b*10+c*1;
end;
这样子很简单啊,abc分别是百位十位个位,不过是不是不用STRING做而已

输入N个数(1

  • pdf怎样插入图片

    ipad开不了机拿去修说cpu坏了,还能不能修好?: 更换cpu需要更换主板,代价较高。如果在保修期内,可以去找售后。...

    883条评论 1965人喜欢 4819次阅读 573人点赞
  • 2015永春婚检检哪些

    洛阳哪里可以维修 ipad ?: 苹果售后服务那里- - 或者有小店去看看得了--万达广场有好几家苹果专卖店 还有宝龙广场 新都汇 新区也有去看看吧应该都能修 ...

    879条评论 5390人喜欢 4478次阅读 888人点赞
  • oppor15换内外屏多少钱

    什么是国行手机 水货与国行港行的区别: 水货手机,是相对于国内行货手机而言的,并不是假货,而是泛指那些在国外生产和销售,经过各种途径,流入国内市场的,没有缴纳国家规定税费的走私的手机。简单点说,水货手机就是没有通过正常渠道报关和交纳税项的手机。。水货的定义...

    357条评论 6457人喜欢 3886次阅读 486人点赞
  • 10 黑铁矿 几个 1

    ipad上的音乐软件,编曲的,简单的,在在线等: Garageband,在编曲里算简单的——loop拼凑就可以了。但是,比较好的办法是iPad和midi键盘连接上,然后各种旋律就容易做出来了。 ...

    388条评论 5344人喜欢 1745次阅读 805人点赞
  • doom可以几个人玩

    iPadQQ声音: 点击QQ头像,会出现一个设置,里面有声音的,可以关掉。 ...

    206条评论 5668人喜欢 2545次阅读 746人点赞
  • 2015做哪个行业致富

    主水管是PPR63怎么接65的地上栓: 准确来说,63说的是PPR管材的外径。而65则是说的是铁管的内径。而推荐答案那个傻逼。不懂装懂,误导人。用63PPR外丝直接在拧上个65变50的补芯就好了。 ...

    525条评论 4054人喜欢 6295次阅读 497人点赞