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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

54
После выхода из цикла проверки символов i-го слова происходит увеличе-
ние суммы цифр текущего слова.
sum:=sum+tmp; {накапливается сумма цифр слов}
end;
Когда все слова массива будут обработаны, остается вывести результаты
на экран и завершить программу.
writeln('Сумма цифр = ',sum);
readln;
end.
Итак, соединив фрагменты в единое целое, получим текст программы.
{Дан массив слов произвольной длины, но не превышающих 80 симво-
лов.
Символами могут быть буквы латинского алфавита и цифры.
Определить сумму цифр во введенном с клавиатуры тексте.}
program lab_7;
uses crt;
type T_str=array [1..10] of string[80];
T_set=set of char;
var s:T_str; {массив слов}
alf:T_set; {множество символов}
n, {количество слов}
i,j:byte; {индексы}
cod, {код ошибки преобразования строки в число}
k, {число, полученное преобразованием строки}
tmp, {сумма цифр слова}
sum:integer; {сумма цифр всех слов}
begin
clrscr;
writeln;
writeln(' Автор - Иванов И.П., студент гр. ИСЭд-11');
writeln(' Вариант № 100');
writeln('Дан массив слов произвольной длины, но не превышаю-
щих 80 символов. ');
writeln('Символами могут быть буквы латинского алфавита и
цифры.');
writeln('Определить сумму цифр во введенном с клавиатуры тек-
сте.');
writeln;
alf:=['A'..'Z','0'..'9']; {задается множество допустимых
значений символов}
repeat
write ('Введите количество слов (не более 10) ');
readln(n); {ввод числа слов}

Страницы