рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

КОНЕЦ схемы Diagram;

КОНЕЦ схемы Diagram; - раздел Компьютеры, Компьютерные технологии в приборостроении   Алгоритм Модуля Rezult:   ...

 

Алгоритм модуля Rezult:

 

НАЧАЛО схемы Rezult, обработки результатов тестирования;

ОПИСАНИЕ ДАННЫХ:

n_name, n_oc – строковые переменные;

ПОВТОРЯТЬ ПРИ сохранении условия, что key<>'q'

ДО ПРОВЕРКИ:

ОЧИСТИТЬ экран;

СФОРМИРОВАТЬ n_menu:=12;

ВЫПОЛНИТЬ схему Ramka;

СФОРМИРОВАТЬ f_name:='test_men.pas';

ВЫПОЛНИТЬ схему Chtenie;

ВЫПОЛНИТЬ схему Kursor;

СФОРМИРОВАТЬ x:=p_kur;

ЕСЛИ n_menu=13

ТОГДА

ОЧИСТИТЬ экран;

ВЫПОЛНИТЬ схему Ramka;

РИСОВАТЬ прямоугольник (40,150,600,180);

УСТАНОВИТЬ цвет (Red);

ПЕЧАТАТЬ 'Введите номер группы';

ВВЕСТИ номер группы (grup);

ОЧИСТИТЬ экран;

ВЫПОЛНИТЬ схему Ramka;

ПЕЧАТАТЬ '1. Вывести рез-ты для одного студента';

ПЕЧАТАТЬ '2. Вывести рез-ты для всей группы (таблица)';

ПЕЧАТАТЬ '3. Вывести рез-ты для всей группы (график)';

ПЕЧАТАТЬ 'Для возврата к предыдущему меню нажмите (Esc)';

СФОРМИРОВАТЬ kol_kur:=4;

ВЫПОЛНИТЬ схему Kursor;

ЕСЛИ n_menu=14

ТОГДА

ОТКРЫТЬ файл со списком группы (f_sp_gr);

ЕСЛИ p_kur=1

ТОГДА

ВЫПОЛНИТЬ схему Ramka;

РИСОВАТЬ прямоугольник (40,150,600,180);

ПЕЧАТАТЬ 'Введите Ф.И.О. студента';

ВВЕСТИ имя студента (name);

КОНЕЦ ТОГДА;

СФОРМИРОВАТЬ kol_stud:=0;

СФОРМИРОВАТЬ d_ki:=0;

СФОРМИРОВАТЬ t_ki:=0;

СФОРМИРОВАТЬ ch_ki:=0;

СФОРМИРОВАТЬ p_ki:=0;

ОТКРЫТЬ файл f1 для перезаписи;

ПОВТОРЯТЬ ПРИ сохранении условия, что файл f_sp_gr не кончился

ПОСЛЕ ПРОВЕРКИ:

ЧИАТЬ из файла f_sp_gr в строку stroka;

ЕСЛИ p_kur=1

ТОГДА

СФОРМИРОВАТЬ stroka:=name;

ОТКРЫТЬ файл f_rez_gr;

СФОРМИРОВАТЬ prizn:=0;

СФОРМИРОВАТЬ kol_raz:=0;

ПОВТОРЯТЬ ПРИ сохранении условия, что файл f_rez_gr не кончился

ПОСЛЕ ПРОВЕРКИ:

ЧИТАТЬ из файла f_rez_gr в строку stroka_rez;

СФОРМИРОВАТЬ perem:=Copy(stroka_rez,1,Length(stroka));

ЕСЛИ stroka=perem

ТОГДА

СФОРМИРОВАТЬ perem:=Copy(stroka_rez,Length(stroka)+ 1, Length(mas_pun[x]));

ЕСЛИ mas_pun[x]=perem

ТОГДА

СФОРМИРОВАТЬ prizn:=1;

КОНЕЦ ТОГДА

ИНАЧЕ

СФОРМИРОВАТЬ prizn:=0;

ЕСЛИ prizn=1

ТОГДА

