Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
курсач информатика.docx
Скачиваний:
16
Добавлен:
01.05.2025
Размер:
145 Кб
Скачать
☆

О человеке

  • Чем умнее человек, тем больше своеобразия находит он во всяком, с кем общается. Для человека заурядного все люди на одно лицо

  • Привычка — вторая натура, которая разрушает первую3

  • Любопытство — вид тщеславия. Часто люди приобретают знания, чтоб потом ими хвастаться

  • Нужно знать самого себя. Пусть это не поможет найти истину, но поможет хотя бы правильно устроить свою жизнь, а это самое хорошее дело

  • Король окружен людьми, занятыми только тем, как его развлечь и помешать ему думать о самом себе. Ибо какой бы он ни был великий король, стоит ему задуматься — и он несчастен

  • Человек — всего лишь тростинка, самая слабая в природе, но это тростинка мыслящая. Пусть Вселенная и раздавит его, человек все равно будет выше своего убийцы, так как он знает, что умирает, а Вселенная ничего не знает

  • Наша природа — движение, полный покой — это смерть

Об обществе

  • Люди презирают религию. Они испытывают ненависть и страх при мысли, что она может оказаться истинной

  • Слава так сладка, что пусть ее принесет хоть смерть — мы все равно ее любим

  • Щегольство — не такое уж пустое дело; это значит доказывать, что на тебя работает множество людей

  • Людей не учат достойному поведению и учат всему остальному. А они хотят знать то единственное, чему их не учат

  • Нас радует борьба, но не победа. Интересно смотреть на схватку зверей, а не на победителя, терзающего жертву

  • Если бы люди знали, что они говорят друг о друге, на свете не нашлось бы и четырех друзей

  • Если знаешь главную страсть человека, не сомневайся, что ему понравишься

  • Принуждение молчать — самое страшное из гонений

Текст программы

CREATE PROCEDURE Inc reasePrices

( Percent2Increase DOUBLE PRECISION)

RETURNS (ID INTEGER, NAME VARCHAR(80),

new_price DOUBLE PRECISION) AS

DECLARE VARIABLE avg_price DOUBLE PRECISION;

BEGIN

SELECT AVG(Price_1)

FROM Table_Example

INTO :avg_price;

FOR

SELECT ID, NAME, PRICE_1

FROM Table_Example

INTO :ID, :NAME, :new_price

DO

BEGIN

IF (new_pnce > avg_price) THEN

BEGIN

new_price = (avg_price + avg_price*(Percent2lncrease/100));

UPDATE Table_example

SET PRICE_1 = :new_price

WHERE ID = :ID;

END

ELSE

BEGIN

new_price = (new_price + ((avg_price - new_price)/2));

UPDATE Table_example

SET PRICE_1 = :new_price

WHERE ID = :ID;

END

SUSPEND;

END