Пример 2. Дано целое число. Определить сумму двух

Begin

Текст программы в консольном исполнении.

Получить число в записи без 0 и 1.

Пример 1.1 Дано натуральное число n. Удалить из записи числа все нули и единицы.

ТЕМА 1. Работа с числами разных форматов.

А) Обработка целых и вещественных чисел

Задачи этой темы позволяют рассмотреть способы обработки простых типов данных: целых или вещественных чисел. Во всех условиях предлагаемых задач вводятся только числа и обрабатываются числа. Никаких преобразований чисел в строки не производится. Всякое преобразование увеличивает время решения задач и уменьшает точность вычислений для вещественных чисел. Кроме того, арабская система счисления хорошо поддается алгоритмической обработке.

Алгоритм решения задачи приведен на рис. 7.

Рис. 7

program Del_0_1;

{$APPTYPE CONSOLE}

uses

SysUtils, Windows; //Для работы со строками пришлось добавить модуль среды Windows,

// содержащий методы обработки строк.

var n,p,t,k:integer;

b:boolean;

ch:char;

function ToRus(winStr:String):string;

setlength(Result,Length(WinStr));

CharToOEM(PChar(WinStr),PChar(Result));

end;// Эта функция нужна только для консольного приложения. Вы ее просто копируете в каждую новую свою программу, если хотите видеть комментарии на русском языке.

begin

Writeln(ToRus('*** Начало работы***'));

repeat

writeln(ToRus('Введите число для анализа'));

b:=false;;// Если число состоит только из 0 и 1

p:=0;

t:=1

{$I-} // Это проверка ввода правильности записанного числа

readln(n);

{$I+}

If IOresult<>0 then // Вы видите имя стандартной переменной, которая хранит код

// ошибки ввода числа

begin

writeln(ToRus(' число записано неверно'));

readln; //

continue; // Этот оператор позволит продолжить решение задачи без перезапуска

// программы

end;

while n<>0 do

begin

k:=n mod 10;

n:=n div 10;

if (k<>1) and (k<>0) then

begin

p:=p+k*t;

t:=t*10;

b:=true;

end;

end;

if b then

writeln(ToRus('полученное число ='),p:12)

else

writeln(ToRus('число содержит только нули и единицы'));

writeln(ToRus(' введите букву n для окончания работ'));

readln(ch);

until (ch='n');

{ TODO -oUser -cConsole Main: Insert code here }

end.

Мы договорились, что все действия будем выполнять над числом. Следовательно, надо будет выделять разряды целого числа, и проверять их на 0 или 1. Из остальных цифр будем формировать новое число. Результат решения задачи вы видите на рис. 8.

Рис.8

В окне результата решения задачи приведено решение для числа, содержащего любые цифры. Второй результат демонстрирует проверку числа из 1 и 0. Третий результат обеспечивает проверку правильности ввода числа, четвертый пример – это число без 1 и 0.

Таким образом, обеспечена проверка всех возможных вариантов вводимых целых чисел.

Дата добавления: 2014-12-27