Предметная область ИС: Оптовая база Создание запроса: 1. Создать запрос, содержащий поля: название товара, количество на складе и стоимость единицы товара, включающий только те товары, название которых начинаются с буквы «В». Список должен быть отсортирован по названию по возрастанию.
2. Определить поставщиков, которые поставляют более двух товаров.
3. Определить поставщика, который поставляет товар «коврик для мыши» по самой низкой в среднем цене.
4. Вывести названия товаров, цены на которые находятся в диапазоне от 10 руб. до 20 руб. 5. Определить общую сумму поставленной продукции поставщиками (по каждому).
6. Подсчитать разницу между себестоимостью продукции и отпускной ценой.
7. Создать таблицу, в которой отражается поставщик и поставляемая им продукция.
8. Увеличить отпускную цену на 15%.
9. Выяснить сколько поставщиков поставляют одну и туже продукцию?
10. Поставить отпускную цену на 40% выше себестоимости.
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.