СФОРМИРОВАТЬ kol_raz:=kol_raz+1;

СФОРМИРОВАТЬ ocen:=copy(stroka_rez, Length(stroka_rez),1);

КОНЕЦ ТОГДА;

КОНЕЦ ПОСЛЕ ПРОВЕРКИ;

КОНЕЦ ПОВТОРЕНИЙ;

ЕСЛИ kol_raz>0

ТОГДА

СФОРМИРОВАТЬ из строки ocen переменную ocen2;

В СЛУЧАЕ если ocen2 равна

2: СФОРМИРОВАТЬ d_ki:=d_ki+1;

3: СФОРМИРОВАТЬ t_ki:=t_ki+1;

4: СФОРМИРОВАТЬ ch_ki:=ch_ki+1;

5: СФОРМИРОВАТЬ p_ki:=p_ki+1;

КОНЕЦ В СЛУЧАЕ;

ЗАПИСАТЬ stroka в файл f1;

ЗАПИСАТЬ kol_raz в файл f1;

ЗАПИСАТЬ ocen в файл f1;

СФОРМИРОВАТЬ kol_stud:=kol_stud+1;

КОНЕЦ ТОГДА;

ЗАКРЫТЬ файл f_rez_gr;

ЕСЛИ p_kur=1

ТОГДА

ПОВТОРЯТЬ ПРИ сохранении условия, что файл f_sp_gr не кончился

ПОСЛЕ ПРОВЕРКИ:

ЧИТАТЬ из файла f_sp_gr в строку stroka;

КОНЕЦ ПОСЛЕ ПРОВЕРКИ;

КОНЕЦ ПОВТОРЕНИЙ;

КОНЕЦ ПОСЛЕ ПРОВЕРКИ;

КОНЕЦ ПОВТОРЕНИЙ;

ЗАКРЫТЬ файл (f1);

В СЛУЧАЕ если p_kur равно

1,2:ЕСЛИ kol_stud<>0

ТОГДА

ПЕЧАТАТЬ 'Ф.И.О.';

ПЕЧАТАТЬ 'Кол-во прохождений оценка';

РИСОВАТЬ линию (200,70,200,400);

РИСОВАТЬ линию (420,70,420,400);

РИСОВАТЬ линию (40,82,600,82);

ОТКРЫТЬ файл f1;

СФОРМИРОВАТЬ y1:=90;

ВЫПОЛНИТЬ схему Ramka;

ПЕЧАТАТЬ mas_pun[x];

РИСОВАТЬ прямоугольник (40,430,600,445);

ПОВТОРЯТЬ ПРИ сохранении условия, что фвйл f1 не кончился

ПОСЛЕ ПРОВЕРКИ:

ЧИТАТЬ из файла f1 в строку stroka;

СФОРМИРОВАТЬ n_oc:=copy(stroka,length(stroka)-1,2);

СФОРМИРОВАТЬ Delete(stroka,length(stroka)-1,2);

СФОРМИРОВАТЬ Insert(' ',n_oc,2);

ПЕЧАТАТЬ stroka;

ПЕЧАТАТЬ n_oc;

СФОРМИРОВАТЬ y1:=y1+20;

КОНЕЦ ПОСЛЕ ПРОВЕРКИ;

КОНЕЦ ПОВТОРЕНИЙ;

ЗАКРЫТЬ файл f1;

КОНЕЦ ТОГДА;

ИНАЧЕ

ВЫПОЛНИТЬ схему Ramka;

ПЕЧАТАТЬ mas_pun[x];

РИСОВАТЬ прямоугольник (40,430,600,445);

КОНЕЦ ИНАЧЕ;

3:ВЫПОЛНИТЬ схему Diagram;

КОНЕЦ В СЛУЧАЕ;

ОЖИДАТЬ нажатия клавиши;

ЗАКРЫТЬ файл f_sp_gr;

СФОРМИРОВАТЬ key:='q'

КОНЕЦ ТОГДА

ИНАЧЕ

СФОРМИРОВАТЬ key:='q';

КОНЕЦ ТОГДА;

