怎样用pascal输出一个“王”字?急!!!三天内!
来源:百度知道 编辑:UC知道 时间:2024/08/22 10:43:20
急!!!望三天内回答!重赏!中学奥林匹克电脑班题目!
PROGRAM wang;
var i:integer;
begin
writeln('*************************');
for i:=1 to 5 do begin
writeln(' *');end;
writeln(' *********************');
for i:=1 to 5 do begin
writeln(' *');end;
writeln('*************************');
end.
把以下代码用 文本文挡打开
program king;
begin
writeln('王');
end.
保存为.PAS 格式 然后打开
若出现乱码 :
1:打开运行文件(.exe)
2:右击标题拦--默认值
将“默认代码页”改为“简体中文”
var
c,d:integer;
begin
for c:=1 to 11 do write('*');
for d:=1 to 2 do begin
writeln;
writeln('*':6);
writeln('*':6);
for c:=1 to 11 do write('*');
end;
end.
建议用tp,50*80的
const
a:array [1..4,1..40,1..40] of byte=
(
{songti}
(
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) <