Ada中使用任务（Task）实现并行处理的示例

Ada是一种面向并发性的编程语言，通过任务（Task）实现并行处理。以下示例演示了如何在Ada中创建和使用任务以实现简单的并发执行。

-- 定义一个简单的任务
task type Simple_Task;

task body Simple_Task is
begin
   -- 任务的具体实现
   Put_Line("任务执行中");
end Simple_Task;

procedure Main is
   -- 声明任务实例
   My_Task : Simple_Task;
begin
   -- 创建并启动任务
   My_Task := Simple_Task'Unrestricted_Access;
   My_Task.Start;

   -- 主程序继续执行
   Put_Line("主程序执行中");

   -- 等待任务完成
   My_Task.Join;
end Main;

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com