043.Ada语言中的for循环语句

dos diosas

于 2020-05-03 14:07:42 发布

阅读量318

点赞数

CC 4.0 BY-SA版权

分类专栏： # Ada语言程序设计基础

本文链接：https://blog.youkuaiyun.com/dosdiosas_/article/details/105903006

Ada语言程序设计基础专栏收录该内容

105 篇文章

订阅专栏

本文展示了一个使用Ada语言编写的程序示例，该程序利用了Ada.Text_IO和Ada.Integer_Text_IO包来处理文本和整数的输入输出。通过一个名为Automatic的过程，程序演示了如何在循环中使用变量并进行简单的数学运算。

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

with Ada.Text_IO,Ada.Integer_Text_IO;
use Ada.Text_IO,Ada.Integer_Text_IO;

procedure Automatic is
   
   Dog,Cat:Integer;
   Pig,Cow:Float;
   
begin
   
   for Index in 1..10 loop
      Put("The value of index is:");
      Put(Index,3);
      
      declare
         START:constant Integer :=Index;
         STOP:constant Integer :=START+5;
         Count_Stuff:Integer;
      begin
         Count_Stuff:=START+STOP+Index+222;
         Put("---->");
         for Index in START..STOP loop
            Put(Index,5);
         end loop;
      end;
      
      New_Line;
   end loop;
   end Automatic;