Примеры программ на Borland Pascal, ABC Pascal и др.
Компьютерные Технологии в Обучении
  256ПрограммированиеPascalВычисление суммы цифр
Информационный блок
Рекламный блок

Программа на Паскале "Вычисление суммы цифр"

Задачи по информатике и основам программирования на языке Паскаль. В двух решениях используется оператор целочисленного деления, в двух других - используется преобразование числа к строке и цикл for.

Программа "Сумма цифр трёхзначного числа"

Задание:
Введите трёхзначное число. Найдите сумму цифр. Выведите результат на экран.
Program SummaTsifr1;
Var X, Y1, Y2, Y3, Summa : Integer;
begin
writeln('Программа вычисления суммы цифр');
write('Введите трёхзначное число X ');
readln(X);
Y1 := X div 100;
Y2 := (X - Y1 * 100) div 10;
Y3 := X - Y1 * 100 - Y2 * 10;
Summa := Y1 + Y2 + Y3;
writeln('Сумма цифр ', Y1:3, Y2:3, Y3:3, ' = ', Summa: 3)
end.
Замечание:
В процедуре вывода writeln используется форматированный вывод переменной. Например, Y1:3 обозначает, что для вывода значения переменной Y1 будут использоваться три позиции, т.е. в случае однозначного числа, перед ним будет добавлено два пробела, в случае двухзначного числа - добавлен один пробел. При этом если число будет содержать 4 или больше цифр, то оно будет выведено полностью.

Программа "Сумма цифр пятизначного числа"

Задание:
Введите пятизначное число. Найдите сумму цифр. Выведите результат на экран.
Program SummaTsifr2;
Var X, Y1, Y2, Y3, Y4, Y5, Summa : Integer;
begin
writeln('Программа вычисления суммы цифр ');
write('Введите пятизначное число X ');
readln(X);
Y1 := X div 10000;
Y2 := (X - Y1 * 10000) div 1000;
Y3 := (X - Y1 * 10000 - Y2 * 1000) div 100;
Y4 := (X - Y1 * 10000 - Y2 * 1000 - Y3 * 100) div 10;
Y5 := X - Y1 * 10000 - Y2 * 1000 - Y3 * 100 - Y4 * 10;
Summa := Y1 + Y2 + Y3 + Y4 + Y5;
writeln('Сумма цифр ', Summa)
end.
Замечание:
В процедуре вывода writeln используется форматированный вывод переменной. Например, Y1:3 обозначает, что для вывода значения переменной Y1 будут использоваться три позиции, т.е. в случае однозначного числа, перед ним будет добавлено два пробела, в случае двухзначного числа - добавлен один пробел. При этом если число будет содержать 4 или больше цифр, то оно будет выведено полностью.

Тема "Использование цикла for". Программа "Сумма цифр числа"

Задание:
Введите число. Найдите сумму цифр. Для решения задачи используйте цикл for и функции работы со строками. Выведите результат на экран.
Program SumNumbers1;
Var
Y : Array[1..20] of Byte; { Массив для сохранения цифр исходного числа }
Xs : String;
Xr, Summa : Real;
J, N, Err : Integer;
begin
writeln('Программа вычисления суммы цифр ');
write('Введите число X (не более 20 цифр)');
readln(Xr);
Str(Xr, Xs); { Преобразовать число в строку }
N := Length(Xs); { Вычислить длину строки }
for J := 1 to N do Val(Xs[J], Y[J], Err); { Преобразовать каждый символ строки к числу и записать в массив }
Summa := 0;
for J := 1 to N do Summa := Summa + Y[J];
writeln('Сумма цифр ', Summa)
end.
Замечание:
procedure Str(i: integer; var s: string); Преобразует целое значение i к строковому представлению и записывает результат в s
procedure Val(s: string; var value: byte; var err: integer); Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
function Length(s: string): integer; Возвращает длину строки

Тема "Использование цикла for". Вариант программы "Сумма цифр числа" без использования массива

Задание:
Введите число. Найдите сумму цифр. Для решения задачи используйте цикл for и функции работы со строками. Выведите результат на экран.
Program SumNumbers2;
Var
Y : Byte;
Xs : String;
Xr, Summa : Real;
J, N, Err : Integer;
begin
writeln('Программа вычисления суммы цифр ');
write('Введите число X ');
readln(Xr);
Str(Xr, Xs); { Преобразовать число в строку }
N := Length(Xs); { Вычислить длину строки }
Summa := 0;
for J := 1 to N do begin
Val(Xs[J], Y, Err); { Преобразовать каждый символ строки к числу }
Summa := Summa + Y;
end;
writeln('Сумма цифр ', Summa)
end.
Рекламный блок