Материалы сайта
Это интересно
Компьютерная подготовка
Государственный Университет Управления Институт финансового менеджмента Лабораторная работа №2 «Обработка файла данных» Выполнила: Студентка в/о, группы б/у II-1 Кузнецова Анна Задание. Данные по машинам автобазы: номер, марка, план перевозок, факт. Вывести данные по машинам, по которым не выполнен план перевозок. Макет исходных данных |номер |марка |план |факт | |о 367 нр |ГАЗ |105 |100 | |л 577 ор |ЗИЛ |185 |185 | |н 705 ар |КамАЗ |220 |220 | |в 368 еу |ЛИАЗ |343 |340 | |а 859 ср |МАЗ |368 |368 | |у 364 ар |УАЗ |373 |373 | |м 290 ао |КамАЗ |288 |287 | |н 390 ал |ГАЗ |100 |99 | Алгоритм программы Программа по разработанному алгоритму * Командный файл "Обработка файла данных" CLEAR {Очистка экрана} SET TALK OFF {Команда запрета выполнения отдельных команд} USE &Imfd {Команда открытия} TEXT Данные по машинам по которым не выполнен перевозок номер марка план факт ENDTEXT I=1 {определяет номер строки} DO WHILE .NOT.EOF() IF PLAN>FACT @ I,3 SAY NOM @ I,15 SAY MAR @ I,22 SAY PLAN @ I,28 SAY FACT I=I+1 ENDIF SKIP ENDDO WAIT {Команда ожидания} RETURN {Команда завершения} Вариант решения задачи |номер |Марка |план |факт | |о 367 нр |ГАЗ |105 |100 | |в 368 еу |ЛИАЗ |343 |340 | |м 290 ао |КамАЗ |288 |287 | |н 390 ал |ГАЗ |100 |99 | ----------------------- начало CLEAR SET TALK OFF USE &Imfd TEXT Данные по машинам по которым не выполнен план перевозок номер марка план факт ENDTEXT I=1 DO WHILE .NOT.EOF() IF PLAN>FACT @ 3,10 SAY NOM @ 3,10 SAY MAR @ 3,10 SAY PLAN @ 3,10 SAY FACT I=I+1 SKIP ENDIF ENDDO WAIT RETURN