写控制台程序,可以在File| new 创建控制台程序。也可以在记事本里直接写,把下面的代码存为 XXX.dpr 文件就行了。program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Hello = '你好!我写三行,你输入一行咱们退出去';
var
str: string;
wait: char;
begin
// Insert user code here
Writeln(Hello);
Writeln(Hello);
Writeln(Hello);
Readln(str);
WriteLn('你输入了:'+ str);
read(wait);
end.
写控制台程序,可以在File| new 创建控制台程序。也可以在记事本里直接写,把下面的代码存为 XXX.dpr 文件就行了。program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Hello = '你好!我写三行,你输入一行咱们退出去';
var
str: string;
wait: char;
begin
// Insert user code here
Writeln(Hello);
Writeln(Hello);
Writeln(Hello);
Readln(str);
WriteLn('你输入了:'+ str);
read(wait);
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Hello = '你好!我写三行,你输入一行咱们退出去';
var
str: string;
wait: char;
begin
// Insert user code here
Writeln(Hello);
Writeln(Hello);
Writeln(Hello);
Readln(str);
WriteLn('你输入了:'+ str);
read(wait);
end.
写控制台程序,可以在File| new 创建控制台程序。也可以在记事本里直接写,把下面的代码存为 XXX.dpr 文件就行了。program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Hello = '你好!我写三行,你输入一行咱们退出去';
var
str: string;
wait: char;
begin
// Insert user code here
Writeln(Hello);
Writeln(Hello);
Writeln(Hello);
Readln(str);
WriteLn('你输入了:'+ str);
read(wait);
end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货