Блок-схема
Ребят, помогите пожалуйста сделать блок схему к программе
Вот сама программа: program laba1_19; Uses crt; const n=20; type mas=array[1..n]of integer; var a :mas; max,min,r,i:integer; procedure vvod(var a:mas); var i:integer; {индекс (номер) элемента массива} ch: char; {переменная для хранения кода символа нажатой клавиши} begin TextColor (black); {цвет символов} ClrScr; {очистка экрана} gotoxy(20,3); {вывод текста в указанном месте экрана} Writeln('ВАШЕМУ ВНИМАНИЮ ПРЕДСТАВЛЯЕТСЯ ПРОГРАММА,'); gotoxy(13,4); Writeln('КОТОРАЯ ОПРЕДЕЛЯЕТ МАКС. И МИН. ЧИСЛА В МАССИВЕ ИЗ 20 ЧИСЕЛ,'); gotoxy(7,5); Writeln('И ВЫЧИСЛЯЕТ РАЗНОСТЬ МЕЖДУ НИМИ ЗАМЕНЯЯ ЕЮ ЧЕТНЫЕ ЭЛЕМЕНТЫ МАССИВА '); gotoxy(35,6); textattr:=green; Writeln('ВНИМАНИЕ!'); Textattr:=white; gotoxy(21,7); Writeln('Размерность данного массива должна быть'); gotoxy(21,8); Writeln('в интервале от 2 до 100!'); gotoxy(40,12); textattr:=yellow; Writeln(''); gotoxy(40,13); Writeln(''); gotoxy(49,14); Writeln(''); gotoxy(40,15); Writeln(''); gotoxy(20,24); textattr:=white; Writeln('Нажмите любую клавишу для продолжения…'); Ch:=readkey; {считывание символа с клавиатуры} ClrScr; for i:=1 to n do begin Write('Введите ',i:2, '-й элемент:'); Readln(a[i]); end; end; procedure vivod(var a:mas); var i:integer; begin for i:=1 to n do write(a[i],' '); end; Begin vvod(a); Writeln('Исходный массив'); vivod(a); max:=0; min:=30; for i:=1 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; writeln; writeln('Max= ',max,' Min= ',min); r:=max-min; for i:=1 to n do if (i mod 2)=0 then a[i]:=r; writeln ('Результат'); vivod(a); End. |
Часовой пояс GMT +4, время: 04:03. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.