Курсовая работа: Техническое задание на создание автоматизированных систем

6. ГОСТ 19.505-79. ЕСПД. Руководство оператора.

7. Моргун А. Н. Программирование на языке Паскаль (Pascal). Основы обработки структур данных, Москва: «Диалектика», 2005.

8. Алексеев Е.Р., Чеснокова О.В. Турбо Паскаль 7.0, Москва: NTpress, 2007.

9. Попов В.Б. Turbo Pascal для школьников, Москва: "Финансы и статистика", 2002г.

10. Меняев М.Ф. Информатика, Москва: Омега-Л, 2003г.

11. Фаронов В.В. Turbo Pascal 7.0. начальный курс, Москва: Нолидж, 2001г.

Приложение 1.

program kurspro;

uses crt;

var w:integer;

procedure rezh1;

const lim=100;

var b:array [1..lim] of real;

n,q,z,x,i,ind,k,l:integer; min,s,p,v:real;

begin

clrscr;

writeln('Режим 1');

writeln;

writeln('Введите размерность массива, n:');

writeln;

read(n);

writeln;

writeln('Введите элементы массива (только неотрицательные элементы):');

writeln;

{Ввод элементов массива}

gotoXY(whereX+7,whereY);

q:=whereX;

z:=whereY;

x:=1;

for i:=1 to n do