daily pastebin goal
41%
SHARE
TWEET

Dugga 2 Uppgift 2

CarlBjorklund Oct 6th, 2017 (edited) 29 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. with Ada.Text_IO; use Ada.Text_IO;
  2. with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
  3.  
  4. --Användaren ska kunna mata in en sträng 'a' och 'b' av längden N.
  5. --programmet ska svara hur lång den längsta sammanhängande strängen 'a' och 'b' är
  6. --exempel: N = 10
  7. --Användaren matar in: aaaaabbaba
  8. --Längsta sekvensen a: 5
  9. --Längsta sekvensen b: 2
  10.  
  11.  
  12. procedure Abba is
  13.    
  14.    N: Integer;
  15.    C: Character;
  16.    AntalA: Integer;
  17.    AntalB: Integer;
  18.    MinneA: Integer;
  19.    MinneB: Integer;
  20. begin
  21.    AntalA:=0;
  22.    AntalB:=0;
  23.    MinneA:=0;
  24.    MinneB:=0;
  25.    Put("Mata in N: ");
  26.    Get(N);
  27.    Put("Mata in strängen: ");
  28.    for I in 1..N loop
  29.       Get(C);
  30.     if C='a' then
  31.        AntalA:=AntalA + 1;
  32.           AntalB:=0;
  33.        if MinneA < AntalA then
  34.           MinneA:=AntalA;
  35.      
  36.           end if;
  37.          
  38.     elsif C='b' then
  39.        AntalB:=AntalB + 1;
  40.           AntalA:=0;
  41.        if MinneB < AntalB then
  42.           MinneB:=AntalB;
  43.        
  44.        end if;
  45.            
  46.     end if;
  47.        
  48.     end loop;  
  49.     Put("Längsta sekvensen a var: ");
  50.     Put(MinneA,0);
  51.     New_Line;
  52.     Put("Längsta sekvensen b var: ");
  53.     Put(MinneB,0);
  54.    
  55. end Abba;
RAW Paste Data
Top