Реферат: По решению прикладных задач на языке FRED

🛑 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

N Название
Отдел Инв.N
Перв.ст АО% Дата
опр. N АО Дата
выб. N АВ Фам.мат.отв

==========================================================

1 Принтер
4 1748 34000 13 12.10.89 3424
Кутузов А.А

2 Компьютер
4 2458 507000 20 10.04.91 3645
Медведев Д.М.

3 Телекс
8 11237 362000 56 02.09.85 4322 06.07.89 576
Грибков С.А.

4 Принтер
6 34600 678900 27 13.07.89 9780 04.12.93 564
Завалишин
С.Е.

5 АТС 8 22587
898800 12 31.07.70 7584 Шамин
С.В.

6 Компьютер
6 342 856320 63 06.05.74 7463 04.12.84
361 Конкс Ю.В.

7 Телефоны
6 575 87765 47 19.09.86 9706
Потятынник
Т.Н.

8 Сервер 5
3346 940000 42 05.02.89 3424
Житникова
Е.E.

9 Телетайп
2 5473 50000 51 20.04.76 479 01.12.85
563 Родионов Д.К.

10 Компьютер
5 118 780000 11 01.01.85 2344
Коваленко
Д.П.

11 Компьютер
5 3380 596900 87 12.05.87 4650 23.04.91 453
Афанасьев
Д.И.

12 Принтер
5 4597 135000 90 23.04.87 9005 27.09.90 574
Шанина Н.О.

13 Компьютер
3 1007 900300 12 14.06.89 3645
Разумовский
О.Д.

14 Ксерокс
3 2367 431000 41 26.07.78 9090
Григорьева
С.С.

15 Телекс
8 1109 500000 21 23.06.76 4354
Статникова
Н.А.

16 Телефоны
3 4376 95680 12 14.08.90 3645
Нагария А.В.

17 Ксерокс
3 4643 987999 18 17.09.80 2536
Аганин Ю.В.

18 Плоттер
3 6350 289700 15 19.10.92 5315
Поганин М.Д.

19 Компьютер
2 8451 854000 19 20.09.93 6123
Иванов П.Д.

20 Принтер
2 5305 900500 21 31.10.93 7330
Петров В.В.

ГОСУДАРСТВЕННАЯ
АКАДЕМИЯ
УПРАВЛЕНИЯ
им. С. ОРДЖОНИКИДЗЕ

програмирования
и компьютерной
техники

ПРОВЕРИЛ
: доцент кафедры
В.В. Евтеев
Тема
курсовой работы
:
Применение
интегрированных
прикладных
систем для
решения экономических
задач.

1. Использование
ИПС-РАДУГА
(FRAMEWORK III).

2. Исходная
база данных
- совокупность
инвертарных
карточек учета
основных средств
( по форме ОС-7
)

3. Количество
записей - 20. (см.
таблицу исходных
данных).

-норма
амортизационных
отчислений
в % ( А. О.);

-фамилии
материально
ответственного
лица ( Aам. мат.
отв.);

6. Тип
выдаваемой
справки-1 ( Наличие
средств в заданном
отделе и их
суммарная
стоимость
).

2. Создание
исходной базы
данных и пустой
таблицы.

3. Разработка
программы на
языке ИПС для
создания и
распечатки
справки заданного
типа.

Справка
должна содержать
не менее пяти
полей (N,Название,
Инв.N, Перв. ст.,
Фам. мат. отв.).

2. Задание
( с конкретными
данными по
своему варианту
).

3. Содержание
отчета с номерами
страниц.

5. Краткие
пояснения по
порядку создания
БД табличного
типа.

6. Распечатка
программы на
языке ИПС.

7. Инструкция
по использованию
программы для
решения поставленной
задачи.

8. Распечатка
справок заданного
типа ( не менее
трех распечаток).

;---Загрузка
фрейма [resume] с
командой
@resume---

@if(@and(p<>1,p<>2),@pk("{scroll-lock}")),

@pk("{return}{scroll-lock}{out}{return}{scroll-lock}"),

;---Установка
а меню операции
Новое:Пустой/Текст-Фрейм---

@prompt("Нажмите
INS, установите
""Новое:Пустой/Текст-Фрейм"",нажмите
ESC и F5"),

;---Завершение
начальной
установки---

@pk("{return}{scroll-lock}{out}{return}{scroll-lock}"),

;***Коррекция
базы данных:
Вставка, Изменение,
Удаление записей***

MAINMENU.[Коррекция
БД].[Вставка
Записи]:

@list(@pk("{ins}{return}{return}"),

q:=@value(@inputline("Введите
ОТДЕЛ")),

q:=@value(@inputline("Введите
ИНВ.N")),

q:=@value(@inputline("Введите
первонач.стоимость")),

q:=@value(@inputline("Введите
аморт. отчисл.")),

q:=@inputline("Введите
дату оприход."),

q:=@value(@inputline("Введите
N акта оприход.")),

a:=@inputline(" Ресурс
выбыл? Да(y)/Нет(n)"),

@list(q:=@inputline("Введите
дату выбытия"),

q:=@value(@inputline("Введите
N акта выбытия")),

q:=@inputline("Введите
фам. мат. отв."),

p:=@inputline("Вставлять
еще? ДА(y)/НЕТ(n)"))),

@setformula(base,@sort(base.[ N],#ascend)),@base,

MAINMENU.[Коррекция
БД].[Удаление
Записи]:

@pk("{ins}{rightarrow}{home}{dnarrow}{dnarrow}{esc}"),

@setselection("base"),@pk("{return}"),r:=@get(base,5),

@list(q:=@value(@inputline("Введите
номер удаляемой
записи")),

@pk("{in}{ins}{return}y{esc}{out}"),r:=r-1,

p:=@inputline("Удалять
еще?ДА(y)/НЕТ(n)"))),

;---Завершение
удаления записей
в базе данных---

@pk("{return}{ins}{leftarrow}{esc}")

MAINMENU.[Коррекция
БД].[Изменение
Записи]:

;--- Изменение
записей в базе
данных ---

@list(q:=@value(@inputline("Введите
номер записи")),

r:=@value(@inputline("Введите
номер поля")),

@list(s:=@value(@inputline("Введите
значение")),

@list(s:=@inputline("Введите
запись"),

p:=@inputline("Изменять
еще? ДА(у)\НЕТ(n)"))),

;--- Завершение
изменения
записей ---

@setselection("base"),@setformula(base,@sort(base.[
N],#ascend)),@base,

MAINMENU.[Коррекция
БД].[Сохранение
БД]:

;---Запись базы
данных на диск
А ---


@pk("{in}{scroll-lock}{f8}{scroll-lock}{return}y{out}{return}{scroll-lock}")

;***Формирование
выходного
документа в
таблице [tabl]***

;---Загрузка
фреймов
[tabl],[printdoc]---

@setselection("tabl.fw3"),@pk("{return}{scroll-lock}"),

@setselection("printdoc.fw3"),@pk("{return}{scroll-lock}"),

q:="@not(@isnumeric([N
АВ]))",@setformula(base,q),

@setselection("base"),@pk("{F5}"),@beep,

p:=@inputline("Введите
номер интересующего
вас отдела"),m:=p,

q:="@not([Отдел]<>"&p&")",@setformula(base,q),

;---Определение
количества
записей в
отфильтрованой
БД---

@pk("{ins}{return}{return}"),p:=99,@put(base,1,p),

@setformula(base,@sort(base.[ N],#ascend)),@base,

@pk("{out}{return}"),@pk("{ins}{home}{dnarrow}{esc}"),

@setselection("base"),@reset(base,1),p:=@get(base,1),

@list(q:=q+1,@next(base),p:=@get(base,1))),

@reset(base,1),@put(base,12,q),@reset(base,2),

@list(@next(base),p:=@get(base,1))),

;---Переход к
программе
формирования
выходного
документа-

;***Программа
формирования
выходного
документа в
таблице [tabl]***

;---Ввод из [base]
в [tabl] номера отдела---

@reset(base,2),m:=@get(base,12),@reset(tabl,5,3),

;---Ввод из [base]
в [tabl] исходных
данных---

; N, Название,
Инв.N, Перв.ст.,
Фам.мат.отв.

@reset(base,1),p:=@get(base,12),q:=7,

@list(n:=@get(base,2),i:=@get(base,4),

@setselection("tabl"),@position("tabl",1,1,60,15),

;---Ввод в таблицу
[tabl] значения
Итого:---

@reset(base,1),p:=@get(base,12),n:=q+1,

q:=p+7,r:="Итого:",@reset(tabl,1,q),@put(tabl,r),

p:=@integer(p+6),r:="@sum(tabl.d7:tabl.d"&p&")",

q:=@integer(q),i:="@setformula(tabl.d"&q&","&r&")",

@setformula(tabl,i),@tabl,@pk("{in}{F5}"),

@reset(tabl,1,n),p:="Дата:
",@put(tabl,p),

@reset(tabl,3,n),p:=@inputline("Введите
дату"),

;---Завершение
формирования
выходного
документа---

@prompt("Подготовте
принтер, нажмите
RETURN.")

@list(@pk("{rightarrow}"),p:=p-1)),

;---Завершение
печати выходного
документа---

;---Удаление
фреймов [base], [tabl],
[printdoc]---

------------------------------------------------------

N Название
Инв.N Перв.ст.
Фам.мат.отв.

------------------------------------------------------
Инструкция
по пользованию
программой:
mainmenu.fw3
- Файл с меню
пользователя.
base.fw3
- Исходная
база данных.
printdoc.fw3

- Программа
формирования
выходного
документа.
tabl.fw3
- Шаблон выходного
документа в
таблице.
Для
выполнения
задачи необходимо
войти в пакет
Радуга, установить
дискету
с курсовой
работой в дисковод
А, загрузить
фрейм с именем
a:\mainmenu.fw3 и нажать
F5.

------------------------------------------------------

N Название
Инв.N Перв.ст.
Фам.мат.отв.

------------------------------------------------------

1 Принтер
1748 34000 Кутузов
А.А

2 Компьютер
2458 507000 Медведев
Д.В.

------------------------------------------------------

N Название
Инв.N Перв.ст.
Фам.мат.отв.

------------------------------------------------------

2 Телекс
1109 500000 Петров Н.О.

------------------------------------------------------

N Название
Инв.N Перв.ст.
Фам.мат.отв.

------------------------------------------------------

1 Компьютер
1007 900300 Разумовский
О.Р.

2 Ксерокс
2367 431000 Григорьева
С.В.

3 Телефоны
4376 95680 Нагария
А.С.

4 Ксерокс
4643 987999 Аганин
Ю.В.

5 Плоттер
6350 289700 Поганин
М.Д.
ЛИТЕРАТУРА:
В.В.Евтеев,
А.М.Махонько
"Методические
указания к
самостоятельной
работе студентов
по дисциплине
"ЭВМ и программирование".
Раздел "Алгоритмический
язык ФРЕД"."

Название: По решению прикладных задач на языке FRED
Раздел: Рефераты по информатике, программированию
Тип: реферат
Добавлен 05:26:50 01 июля 2005 Похожие работы
Просмотров: 31
Комментариев: 17
Оценило: 4 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Если Вам нужна помощь с учебными работами, ну или будет нужна в будущем (курсовая, дипломная, отчет по практике, контрольная, РГР, решение задач, онлайн-помощь на экзамене или "любая другая" учебная работа...) - обращайтесь: https://clck.ru/P8YFs - (просто скопируйте этот адрес и вставьте в браузер) Сделаем все качественно и в самые короткие сроки + бесплатные доработки до самой сдачи/защиты! Предоставим все необходимые гарантии.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Реферат: По решению прикладных задач на языке FRED
Реферат по теме Линейно-функциональная система управления
Сочинение Горе От Ума В Формате 9.3
Сочинение Церковь Покрова К Нерпи
Курсовая Работа На Тему Нестандартные Методы Решения Задач По Математике
Доклад по теме Сертификация услуг и сертификация продукции
Контрольная работа: Теоретические основы управленческого учета
Практические Работы По Биологии 10 Класс
Сочинение Что Влияет На Внутренний Мир Человека
Сочинения По Картине Билибина Иван Царевич
Коммуникации Диссертации
Курсовая работа по теме Налогообложение юридических лиц в России
Выбираем специальность для поступления в ВУЗ
Дипломная работа по теме Семья как правовое поле жизнедеятельности ребенка
Реферат: Трудовой деговор. Заключение и прекращение трудового договора
Что Значит Беречь Русский Язык Сочинение
Курсовая работа по теме Аппаратная вычислительная платформа Arduino
Модели Корпоративной Социальной Ответственности Реферат
Реферат по теме Роль основателей Киево-Печерской лавры – Антония и Феодосия Печерских в духовном развитии Киева
Как Написать Хорошее Сочинение По Произведению
Реферат: Анализ действующей системы функционирования налогообложения доходов физических лиц
Доклад: Семейное единство и жизненный цикл семьи
Реферат: Гекзаметр
Реферат: История и развитие гоночного автомобиля