Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. Но программа работает как надо по вашему заданию. При чем вводить можно даже числа из девяти знаков
function checkstr( x: string ): boolean; // это функция, которая проверяет введенное пользователем на то, является ли это целым положительным числом, а не какими-нибудь буквами begin var k: integer; if length(x) > 0 then begin Result := True; for k := 1 to length(x) do if not (x[k] in ['0'..'9']) then begin Result := False; // если пользователь ничего не ввел или ввел не цифры, то будет возвращена ложь end;end;end;
var N: string; error, r, i, min: integer; B: array[1..8] of integer; // В - массив, в котором будут храниться все цифры введенного числа begin write('Введите целое положительное число: '); readln(N); if checkstr(N) then begin // вызываем нашу функцию на обработку введенных данных r := Length(N); // присваиваем переменной r размер введенной строки val( N[ 1 ], min, error); // конвертирует строковое значение в тип integer и присваиваем минимальному значению первую цифру for i := 2 to r do begin val( N[ i ], B[ i ], error ); // конвертируем строковые цифры в integer if ( B[i] < min ) AND ( B[i] mod 2 <> 0) then min := B[i]; // если цифра нечетная и меньше переменной min , то присвоить переменной min значение этой цифры if ( min mod 2 = 0 ) then min := B[i]; // проверяем на всякий случай еще раз первую цифру end; if ( min mod 2 = 0 ) then writeln('Нечетных цифр нет') // если нечетных цифр нет, а наименьшая цифра четная, то говорим, что нечетных цифр нет else writeln( 'Наименьшая нечетная цифра в числе: ', min ); // выводим наименьшую нечетную цифру из числа end else writeln('Неверный формат ввода'); // если пользователь вдруг ввел буквы или какие-нибудь каракули вместо целого числа end.
ВВЕДЕНИЕ
Изучение дисциплины «Начертательная геометрия. Инженерная графика» даёт возможность студентам
инженерно-технических специальностей читать и выполнять эскизы, технические рисунки, чертежи и схемы –
изображения изделий, связанные соответствующим образом с проектированием, изготовлением и
эксплуатацией различных машин, механизмов и приборов.
Практикум предназначен для студентов, обучающихся по направлениям подготовки дипломированных
специалистов и бакалавров в области техники и технологии. Он состоит из двух структурно и методически
согласованных глав.
В первой главе «Сведения о конструкторской документации» приведена информация и правила
оформления изображений на чертежах в соответствии с Единой системой конструкторской документации
(ЕСКД).
Во второй главе «Индивидуальные задания» представлен комплекс графических работ, состоящий из
индивидуальных заданий по всем темам рабочих учебных программ соответствующих специальностей и
примеров их выполнения с использованием чертежного инструмента. Каждая графическая работа включает 30
вариантов, что даёт возможность обеспечить индивидуальными заданиями каждого студента учебной группы и
подгруппы. Выполнение заданий приобретению будущими дипломированными специалистами и
бакалаврами знаний общих методов построения и чтения чертежей, а также решению разнообразных
инженерно-геометрических задач, возникающих при проектировании, конструировании и изготовлении
различных изделий.
Получив вариант задания, студент начинает его выполнять в аудитории под руководством и контролем
преподавателя, а заканчивает – самостоятельно. В ходе выполнения графических работ приобретаются умения
и навыки оформления конструкторской документации и чтения технических чертежей. Освоение
конструирования различных пространственных объектов (в основном поверхностей) и получения их
чертежей эффективному формированию у студентов пространственного воображения.
Полное владение чертежом как производственным документом, а также устойчивость навыков в
выполнении чертежей достигаются в результате изучения специальных инженерно-технических дисциплин
соответствующего профиля, подкреплённого практикой курсового и дипломного проектирования.
1. СВЕДЕНИЯ О КОНСТРУКТОРСКОЙ ДОКУМЕНТАЦИИ
Конструкторские документы – чертежи выполняют как с использованием чертёжных инструментов
(линейки, треугольника, циркуля и т.п.), так и компьютера. При выполнении чертежей требуются безупречное
владение техникой чертёжных работ, знание правил оформления конструкторских документов, особая
геометрическая подготовка, обострённое чувство пространственных форм и комбинационное мышление.
Владение перечисленными навыками отражается не только на качестве работы инженеров, но и на их
подготовке.
Повышение качества подготовки бакалавров и дипломированных специалистов – развитие навыков
общения с нормативно-техническими документами и стандартами, которые объединены в системы, одной из
которых является Единая система конструкторской документации.
ЕСКД – язык для однозначной передачи технической информации между отдельными организациями.
ГОСТ 2.001–70 «Основные положения» определяет ЕСКД как комплекс государственных стандартов,
устанавливающих правила и положения по порядку разработки, оформления и обращения конструкторской
документации.
Согласно правил, стандартов первой группы ЕСКД «Основные положения» [7] выполняют
конструкторскую документацию – задания по инженерной и компьютерной графике. Часть правил ЕСКД в той
или иной степени изучают в курсе «Начертательная геометрия. Инженерная графика».