Предпосылки и назначение структурного программирования

 

 

На языке "Е-практикума" последовательную детализацию можно реализовать в виде вспомогательного алгоритма (подпрограммы, процедуры, функции).

...

нач

. ...

. вспомогательный_алгоритм(...)

. ...

кон

алг [<тип>] вспомогательный_алгоритм(...)

 дано ...

 надо

нач

. ...

кон

 

В настоящее время в помощь структурному подходу к программированию появилось новое направление - объектное программирование, не отменяющее, а дополняющее принципы структурного подхода, позволяющее разрабатывать и модернизировать программный код с меньшими затратами времени, распределять задачу программирования между большим количеством программистов.

 

 

 

 

                                                                Задача

Создать базу данных «Футбольный клуб». Запись базы данных содержит: наименование клуба, год основания клуба, главный тренер клуба, история клуба. По наименованию клуба вывести все данные о нем.

                               иерархия структуры подчинения;

 

 

 

 

 

 

 

 

 структура записи (тип Record);

 

 

 

 

 

 

 

 

 общая блок-схема;

 

Определение раздела Type;

type

data= record

d:integer ;

m:integer  ;

y:integer   ;

end;

man=record

nazvanie:string[40];

gz:data;

glavtrener:string[60];

history:string[255];

end;

 

                Заголовки и блок – схемы процедур;

Процедура ввода:

 

Процедура вывода:

 

 

 

 

 

 

Процедура поиск

Процедура удаления

Процедура редактирования

 

Процедура добавления

 

 

                                 текст программы;

type

data= record

d:integer ;

m:integer  ;

y:integer   ;

end;

man=record

nazvanie:string[40];

gz:data;

glavtrener:string[60];

history:string[255];

end;

files=file of man;

vartf:files;

procedurepoisk(var tf1:Files);

var a:man;

r:string[40];

x:boolean;

begin

x:=true;

write('Nazvanie');

readln(r);

reset(tf1);

while not eof (tf1) do

begin

read(tf1,a);

ifa.nazvanie=r then begin

writeln('nazvanie',a.nazvanie,'', 'data-',a.gz.d,a.gz.m,a.gz.y,'', 'trener-',a.glavtrener,'', 'history-',a.history);

x:=false;

end;

end;

close (tf1);

if x then writeln('no lastname')

else

writeln('complete');

end;

procedureaddInFiles(var tf1:files);

var a:man;

begin

reset(tf1);

seek(tf1,filesize(tf1));

write('nazvanie-');

whilea.nazvanie<>'###' do

begin

read(a.nazvanie);

write ('day-');

read(a.gz.d);

write('mouns-');

read(a.gz.m);

write('year-');

read(a.gz.y);

write('trener-');

read(a.glavtrener);

write('history-');

read(a.history);

write(tf1,a);

writeln('nazvanie-');

read(a.nazvanie);

end;

close(tf1);

end;

proceduredellInFiles (var tf1:files);

var a:man;

i,j,n,k,l :integer;

begin

reset(tf1);

write('? caieneaeyoaaeaiey');

readln(n);

n:=n-1;

l:=filesize (tf1);

k:=l-1;

if n=k then

begin

seek(tf1,n);

truncate(tf1);

end

else

begin

i:=1;

j:=0;

while (n+i)<l do

begin

seek(tf1,n+i);

read(tf,a);

seek(tf1,n+j);

write(tf1,a);

i:=i+1;

j:=j+1;

end;

seek (tf1,k);

truncate(tf1);

end;

close(tf1);

end;

procedurecorrInFiles(var tf1:files);

var a:man;

key:string[20];

flag:boolean;

begin

write('aaaaeoaiacaaieaeeoaa');

readln(key);

flag:=TRUE;

reset(tf1);

while not eof (tf1) do

begin

read (tf1,a);

ifa.nazvanie< key then

begin

flag:=false;

write('aaaaeoaiiaiaiacaaiea');

readln(a.nazvanie);

write('aaaaeoaiiaiaio?aia?a');

readln(a.glavtrener);

write('enoi?eyeeoaa');

readln(a.history);

seek (tf1,filepos(tf1)-1);

write(tf1,a);

end;

end;

close(tf1);

if flag then

writeln('no results')

else

writeln('ok');

end;

procedureextFiles(var tf1:files);

var a:man;

begin

reset(tf);

while not eof (tf) do

end;

procedureVvod(var tf1:files);

var a:man;

begin

assign (tf1,'tf1.dat');

rewrite(tf1);

writeln('nazvanie');

readln(a.nazvanie);

whilea.nazvanie<> '###' do

begin

writeln ('data-');

readln(a.gz.d,a.gz.m,a.gz.y);

writeln('trener-');

readln(a.glavtrener);

writeln('history-');

readln(a.history);

write(tf1,a);

writeln('nazvanie');

readln(a.nazvanie);

writeln('_________________________');

end;

close (tf1);

end;

procedurevivod (var tf1:files);

var a:man;

begin

reset (tf1);

while not eof (tf1) do

begin

read(tf1,a);

write ('nazvanie',a.nazvanie,'', 'data-',a.gz.d,a.gz.m,a.gz.y,'', 'trener-',a.glavtrener,'', 'history-',a.history);

writeln;

end;

close(tf1);

end;

procedure menu;

varPunktOfMenu:byte;

    tf1:files;

NumOfRec:byte;

begin

NumOfRec:=0;

repeat

writeln('1-aaia iiaieaacuauiiuo');

writeln('2-aiaaaeaiea iiaiecaiene');

writeln('3-?aaaeoe?iaaiea');

writeln('4-oaaeaiea');

writeln('5-iiene');

writeln('6-auaia');

writeln('7-auoia');

writeln('___');

readln(PunktOfMenu);

casePunktOfMenuof

    1:       Vvod(tf)      ;

    2:addInFiles(tf);

    3:corrInFiles(tf);

    4:dellInFiles(tf);

    5:poisk(tf)  ;

    6:vivod(tf)              ;

7:extFiles(tf)

else

ifpunktOfMenu<>8 then

begin

writeln('');

writeln('ERROR');

writeln('');

end;

end;

untilPunktOfMenu=8;

end;

begin    {bd}

menu;

end.

9.​ тестовый пример.

Название спартак

Год создания 1.2.12

Главный тренер Петров

История клуб основан в Москве так же существуют клубы и в других городах с таким названием

 

 

 

 

 

                   

 

 

 

 

 

 

 

 

 

 

 Содержание

1. Предпосылки и назначение структурного программирования
2. Основные критерии оценки качества программы для ЭВМ.

3. Реализация структурного программирования на языке

«Е-практикума».                                           

      4.  Задача

      5. Список используемой литературы

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Министерство образования и науки Российской Федерации

Федеральное государственное образовательное бюджетное учреждение

высшего профессионального образования

Волгоградский государственный технический университет

 

 

 

Семестровая работа

по дисциплине учебная практика

 

 

 

                                                       Выполнил:

студент группы АУЗ-261

                                                                                          Сафонов Александр

                                                                            Проверил:  доц.кафедры

                                                                                           Петрухин А.В.

 

 

Волгоград 2015 г.

 

 

 

           Список используемой литературы

Информация взята с источников:

http://mf.grsu.by/Kafedry/kaf001/academic_process/099/34?dwnld=1

http://www.intuit.ru/department/se/tppfunc/keywords_all.html