Методич_стат-исправлено. Методические указания по курсу Информатика

• Название: Методические указания по курсу Информатика
• Анкор: Методич_стат-исправлено.doc
• Дата: 12.03.2019
• Размер: 2.11 Mb.
• Имя файла: Методич_стат-исправлено.doc
• Тип: Методические указания; #25584
• страница: 22 из 23

Порядок выполнения работы

1. 
   Получить у преподавателя вариант задания.
   
2. 
   Написать программу на Qbasic.
   
3. 
   Отладить программу.
   
4. 
   Пполучить результат.
   
5. 
   Проанализировать полученный результат.
   

Содержание отчета

1. 
   Содержательная постановка задачи.
   
2. 
   Исходные данные.
   
3. 
   Краткие теоретические данные.
   
4. 
   Блок схема программы.
   
5. 
   Листинг программы.
   
6. 
   Распечатка полученных результатов.
   

Задание

1. Составить программу создания файла данных МАГАЗИН
(не менее 10 записей), каждая запись которого содержит следующие поля:

• 
  Название товара
  
• 
  Страна изготовитель
  
• 
  Дата изготовления
  
• 
  Срок годности (истек или нет, yes/no)
  
• 
  Стоимость товара
  

2. Составить программу вывода на экран в табличной форме всех записей файла, и записей наименований товаров, срок годности которых не истек, найти самый дешевый товар, вывести его название и стоимость.

Пример решения задачи

• 
  Зададим имя файла данных  magasin.txt
  

• 
  Опишем переменные:
  

Название товара  name$

Страна изготовитель  ctrana$

Дата изготовления  den

Срок годности (истек или нет, yes/no)  god$

Стоимость товара  manu

ПРОГРАММА НА ЯЗЫКЕ QBasic

CLS

OPEN "magasin.txt" FOR OUTPUT AS #1

CLS

FOR i = 1 TO 10

INPUT " Название "; name$

INPUT " Страна изготовитель "; ctrana$

INPUT " год изготовления "; den

INPUT " годность yes/no: "; god$

INPUT " стоимость "; manu

WRITE #1, name$, ctrana$, den, god$, manu

NEXT i

CLOSE #1

PRINT "МАГАЗИН"

PRINT "------------------------------------------------------------------------------------"

PRINT "Название Страна изготовитель Дата Годность yes/no Стоимость"

OPEN "magasin.txt" FOR INPUT AS #1

DO WHILE NOT EOF(1)

INPUT #1, name$, ctrana$, den, god$, manu

PRINT name$, " "; ctrana$, den; " ", god$; " ", manu

LOOP

CLOSE #1

PRINT "------------------------------------------------------------------------------------"

min = 10 ^ 10

OPEN "magasin.txt" FOR INPUT AS #1

PRINT "Товары со сроком годности yes"

DO WHILE NOT EOF(1)

INPUT #1, name$, ctrana$, den, god$, manu

IF manu <= min THEN

nas1$ = name$: ctrana1$ = ctrana$: god1$ = god$: min = manu

END IF

IF god$ = "yes" THEN

PRINT TAB(10); name$;

PRINT TAB(20); ctrana$; " "; den; " "; god$; " "; manu

END IF

LOOP

CLOSE #1

PRINT

PRINT "------------------------------------------------------------------------------------"

PRINT "Дешевый товар и его стоимость "

PRINT nas1$, min; "pyb", ctrana1$

END

РЕЗУЛЬТАТ РАБОТЫ ПРОГРАММЫ

Созданный файл данных magasin.txt из 10 записей рисунок 11.



Рисунок 11.

Контрольные вопросы

1. 
   Что такое файл?
   
2. 
   Какие требования к имени файла?
   
3. 
   Что такое расширение файла?
   
4. 
   Что можно хранить в файлах?
   
5. 
   Какие файлы в соответствии со способом доступа Вы знаете?
   
6. 
   В чем отличие файла прямого доступа от последовательного?
   
7. 
   Перечислите операции с файлами?
   
8. 
   Как осуществляется открытие файла?
   
9. 
   Перечислите режимы работы с файлами?
   
10. 
    Как осуществляется запись в файл?
    
11. 
    Как осуществляется чтение из файла?
    
12. 
    Что используется в качестве параметра «имя файла»?
    
13. 
    Какой оператор используется для закрытия файла?
    
14. 
    Какими операторами производятся запись в файл?
    
15. 
    Каком образом можно изменить данные в файле?
    
16. 
    Как осуществляется добавление данных в файл?
    
17. 
    В каком случае используется функция EOF(1)?