Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 52 стр.

UptoLike

Составители: 

51
В разделе описания переменных объявляются переменные для хранения
массива слов, множества символов, которому в дальнейшем присвоим значение
допустимых символов, индексов, длины слова и количества слов (описываются
целочисленным типом
byte). Кроме того, в программе понадобятся целочис-
ленные переменные, которые будут использоваться для преобразования симво-
лов цифр в число и вычисления необходимых сумм.
var s:T_str; {массив слов}
alf:T_set; {множество символов}
n, {количество слов}
i,j:byte; {индексы}
cod, {код ошибки преобразования строки в число}
k, {число, полученное преобразованием строки}
нет
i от 1 до n шаг 1
tmp=0
Ввод i-го слова s[i]
s[i,j]- цифра?
да
sum=sum+tmp
коне
ц
Рис. 7.1. Блок-схема алгоритма определения суммы цифр, содержащихся
в массиве слов
Цикл перебора символов i-го
слова
Ввод количества
слов n
Цикл перебора слов
Формирование суммы цифр
всех слов
начало
Информационный
блок
j от длины i-го
слова до 1
шаг -1
Проверка символов i-го слова
для определения цифр
Вывод sum
Обнуление суммы цифр i-го
слова
Преобразование цифры
в число
k
tmp=tmp+k
Формирование суммы цифр i-го
слов
а