Задание на выполнение
Поля для проектирования базы данных в соответствии с номером варианта (см. Приложение 1):
1. Создать структуру таблицы БД в программе Microsoft Access.
2. Создать поля в БД из номера Вашего варианта. Типы и форматы полей определить самостоятельно.
3. Определить первичный ключ таблицы.
4. В режиме таблицы ввести в БД по 10 записей для каждого столбца
5. С мастера форм создать форму для редактирования таблицы
6. В режиме формы ввести в таблицу 10 любых записей
Приложение 1
Вариант – 1
1. ФИО врача
2. Специальность врача
3. Стоимость приема
4. Процент отчисления на зарплату
5. Фамилия пациента
6. Имя пациента
7. Отчество пациента
8. Дата рождения пациента
9. Адрес пациента
10. Дата приема
program z1;
var a,m:integer;
begin
write('Введите трёхзначное число: ');
readln(a);
m:=a mod 10;
if a div 100 < m then m:=a div 100;
if a div 10 mod 10 < m then m:=a div 10 mod 10;
write('Минимальная цифра числа: ',m)
end.
Объяснение:
div - результат целочисленного деления
mod - остаток от целочисленного деления
Вводим число
Присваиваем переменной m значение последней цифры числа
Сравниваем переменную m с первой цифрой числа, если первая цифра числа меньше переменной m, то присваиваем переменной m значение первой цифры числа
Сравниваем переменную m со второй цифрой числа, если вторая цифра числа меньше переменной m, то присваиваем переменной m значение второй цифры числа
Выводим переменную m