20.01.2014, 18:18 | #1 (permalink) |
Новичок
Регистрация: 20.01.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Ручной ввод
Сделал программу, в ней массив из 20 чисел вводится автоматически, как сделать так что бы я его вводил вручную? вот программа: 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 a[i]:=random(100); 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. |
20.01.2014, 18:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение проблемы так же зависит от просмотра аналогичных топиков Имеется ручной генератор, как сделать, чтобы из него выходил постоянный ток? Голосовой ввод в Word 2010 Ручной листогиб Ручной протез, распечатанный на 3D принтере |
20.01.2014, 18:25 | #4 (permalink) |
Новичок
Регистрация: 20.01.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
а все понял)
спасибо |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|