Turbo Basic прикладнойРефераты >> Программирование и компьютеры >> Turbo Basic прикладной
k=b(1,i) f=b(2,i) c=b(3,i) p=(k+f+c)/3
q(i)=p pol(I)=I p=0
![]() | ![]() | ||||
![]() | |||||
n=1,50
![]() |

I=1,49
Нет C=q(I+1) q(i)=q(I+1) q(i)=c
q(i)<q(I+1) да c=pol(I+1) pol(I+1)=pol(i) pol(I)=c
![]() |
вывод отсортированных данных на
экран и в файл
![]() |
I=1,50
нет да вывод A$
B(1,i)=5
![]() | |||
![]() |
I=1,50
![]() |
нет
B(2,i)=5 да вывод A$
![]() |
I=1,50
![]() |

нет да вывод A$
B(3,i)=5
![]() |
конец
ТЕКСТ ПРОГРАММЫ
Программа для ввода информации:
1 open "fpd.fpd" for output as#1
2 data "Ахтямов Р.Р ","Барашев А.Г. ","Бояркин М.Л ","Брыкин А.О. "
3 data "Брюхавецкая Л.В. ","Бугаев А.О. ","Гринблат Ю.И. ","Дедух Л.В. "
4 data "Дербеденев П.А. ","Дружинин К.В. ","Дьяченко Т.С. ","Ермакова Н.В. "