КОНЕЦ ДО ПРОВЕРКИ;

КОНЕЦ ПОВТОРЕНИЙ;

СФОРМИРОВАТЬ n_menu:=1;

СФОРМИРОВАТЬ proc:='s';

КОНЕЦ схемы Rezult;

 


Развернуть
Открыть в широком формате

– Конец работы –

Эта тема принадлежит разделу:

Компьютерные технологии в приборостроении

На сайте allrefs.net читайте: "Компьютерные технологии в приборостроении"

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: КОНЕЦ схемы Diagram;

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Содержательная постановка задачи
  Целью дипломного проекта является создание программного обеспечения для частичной автоматизации процесса обучения студентов по курсу «Компьютерные технологии в приборостроении».

Постановка задачи для решения на ЭВМ
  Данная задача реализована на языке высокого уровня Pascal. Задача представляет собой программу, предназначенную для обучения и контроля знаний студентов СПбГУАП. Программа

ВЫБОР И ОБОСНОВАНИЕ МЕТОДА РЕШЕНИЯ ЗАДАЧИ НА ЭВМ
  В целях рационализации процесса создания программы она разбивается на отдельные части, называемые модулями. К программным модулям предъявляются следующие требования:

Перечень пользовательских типов и переменных, используемых в программе
device,mode – переменные для инициализации графического режима; x,count,y:integer; key – хранение символа нажатой клавиши; size – переменная для выделения памяти;

СТРУКТУРА ПРОГРАММЫ
    Обучающая программа по курсу "Компьютерные технологии в приборостроении" разработана по модульному принципу и включает в себя: - информационно-спр

НАЧАЛО схемы OpDan, описания данных;
device,mode – целочисленные переменные для инициализации графического режима; x,count,y – целочисленные счетчики; key – хранение символа нажатой клавиши; size – переменна

КОНЕЦ схемы OpDan;
Алгоритм модуля Main: ‘p’

РЕЗУЛЬТАТЫ ТЕСТИРОВАНИЯ АЛГОРИТМА
    Вопр.1 Вопр.2 Вопр.3 Вопр.4 Вопр.5 Оценка + -

Запись алгоритма на языке программирования
7.1. Выбор и обоснование языка программирования   В качестве языка кодирования выбран язык программирования Turbo Pascal 7.0. Turbo Pascal – универсальный язык прогр

Макеты вывода результатов выполнения программы
        &nb

Описание программы
  Программа состоит из 13-ти модулей, 12 из которых оформлены как процедуры и 1 как главный управляющий модуль. Модули называются: Vhod, OpDan, Registr, Chtenie, Find, Ramka, Kursor,

ОТЛАДКА И ТЕСТИРОВАНИЕ ПРОГРАММЫ
Этап отладки программы является одним из важнейших и трудоемких этапов при создании любой программы. На данном этапе происходит выявление ошибок и устранение недочетов. Процесс отладки зав

Описание назначения и ограничения на использование программы
Обучающая программа тестирования включает в себя программные модули и находящиеся на магнитном диске текстовые файлы. Программа содержит главное меню и вызываемые из него подменю, служащие для вызо

Инструкция пользователя
Инструкция пользователя предназначена для человека, который впервые запускает данную программу на компьютере. Для работы программы необходимы соответствующие файлы. Эти файлы можно перенес

Расчет затрат на материалы
  Наименование материала Кол-во Расход на программу Цена за ед. изм. Руб. Сумма, руб. Картри

Калькуляция сметной стоимости
  Наименование показателя Сумма (руб) Удельный вес затрат (%) 1. Материалы 8,9%

МЕРОПРИЯТИЯ ПО ТЕХНИКЕ БЕЗОПАСНОСТИ
11.1. Проверка безопасности на рабочем месте Требования к мониторам. Конструкция монитора должна обеспечивать возможность фронтального наблюдения

ГОСТы и стандарты на мониторы и ПЭВМ
  Монитор, как и любое устройства должен соответствовать определенным требованиям и стандартам. Требования на мониторы разделяют на две основные группы стандартов и рекомендаций – по

