编程序（用Pascal)
寻找该文本图的性质，其实就是以中间为中心的一个个环状矩形。
var i,j:longint;
begin
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if (abs(i-4)>abs(j-4)) then write(4-abs(i-4))
else write(4-abs(j-4));
if (j<7) then write(' ')
else writeln;
end;
end;
end.
1.var n:real;m:integer;
begin
read(n);
if trunc(n)=n then writeln(0);
else
begin
m:=0;
repeat
inc(m);
n:=n*10;
until trunc(n)=n;
writeln(m);
end;
end.
2.
var m,n,five,i,s:integer;
{n是输入的数，m计算出n约是5的几次方，i计数，five是计算5的i次方}
begin
read(n);m:=trunc(ln(n+1)/ln(5));if n>4 then five:=1;
for i:=1 to m do begin
five:=five*5;
s:=s+n div five;
end;
writeln(s);
end.
while not eof do
begin
read(a);
if a<0 then inc(s,a);
if a=0 then break;
end;
writeln(s);
2. fillchar(p,sizeof(p),0);
while not eof do
begin
read(ch);
case ch of
'a': inc(p[1]);
'b': inc(p[2]);
'c': inc(p[3]);
'd': inc(p[4]);
end;
end;
max:=1;
for i:=2 to 4 do
if p[i]>p[max] then max:=i;
writeln(char(max+96),' ',p[max]);
3. e:=0;{e:double} k:=1;{k:longint}
for i:=1 to n do
begin
k:=k*i
e:=e+1/k;
end;
writeln(e);
4. 这个。。四重循环就ok 啦 留给你自己思考啦
刚入门吧？要先打好基础 到网上找些教程吧
这些题目都好有趣啊。
第一个，这个我不明白你的意思，是取得键盘输入以0结束？那么如果第一个数输入的就是10，岂不是就结束了？
第二个，有a,b,c,d四位候选人，n位候选人，到底是四位候选 人还是N位候选 人？
。。。
。。。
D是小偷
帕斯克(Pascal)-一门流行的编程语言
答：4.帕斯卡的操作步骤 下面介绍一下使用帕斯卡编写程序的基本步骤：（1）安装帕斯卡编译器 首先需要安装帕斯卡编译器，常用的编译器有FreePascal和TurboPascal。安装过程比较简单，按照提示进行即可。（2）创建新项目 打开编译器，选择“File”菜单中的“NewProject”，然后选择“ConsoleApplication”或“GUIApplicat...
请问pascal编译程序的功能是什么?
答：⑥不同语言合用:其功能有助于用户利用多种程序设计语言编写应用程序或套用已有的不同语言书写的程序模块。最为常见的是高级语言和汇编语言的合用。这不但可以弥补高级语言难于表达某些非数值加工操作或直接控制、访问外围设备和硬件寄存器之不足,而且还有利于用汇编语言编写核心部分程序,以提高运行效率。⑦人-机联系:...
怎么用Pascal编一个计算器?
答：注：给表达式设置#，标志扫描的开始和结束。提示算法：设两个栈，一个是操作数栈，用来存放操作数，如3、4、8等，另一个是运算符栈，用来存放运算符。首先将标志“#”进运算符栈的栈底。然后依次扫描，按照栈的后进先出原则进行：（1）遇到操作数，进操作数栈；（2）遇到运算符时，则需将此运算...
用pascal语言编一程序,输入一串字符,字符个数不超过100,且以.结束,判...
答：var c:char;s:string;i:longint;begin read(c);//读入第一位 s:='';while c<>'.' do begin s:=s+c; // 加入字符串s中 read(c); //继续读入,不然可能死循环 end;for i:=1 to length(s) do if s[i]<>s[length(s)-i+1] then //第i位和对应位比较 begin writeln('...
如何用Pascal语言进行声音编程
答：Turbo pascal 声音编程 一、使用Pascal进行声音操作前的准备 首先需要说明的是我们所说的Pascal声音操作，并不是指实现Pascal对于声卡进行操作，而是利用Pascal对计算机的PC喇叭操作，使它发出声音。在Turbo Pascal中有一个叫做CRT单元的东西，CRT单元实现了一系列强大的可以充分地控制你计算机的功能CRT单元提供...
pascal程序怎么写?
答：因此，执行部分是一个PASCAL程序的核心部分。 执行部分以"begin"开始，以"end"结束，其间有若干个语句，语句之间以分号隔开。执行部分之后有一个句点，表示整个程序结束。 ⒋PASCAL程序的书写方法比较灵活。当然，书写不应以节省篇幅为目的，而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中...
pascal语言 编写程序求1*2*3*...*n>1000的第一个n值 用while循环和repeat...
答：1、while循环语句的 var ans,t:integer;begin ans:=0;t:=0;while ans<=1000 do begin t:=t+1;ans:=ans*t;end;writeln(t);end.1、repeat循环语句的 var ans,t:integer;begin ans:=1;t:=1;repeat t:=t+1;ans:=ans*t;until ans>1000;writeln(t);end....
帮我完成用pascal编一个判断数字的奇、偶程序(思路用我的)
答：法1：直接用odd函数 程序如下 var x:integer;f1:boolean;begin f1:=odd(x);if f1 then writeln('x是奇数。')else writeln('x是偶数。');end.法2：用x mod 10 直接提取个位数即可 程序如下 var x:integer;begin x:=x mod 10;case x of 1,3,5,7,9:writeln('x是奇数。');2,4,6...
用Pascal 编写一个程序将十进制整数n转换为二进制数。
答：就是简单的执行十进制转换为二进制的运算法则，每次对于n除以2取余数，接着逆序输出就是你所要的二进制数了，不知道你的n多大，为了不超界，我附上一个高精度的，下面的是程序：var n:array[0..50]of integer;bin:array[0..50]of integer;ch:char;i,s:integer;{存储时候暂时设定为最大为50...
用Pascal 编写一个程序输出连续的26个字母(A～Z)。
答：begin for ch:='A' to 'Z' do write(ch);writeln;end.--- 当然，有一个很直接的方法，就是直接打印一行“ABCDEFGHIJKLMNOPQRSTUVWXYZ”，不过既然通过编程实现，就要用点省力的方法。在这里使用For是想说明，在For循环中，不单只有Integer型的变量可以用来作循环变量，任何有序类型都可以用来做循环...
