Посчитать общее количество латинских букв во всех строках - Pascal ABC
Формулировка задачи:
Создать линейный однонаправленный список строк. Посчитать общее
количество латинских букв во всех строках.
Решение задачи: «Посчитать общее количество латинских букв во всех строках»
textual
Листинг программы
type Link = ^Number; Number = record Cislo: string; NextRec: Link; end; var i, c: integer; a: string; First, tmp: Link; procedure Add(var spis1: Link; znach1: string ); var tmp: Link; begin if spis1 = nil then {Проверяем не пуст ли список, если пуст, то } begin New(spis1); tmp := spis1; end else {в случае если список не пуст} begin tmp := spis1; while tmp^.nextrec <> nil do tmp := tmp^.nextrec; {ставим tmp на последний элемент списка} New(tmp^.nextrec); tmp := tmp^.nextrec; {переносим tmp на новый элемент} end; tmp^.nextrec := nil; {зануляем указатель} tmp^.cislo := znach1; {заносим значение} end; procedure ShowList(first: link); begin Writeln('Список элементов: '); if first = nil then writeln('Список пуст...') else begin while first <> nil do begin write(first^.cislo, ' '); first := first^.nextrec; end; end; end; begin Writeln('Укажите длину списка: '); Readln(c); first := nil; Writeln('Введите строки:'); for i := 1 to c do begin readln(a); add(first, a); end; ShowList(first); c := 0; while first <> nil do begin for i := 1 to length(first^.cislo) do if first^.cislo[i] in ['A'..'Z', 'a'..'z'] then inc(c); first := first^.nextrec; end; writeln; writeln('Количество латинских букв во всех строках: ', c); end.
Объяснение кода листинга программы
- В первой части кода объявляются типы данных и переменные для работы со связанным списком.
- Затем определены две процедуры: Add для добавления элемента в список и ShowList для вывода элементов списка.
- Во второй части кода пользователю предлагается указать длину списка, после чего происходит инициализация указателя на первый элемент списка и запрашивается ввод строк.
- После ввода всех строк, список выводится на экран.
- Затем начинается цикл по всем элементам списка, в котором проверяется каждый символ строки на принадлежность к латинскому алфавиту.
- Если символ является латинской буквой, то к переменной c прибавляется единица.
- После завершения цикла, выводится общее количество латинских букв во всех строках списка.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д