pascal程序
输出a与b的值
输出字符串 a+b
输出字符串 a'+'b
有错,编译不通过
program t1;
var
s:qword;
num,n,ans:longint;
begin
assign(input,'t1.in');
reset(input);
assign(output,'t1.out');
rewrite(output);
readln(n);
num:=1;s:=0;
while s<n do
begin
inc(s,num);
ans:=num;
inc(num,2);
end;
write(ans);
close(input);
close(output);
end.
program t2;
var
a:array [-1..1000] of longint;
i,j,n,m:longint;
begin
assign(input,'t2.in');
reset(input);
assign(output,'t2.out');
rewrite(output);
read(n,m);
for i:=1 to n do a[i]:=i;i:=0;a[0]:=n;
while n0 do
begin
write(a[(i+m) mod n],' ');
i:=(i+m) mod n-1;dec(n);
for j:=i+1 to n do a[j]:=a[j+1];
end;
close(input);
close(output);
end.
program t3;
var
a,b:array [1..226] of integer;
st:string;
i,code,k,n:longint;
procedure sort(left,right:longint);
var
l,r,mid,x:longint;
begin
l:=left;r:=right;mid:=b[(l+r) div 2];
repeat
while b[l]<mid do inc(l);
while b[r]>mid do dec(r);
if l<=r then
begin
x:=b[l];b[l]:=b[r];b[r]:=x;
inc(l);dec(r);
end;
until l>r;
if l<right then sort(l,right);
if r>left then sort(left,r);
end;
function max(x:longint):integer;
var
i,k:longint;
begin
max:=0;
for i:=1 to x do
if (a[x+1]>a[i])and(a[i]>max) then begin max:=a[i];k:=i; end;
if max=0 then max:=a[x+1]
else b[k]:=a[x+1];
end;
begin
assign(input,'t3.in');
reset(input);
assign(output,'t3.out');
rewrite(output);
readln(st);
n:=length(st);
for i:=1 to n do val(st[n-i+1],a[i],code);
for i:=1 to n do
begin
k:=i-1;
b[i]:=max(k);
if b[i]a[i] then break;
end;
if (k+1n)and(a[n]b[n]) then sort(1,k);
inc(k);
for i:=n downto 1 do
if i>k then write(a[i]) else write(b[i]);
close(input);
close(output);
end.
题目输出的样例是对的
如有错误或者不懂的地方,请指教
望采纳
很费脑子的········
PASCAL语言也是一种算法语言,它是瑞士苏黎世联邦工业大学的N.沃思(Niklaus Wirth)教授于1968年设计完成的,1971年正式发表。1975年,对PASCAL语言进行了修改,作为"标准PASCAL语言"。
PASCAL语言是在ALGOL 60的基础上发展而成的。它是一种结构化的程序设计语言,可以用来编写应用程序。它又是一种系统程序设计语言,可以用来编写顺序型的系统软件(如编译程序)。它的功能强、编译程序简单,是70年代影响最大一种算法语言。
二、Pascal 语言的特点
从使用者的角度来看,PASCAL语言有以下几个主要的特点:
⒈它是结构化的语言。PASCAL语言提供了直接实现三种基本结构的语句以及定义"过程"和"函数"(子程序)的功能。可以方便地书写出结构化程序。在编写程序时可以完全不使用GOTO语句和标号。这就易于保证程序的正确性和易读性。PASCAL语言强调的是可靠性、易于验证性、概念的清晰性和实现的简化。在结构化这一点上,比其它(如BASIC,FORTRAN77)更好一些。
⒉有丰富的数据类型。PASCAL提供了整数、实型、字符型、布尔型、枚举型、子界型以及由以上类型数据构成的数组类型、集合类型、记录类型和文件类型。此外,还提供了其它许多语言中所没有的指针类型。沃思有一个著名的公式:"算法+数据结构=程序"。指出了在程序设计中研究数据的重要性。丰富的数据结构和上述的结构化性质,使得PASCAL可以被方便地用来描述复杂的算法,得到质量较高的程序。
⒊能适用于数值运算和非数值运算领域。有些语言(如FORTRAN 66,ALGOL 60)只适用于数值计算,有些语言(如COBOL )则适用于商业数据处理和管理领域。PASCAL的功能较强,能广泛应用于各种领域。PASCAL语言还可以用于辅助设计,实现计算机绘图功能。
⒋PASCAL程序的书写格式比较自由。不象FORTRAN和COBOL那样对程序的书写格式有严格的规定。PASCAL允许一行写多个语句,一个语句可以分写在多行上,这样就可以使PASCAL程序写得象诗歌格式一样优美,便于阅读。
由于以上特点,许多学校选PASCAL作为程序设计课程中的一种主要的语言。它能给学生严格而良好的程序设计的基本训练。培养学生结构化程序设计的风格。但它也有一些不足之处,如它的文件处理功能较差等。
三、Pascal语言程序的基本结构
任何程序设计语言都有着一组自己的记号和规则。PASCAL语言同样必须采用其本身所规定的记号和规则来编写程序。尽管不同版本的PASCAL语言所采用的记号的数量、形式不尽相同,但其基本成分一般都符合标准PASCAL的规定,只是某些扩展功能各不相同罢了。下面我们首先来了解Pascal语言的程序基本结构。
为了明显起见先举一个最简单的PASCAL程序例子:
【例1】
从这个简单的程序可以看到:
⒈一个PASCAL程序分为两个部分:程序首部和程序体(或称分程序)。
⒉程序首部是程序的开头部分,它包括:
⑴程序标志。用"program"来标识"这是一个PASCAL 程序"。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。在turbo pascal语言中,首部也可省略。
⑵程序名称。由程序设计者自己定义,如例中的exam1。
在写完程序首部之后,应有一个分号。
⒊程序体是程序的主体,在有的书本里也称"分程序"。程序体包括说明部分(也可省略)和执行部分两个部分。
⑴说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明",用来定义变量的名称、类型。
PASCAL规定,凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义(或称"说明")。也就是说,不允许使用未说明先使用。
⑵执行部分的作用是通知计算机执行指定的操作。如果一个程序中不写执行部分,在程序运行时计算机什么工作也不做。因此,执行部分是一个PASCAL程序的核心部分。
执行部分以"begin"开始,以"end"结束,其间有若干个语句,语句之间以分号隔开。
执行部分之后有一个句点,表示整个程序结束。
⒋PASCAL程序的书写方法比较灵活。当然,书写不应以节省篇幅为目的,而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中例题程序格式。
⒌在程序中,一对大括号间的文字称为注释。注释的内容由人们根据需要书写,可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。
四、Turbo Pascal语言系统的使用
目前,常用的Pascal语言系统有Turbo Pascal7.0与Borland Pascal 7.0,下面我们就来学习Turbo Pascal 7.0系统的使用。
1. 系统的启动
在运行系统目录下的启动程序TURBO.EXE,即可启动系统。屏幕上出现如图1所示的集成环境。
2. Turbo Pascal系统集成环境简介
最顶上一行为主菜单。中间蓝色框内为编辑窗口,在它个编辑窗口内可以进行程序的编辑。最底下一行为提示行,显示出系统中常用命令的快捷键,如将当前编辑窗口中文件存盘的命令快捷键为F2,获得系统帮助的快捷键为F1,等等。
3. 新建程序窗口
按F10进行主菜单,选择FILE菜单,执行其中New命令。就可建立一个新的程序窗口(默认文件名为Noname00.pas或Noname01.pas等)。
4. 程序的输入、编辑与运行
在当前程序窗口中,一行一行的输入程序。事实上,程序窗口是一个全屏幕编辑器。所以对程序的编辑与其它编辑器的编辑方法类似,这里不再重复。
当程序输入完毕之后,一般要先按Alt+F9(或执行compile菜单中compile命令)对程序进行编译。如果程序有语法错误,则会在程序窗口的第一行处显示第一个红色错误信息。若无语法错误,则窗口正中央会出现一个对话框,提示编译成功。接下来,我们可以运行程序了。
程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令,或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境,因此要查看运行结果,要按ALT+F5将屏幕切换到用户屏幕。
5.程序的保存与打开
当我们想把程序窗口中的程序存入磁盘时,可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。
当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时,可按F3(或执行File菜单中的Open命令)来装入程序,此时系统也会弹出一个对话框要求输入要打开的文件名,或直接在文件对话框列表中选择所要的文件,然后回到打开文件。
五、第一个程序
下面程序在运行时,会提示输入一个圆的半径,然后会在屏幕上画一个圆。按回车后程序结束回到程序窗口。
Program ex1;
Uses graph;
Var Gm,Gd,R :integer;
Begin
Gd:=0;
Write('Please enter the radius:');readln(R);
Initgraph(Gm,Gd,' ');
Setcolor(Green);
Circle(320,240,R);
Readln;
Closegraph;
End.
注意,如果上面程序运行时会出现初始化图形错误,请将系统目录下BGI子目录EGAVGA.BGI和UNITS子目录中的Graph.tpu拷贝到系统目录下BIN目录即可。
请输入上面的程序,并练习将其存盘、打开与运行上面程序。
用c语言编写ASCII码的程序有什么思路?
思路:先定义字符ch,输入字符,在把字符强制转换成整数就是该字符的ASCII码值,即int(ch)。参考代码: #include<iostream>using namespace std;int main(){char ch;cin>>ch;cout<<int(ch)<<endl;return 0;}\/*运行结果:A65*\/
用什么程序实现ASCII码到大小写字母转换?
1、首先,定义两个字符变量z和Z,用以保存转换的字符。2、接着,定义一个整型变量n,保存用来转换的ASCII码。3、把n的值赋给变量z,实现字符的转换。4、输出窗口中,输出将ASCII码转换为的字符。5、给变量n重新赋值,其值为大写字母的ASCII码。6、将ASCII码转换为对应的大写英文字母,并在输出窗口...
汇编语言asc是什么意思
ASC是“ASCII”(American Standard Code for Information Interchange)的缩写,是一种将字符编码为数字的标准方法。在汇编语言中,ASC意味着将字符转换为它们的ASCII数字值。汇编程序通常使用ASC指令将字符送到计算机的内存中,以便于更好地进行处理和存储。ASC指令通常用于在汇编程序中定义字符常量和字符串。
请问在一个程序中,英文字母的ASCII码是多少
printf("与这个字母对应的ASCII码是:%d\\n",w);} 英文字母是字符型,ASCII码十进制的,因此只需要将字符型转换为十进制,在输出函数的时候强制转换类型。
用c语言编写程序显示ASCII码。
include <stdio.h> int main(){ char a;a=getchar();printf("所输入的ASCII码为:%d",a);return 0;}
编写一个程序,要求输入一个ASCII码值,然后输出相应的字符.
include <stdio.h> include <stdlib.h> int main(){ int a;while(scanf("%d\\n",&a)!=EOF)printf("%c\\n",a);system("pause");return 0;}
汇编,展现ascii码程序。
; 下面的程序是16位汇编,以十进制数89158为例,编译通过,运行正确。; Program Name: Dec_ASCII.asm Dec_ASCII SEGMENT ASSUME CS:Dec_ASCII,DS:Dec_ASCII ORG 100H Start: jmp Begin ASCII DB 5 dup(' ') ;保存十进制无符号数的ASCII ASCII_End DB '$' ;字符串结束标...
C语言中ASCII码值是什么意思
详情请查看视频回答
在程序中怎么用ASCII码
在程序中使用ASCII码要进行强制类型转换,将字符型转换为整型的具体为(int)b,b为要转换的字符,通过ASCII码可以将大小写字符转换,对字符进行特定的操作。可以根据具体程序而定。
.设计一个显示ASCII码的程序 说明:从键盘上按键,每按一个键,显示一个...
MSG1 DB 13, 10, 'Please input a char (Enter will finish program) : ', '$'DATA ENDS ;--- CODE SEGMENT ASSUME CS:CODE, DS:DATA START:MOV AX, DATA MOV DS, AX ;--- LOP:MOV DX, OFFSET MSG1 MOV AH, 9 ;9号功能调用,显示提示.INT 21H ;显示....
莫珠复方: Pascal是一种计算机通用的高级程序设计语言.它由瑞士Niklaus Wirth教授于六十年代末设计并创立. 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一,其主要特点有:严格的结构化形式;丰富完备的数据类型;运行...
平阴县13553923814: Pascal语言程序设计是什么啊! - ?
莫珠复方: 的确,这种语言非常棒,易学,而且功能非常强大,pascal语言的开发平台(IDE)代表是borland公司的delphi,从delphi 1.0开始,到目前最新的delphi 2006,或能越来越强,有这样一句话:真正的程序员用C,聪明的程序员用delphi.你是哪一类呢!?
平阴县13553923814: pascal程序怎么写??
莫珠复方: pascal语言是系统的,你要从头学习了才会啊 ⒈一个PASCAL程序分为两个部分:程序首部和程序体(或称分程序). ⒉程序首部是程序的开头部分,它包括: ⑴程序标志.用“program”来标识“这是一个PASCAL 程序”.PASCAL规定任...
平阴县13553923814: pascal程序 - ?
莫珠复方: 一、Pascal 语言概述 PASCAL语言也是一种算法语言,它是瑞士苏黎世联邦工业大学的N.沃思(Niklaus Wirth)教授于1968年设计完成的,1971年正式发表.1975年,对PASCAL语言进行了修改,作为"标准PASCAL语言". PASCAL语言...
平阴县13553923814: pascal 数组程序?
莫珠复方: var a,b:array[1..10,1..10]of integer; i,j,m:integer; begin readln(m); for i:=1 to m do for j:=1 to m do read(a[i,j]); readln; for i:=1 to m do for j:=1 to m do b[j,i]:=a[i,j]; for i:=1 to m do begin for j:=1 to m do write(b[i,j]:4); writeln; end; readln; end. 次数不会就是m(m-1)/2吧...不是这么简单吧..
平阴县13553923814: pascal语言 编写一个程序 - ?
莫珠复方: 1.思路:用一个字符串数组储存输入的数据,并分别输出.程序:Var a:array[1..3]of string; i:integer; Begin For i:=1 to 3 do Readln(a[i]); For i:=1 to 3 do Write(a[i][i]); End.2.思路:读入数据,存入字符串变量a中,校验a的值是否符合要求,然后再...
平阴县13553923814: Pascal语言是什么 - ?
莫珠复方: Pascal是一种计算机通用的高级程序设计语言.Pascal的取名是为了纪念十七世纪法国著名哲学家和数学家Blaise Pascal.它由瑞士Niklaus Wirth教授于六十年代末设计并创立.Pascal语言语法严谨,层次分明,程序易写,具有很强的可读性,是第一个结构化的编程语言.
平阴县13553923814: Pascal字符串程序?
莫珠复方: Var p,x:integer;s,s1:string; Beginreadln(s);readln(s1);while pos(s1,s)>0 do Begindelete(s,pos(s1,s),length(s1));inc(x);End;writeln(s,' x:=',x); End.
平阴县13553923814: 急!!!求Pascal语言的常用基础语句.编程?
莫珠复方: if语句:if 条件 then 语句. for语句:for 变量:=起始值 to 终值 do 语句. while语句:while 条件 do 语句. repeat语句:repeat语句; end; 输入语句:read,readln 输出语句:write,writeln
平阴县13553923814: pascal 运行程序 - ?
莫珠复方: 这个程序需要调用dos库.uses dos; begin exec('c:\1.exe',''); end.过程exec(str1,str2)用来运行一个程序.其中参数str1为字符串类型,表示要运行的程序.参数str2为字符串类型,表示运行参数.