noip2007初赛-求字符串的逆序

最新推荐文章于 2025-05-05 11:39:41 发布

编程老头

最新推荐文章于 2025-05-05 11:39:41 发布

阅读量655

点赞数

CC 4.0 BY-SA版权

分类专栏：竞赛真题全国信息学奥林匹克竞赛

本文链接：https://blog.youkuaiyun.com/sjtu081200/article/details/47907235

全国信息学奥林匹克竞赛同时被 2 个专栏收录

26 篇文章

订阅专栏

竞赛真题

19 篇文章

订阅专栏

本文介绍了一个简单的程序，该程序能够接收多行字符串输入，并将每行字符串逆序输出。通过使用Pascal语言实现，程序演示了如何通过交换字符来反转字符串。此外，还提供了一个循环结构用于连续读取并处理多行输入。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

noip2007C_4_1（求字符串的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入-1 终止程序。


type
str1=string[100];

var
line:str1;
kz:integer;

procedure reverse(var s:str1);
var
i,j:integer;
t:char;
begin
	i:=1;
	j:=length(s);
	while(i<j) do
	begin
		t:=s[i];
		s[i]:=s[j];
		s[j]:=t;
		inc(i);
		dec(j);
	end;
end;

begin
	writeln('continue? -1 for end');
	readln(kz);
	while kz<>-1 do
	begin
		readln(line);
		reverse(line);
		writeln(line);
		writeln('continue? -1 for end');
		readln(kz);
	end;
end.