Самостоятельная работа на pascal – разбор строк

Самоcтоятельная работа по программированию написана на delphi

Задание
Создать форму для ввода с клавиатуры целого числа. Определить для него:

• количество цифр в числе
• сумму цифр числа
• первую цифру числа
• сумму m последних цифр числа

Задание элементарное. Даже странно что его задали студентам 2-го курса. Тут и первый то с легкостью справится!

Начнем разбор полетов.
Количество цифр в числе узнать проще простого можно функцией  length(string)
Пример

number:=Edit1.Text;
dlina:=length(number);

Для получения суммы просто берем  и проходим по циклу от 1 до длины нашего числа и заносим ответ в label

For i:=1 to dlina do

begin
b:=integer(number[i])-48;
summ:=summ+b;
end;
Label1.Caption:=inttostr(summ)+' - сумма всех цифр';

С первой цифрой числа все также просто как и с предыдущими действиями, так как строка – это по сути массив в котором номер елемента соответствует номеру  символа. И сразу выводим ответ.

number:=Edit1.Text;
Label1.Caption:=(number[1])+'- первая цифра ';

С суммой m последних чисел уже сложнее. В общем тоже чето тут делается, я уже не помню, может где и взял я ее (Copyright  Lyapin). Вся суть содержится в коде

begin
summ:=0;
b:=0;
number:=Edit1.Text;
dlina:=length(number);
For i:=0 to strtoint(Edit2.Text)-1 do
begin
b:=integer(number[dlina-i])-48;
summ:=summ+b;
end;
Label1.Caption:=inttostr(summ)+' - сумма m цифр';
end;

Ну вот и все! До следующей лабы.