program kropka; var litera: char;--------{tu trzymamy biezaca litere} -----licznik: integer;---{tu liczymy wystapienia a} -----f: text;-------------{zmienna plikowa, dzieki niej czytamy ----------------------------nasz plik} begin ----assign (f, 'dane.txt');----{przygotowujemy od odczytu plik ---------------------------------dane.txt wiążemy go ze zmienna ---------------------------------plikowa f} ----reset (f);-------------{otwieramy plik} ----licznik := 0;----------{ustalamy liczbę litera na 0 na początku ----------------------------programu} -----while litera <> '.' do {ta pętla przegląda plik dopóki nie --------------------------------znajdzie .} -----begin ------------read (f, litera); {czytamy literę z pliku} ------------if litera = 'a' then licznik := licznik + 1; {jeżeli litera to ---------------------------------------------- a zwiększamy licznik} -----end; -----writeln ('W danym pliku jest ', licznik, ' liter "a".'); ----------------------------------------{wypisujemy na ekran liczbę a} -----readln; {czeka na naciśniecie ENTER, dzięki temu okno od --------------razu się od razu nie zamyka i można zobaczyć wynik --------------działania algorytmu} end. Znaki - zastępują tabulatory, które zadane.pl usuwa w odpowiedziach, w nawiasach klamrowych są komentarze. Najlepiej napisz na pw swój email to Ci to prześlę na pocztę, tu wygląda strasznie a jako załącznika nie akceptuje. w razie problemów pisz na pw
