Поделитесь своими знаниями, ответьте на вопрос:
9 задание как сделать? Access Аналогично создайте форму Поставщики. Заполните эту форму (Приложение 2)Перейдите в режим конструктора и в области заголовка исправьте текст на следующий:Информация по поставщикам.5) Аналогично создайте форму Сотрудники. Заполните эту форму (Приложение 3В режиме конструктора Перейдите в режим конструктора и в области заголовка исправьте текстна следующий: Сведения о сотрудниках организации.6) Аналогично создайте форму Типы. Заполните эту форму (Приложение 4) Перейдите в режим конструктора и в области заголовка исправьте текст на следующий: Номенклатурный тип товаров.7) Аналогично создайте форму Доставка . Заполните эту форму (Приложение 5) Перейдите в режим конструктора и в области заголовка исправьте текст на следующий: Методы доставки товаров8) С Мастера форм создайте форму Заказы [СОЗДАНИЕ-МАСТЕР ФОРМ]Из таблицы Закупки перенести поля:КодЗаказа, НомерЗаказа, КодПоставщика, КодСотрудника, ОписаниеЗаказа, КодМетода, ДатаРазмещенияИз таблицы Сделки перенести поля:ДатаОперции, КодТовара, ЗаказанноеКоличество, Цена, ПроданоПосле этого выполнить:Далее-выбрать в подчиненной форме Закупки, Табличный, задайте имя формы Заказы, задайтеимя подчиненной форме ЗаказаноТоваров-Готово9) Откройте форму Заказы в режиме конструктора. Удалите поле КодПоставщика и вместо неговставьте Поле со списком. Из таблицы Поставщики выберите: КодПоставщика, НазваниеПоставщика–скрыть ключевойстолбец - сохранить в поле КодПоставщика–задать имя Поставщик.10) Аналогично в этой же форме удалите поле КодСотрудника и вместо него вставьте поле сосписком. Из таблицы Сотрудники выберите КодСотрудника, Фамилия, Имя – скрыть ключевойстолбец-сохранить в поле КодСотрудника-задать имя Сотрудник11) Аналогично в этой же форме удалите поле КодМетодаДоставки и вместо него вставьте поле сосписком. Из таблицы Доставка выберите КодМетодаДоставки, МетодДоставки – скрытьключевой столбец-сохранить в поле КодМетодаДоставки-задать имя МетодДоставки
begin
write('x = ');
readln(x);
writeln('Введите номер задачи:');
writeln('1-вычисление квадратного корня;');
writeln('2-возведение в квадрат;');
writeln('3-вычисление синуса;');
writeln('4-вычисление косинуса;');
readln(n);
case n of
1: writeln(sqrt(x):6:4);
2: writeln(x*x:6:4);
3: writeln(sin(x):6:4);
4: writeln(cos(x):6:4);
else writeln('Ошибка ввода');
end;
end.
Пример:
x = 2.1
Введите номер задачи:
1-вычисление квадратного корня;
2-возведение в квадрат;
3-вычисление синуса;
4-вычисление косинуса;
3
0.8632