Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- with Ada.Text_IO; use Ada.Text_IO;
- with Ada.Float_Text_IO; use Ada.Float_Text_IO;
- procedure Lucka31 is
- S : String(1..200);
- StringCounter : Integer;
- DelayTime : Duration:= 1.0;
- begin
- Put("Skriv in en rad text: ");
- for J in 1..S'Last loop
- Get(S(J));
- if End_Of_Line then
- StringCounter:= J;
- exit;
- end if;
- end loop;
- Put("Du skrev in: ");
- for K in 1..StringCounter loop
- Put(S(K));
- if K /= Stringcounter-1 then
- delay Delaytime;
- Delaytime:= Delaytime - 0.08;
- else
- delay 0.05;
- end if;
- end loop;
- end Lucka31;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement