Составить программу на языке Turbo Pascal для параллельной сортировки чисел

Оглавление

Условие задачи

Описание программы

Схема алгоритма

Текст Программы

Примеры выполнения

Список литературы

Описание программы

Тело программы начинается с цикла for, создающего верхнюю строчку, состоящую из символов:

{ for i:=1 to 35 do

begin

textcolor(1);

write(chr(5));

end; }

где 35- произвольное число, длина строки; τextcolor – процедура, задающая цвет нужному фрагменту программы. Далее оформление создаётся аналогичным образом.

Для начала работы программы вводим фамилию. Она считывается в переменную fam типа string. Затем требуется создать по количеству символов из этой введенной фамилии одномерный массив типа integer. Для этого сначала требуется посчитать количество символом - это легко можно сделать с помощью строковой функции Length: e:=Length(fam), где e-переменная типа integer.

Далее требуется проверить введённую фамилию, на наличие цифр. Для этого используется функция Val: val(fam[i],n,kod). Эту функцию выполняем в цикле for, так как нужно проверить каждый символ в фамилии. Потом делаем проверку переменной kod в условном операторе if: