my program
From: Kasia Krysiak (kasiool_at_o2.pl)
Date: 12/29/03
- Next message: Robert I. Eachus: "Re: Certified C compilers for safety-critical embedded systems"
- Previous message: Chad R. Meiners: "Re: Other Ada Standards (was Re: SIGada Conference)"
- Next in thread: Martin Krischik: "Re: my program"
- Reply: Martin Krischik: "Re: my program"
- Reply: Martin Dowie: "Re: my program"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Mon, 29 Dec 2003 16:07:17 +0100
I'm start to lern ada , and i have some problems...
this is my new program, and i have a question how to inicialize
Task1:Male(Id=>1); Task2:Male(Id=>2); task3:male(id=>3); (last 3 lines of
code in loop? becouse i should to have the number od male dymaic. I tryided
to do this in arry but i couldnt inlicjalize this id's sorry 4 my english
it isnt good I KNOW!!! - but I'm trying :)
task type Male(Id: integer);
task body Male is
procedure zadzwon is
Zmienna_Plikowa :File_Type;
begin
create(zmienna_plikowa,out_file, "id.txt");
end zadzwon;
procedure Wlasne_Sprawy is
begin
for counter in 1..10 loop
new_line;
Put(Item => "dupa ");
end loop;
end wlasne_sprawy;
begin
zadzwon;
Wlasne_Sprawy;
end Male;
Task1:Male(Id=>1);
Task2:Male(Id=>2);
task3:male(id=>3);
- Next message: Robert I. Eachus: "Re: Certified C compilers for safety-critical embedded systems"
- Previous message: Chad R. Meiners: "Re: Other Ada Standards (was Re: SIGada Conference)"
- Next in thread: Martin Krischik: "Re: my program"
- Reply: Martin Krischik: "Re: my program"
- Reply: Martin Dowie: "Re: my program"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