Требования к помещениям для эксплуатации ПЭВМ
  Помещение с мониторами и ПЭВМ должны иметь естественное и искусственное освещение. Естественное освещение должно осуществляться через оконные проемы, ориентированные преимущественно

Излучение
  Результаты многолетних наблюдений, проведенных в НИИ медицины труда РАМН, показывают, что для пользователей ПЭВМ действительно характерен набор субъективных жалоб на здоровье.

Допустимые значения параметров неионизирующих электромагнитных излучений
  Наименование параметров Допустимое значение Напряженность электромагнитного поля на расстоянии 50см вокруг ВДТ по электрической с

Вентиляция
  Эффективным средством нормализации воздушной среды в помещениях является вентиляция. По способу перемещения воздуха вентиляция разделяется на естественную и механическую. Естественн

Требования к освещению помещений и рабочих мест с мониторами и ПЭВМ и расчет осветительной установки
  Искусственное освещение в помещениях эксплуатации мониторов и ПЭВМ должно осуществляться системой общего равномерного освещения. Допускается использование местного освещения, предна

Электробезопасность
  Так как ПЭВМ питается от сети переменного тока 220В 50Гц, необходимо предусматривать средства и мероприятия по защите пользователя ПЭВМ от поражения электрическим током и компьютера

Требования к организации и оборудованию рабочих мест
  Рабочие места с ВДТ и ПЭВМ по отношению к световым проемам должны располагаться так, чтобы естественный свет падал сбоку, преимущественно слева. Схемы размещения рабочих ме

ЗАКЛЮЧЕНИЕ
  В дипломном проекте была разработана обучающая программа по курсу «Компьютерные технологии в приборостроении». В процессе дипломного проектирования были изучены соответствующие лите

Procedure Vhod;
  Var i:integer; priv:string;   Begin{procedure} ClrScr; priv:=' Вы запустили программу электронного учебника.'; TextColor(W

Procedure Find;
  Var s,w:string; Begin{Procedure} Case n_menu of 1: f_name:='main_men.pas'; 2: Begin{2} Str(p_kur,s); f_name:='r'+s+'.pas';

Procedure Registr;
  Var i:integer;   Begin{Procedure} For i:=1 to 2 do Begin{For} ClearDevice; SetColor(Green); Rectangle(5,5,635,475

Procedure Ramka;
  Begin{Procedure} SetColor(Green); SetlineStyle(0,0,NormWidth); Rectangle(5,5,635,475); Rectangle(40,35,600,50); SetTextStyle(0,0,1);

Procedure Kursor;
  Var y1:integer;   Begin{Procedure} SetColor(Red); If (n_menu=5)or(n_menu=6)or(n_menu=7)or(n_menu=8)or(n_menu=9) Then y:=26

Procedure Spravka;
  Var k1,k2:char; s,s1,s2,m:string;   Begin{procedure} Assign(f,f_name); k1:='1'; x:=p_kur; Repeat ClearDe

Procedure Test;
  Var ball:integer; z,ocenka,oc:string; dan_otv:string; vopros:string; mas_vopr:array[1..5]of string;   Begin{Procedure}

Procedure Poisk;
  Var i, k, h:integer; j, nom, k1, k2:char; s, s1, s2:string;   Begin{procedure} f_name_p:='f_poisk.pas'; Assign(f1,f_name_p

Procedure Diagram;
  Var d_ki_p, t_ki_p, ch_ki_p, p_ki_p:real; d_ki_s, t_ki_s, ch_ki_s, p_ki_s, kol_stud_s:string; y1, y2, y3, y4:integer;   Begin{Procedure}

Procedure Rezult;
  Var n_name, n_oc:string;   Begin{Procedure} Repeat ClearDevice; n_menu:=12; Ramka; f_name:='test_men.pas';

Program Main;
  Uses Crt,Graph;   {$i Vhod.pas} {$i OpDan.pas} {$i Registr.pas} {$i Chtenie.pas} {$i Find.pas} {$i Ramka.pas}

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги