Приклад розв’язування економічної задачі
« НазадПриклад розв’язування економічної задачі
Завдання. Визначити середній вік студентів.
Для створення таблиці бази даних в командному вікні набираємо команду СREATE EKONOM. Внаслідок цього з’явиться: Field name Type width dec Вводимо свої дані: FAC C 10 0 KURS N 1 0 VOZ N 2 0 POL C 1 0 SEM` C 4 0 SRED N 3 0CHAS N 2 0 Після вводу даних операційна система робить запит: Input date record now? (Y/N), якщо відповідаємо «Y», то з’являється наступна структура:
Для того, щоб увійти в редактор тексту, необхідно в командному вікні набрати команду Modifycommand або натиснути клавішу ALT. У верхньому меню вибрати File, New, Program, натиснути ОК і ввести текст програми. *1 програма (прог. меню) EKONOM.PRG SET TALK OFF SET STATUS OFF USE EKONOM CLEAR @ 1,1 TO 24,78 DOUBLE DO WHILE.T. SET COLOR TO W/B, N/RB @ 5,10 say «підрахунок середнього віку» @ 10,10 PROMT «введення даних» @ 12,10 PROMT «розрахунок» @ 14,10 PROMT «перегляд» @ 16,10 PROMT «вихід» MENU TO A DO CASE CASE A=1 EKON1 CASE A=2 EKON2 CASE A=3 EKON3 CASE A=4 QUIT ENDCASE ENDDO Записати програму: ALT, File, Close, Yes під іменем EKONOM. PRG. Таким же чином вводимо тексти інших програм. *2 програма EKON1. PRG CLEAR @ 1,1 TO 24,78 Double COUNT ALL TO E C=0 Do while C=0 SET COLOR TO W/R CLEAR SET COLOR TO W/R, N/BG @ 2,15 say «Введення» @ 4,5 say «Факультет» @ 6,5 say «Курс» @ 8,5 say «Вік» @ 10,5 say «Стать» @ 12,5 say «Сімейний стан» @ 14,5 say «Середній прибуток сім’ї » @ 16,5 say «Час на дорогу до інституту» Insert Blank @ 4,15 GET FAС @ 6,15 GET KURS @ 8,15 GET VOZ @ 10,15 GET POL @ 12,15 GET SEM @ 14,15 GET SRED @ 16,15 GET CHAS READ @ 20,1 say «Продовжити введення» @ 21,1 PROMPT «Так» @ 21,10 PROMPT«Ні» MENU TO K DO CASE CASE k=1 C=0 CASE k=2 C=1 ENDCASE ENDDO DO EKONOM Записати програму: ALT, File, Close, Yes під іменем EKON1. PRG. *3 програма EKON2. PRG GO TOP CLEAR @10.15 say «Йде розрахунок середнього віку» W=0 K=0 DO While. NOT.EOF ( ) W=W+voz K=K+1 SKIP Clear @9,15 say «Йде розрахунок середнього віку» @10.15 say W/K wait DO EKONOM Записати програму: ALT, File, Close, Yes під іменем EKON2. PRG. *4 програма EKON3. PRG CLEAR SET COLOR to W/B, N/BG GO TOP c=0 DO While c=0 CLEАR @6.15 say «Факультет» @8.15 say «Курс» @10.15 say «Вік» @12.15 say «Стать» @14.15 say «Сімейний стан» @16.15 say «Середній прибуток сім’ї» @18.15 say «Час на дорогу до інституту» @6.15 say FAС @8.15 say Kurs @10.15 say Voz @12.15 say Pol @14.15 say SEM @16.15 say SRED @18.15 say Chas @20.15 say Svoz READ @20.1 say «Продовжити перегляд» @21.1 PROMPT «Так» @21.10 PROMPT «Ні» MENU TO K DO CASE CASE K=1 c=0 CASE K=2 c=1 ENDCASE ENDDO DO ECONOM Записати програму: ALT, File, Close, Yes під іменем EKON3. PRG. Після вводу зазначених програм (ekonом.prg; ekon1.prg, ekon2.prg, ekon3.prg), перевіряємо їх, і якщо є помилки, - виправляємо. В результаті вводу на екрані дисплея з’явиться розрахунок середнього віку студентів. З повагою ІЦ "KURSOVIKS"! |