Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Практическая работа № 23
Находение минимального и максимального числа в массиве
Цель работы -создать программу, которая находит минимальное и максимальное числа в введенном массиве.
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: Button, Edit, Label.
3. Выполнить следующие действия:
Таблица 23.
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ имя события | Действие |
| Form1 | Properties | Caption | Установка имени формы «Поиск» |
| Events | OnCreate | Очистить значения свойств Text текстовых полей | |
| Button1 | Properties | Caption | Введите название «Очистить» |
| Events | Onclick | Очистить значения свойств Text текстовых полей | |
| Button2 | Properties | Caption | Введите название «Закрыть» |
| Events | Onclick | Обработка события закрытия формы | |
| Button3 | Properties | Caption | Введите название «Поиск» |
| Events | Onclick | Обработка события нахождения минимального и максимального чисел во введенном массиве | |
| Edit1 | Properties | Caption | Очистить значение свойства Text |
| Edit2 | Properties | Caption | Очистить значение свойства Text |
| Edit3 | Properties | Caption | Очистить значение свойства Text |
4. Введите переменные
s, ss: string; a: array [1..15] of integer; I, j, k, max, min, p, code: integer.
5. Сохраните проект, запустите и протестируйте его.
Листинг подпрограмм
procedure Tform1.FormCreate(Sender: Tobject);
Begin
Edit1.Text:= ‘’;
Edit2.Text:= ‘’;
Edit3.Text:= ‘’;
end;
procedure Tform1.Button1Click(Sender: Tobject);
Begin
Edit1.Text:= ‘’;
Edit2.Text:= ‘’;
Edit3.Text:= ‘’;
end;
procedure Tform1.Button2Click(Sender: Tobject);
Begin
close;
end;
procedure Tform1.Button3Click(Sender: Tobject);
Begin
s:=Edit1.Text;
s:= concat (s, #32);
i:= 0;
while Length (s) > 0 do
Begin
i:= i+1;
p:= pos (#32,s);
ss:= copy (s,1,p-1);
Val (ss,k,code);
a[i]:= k;
delete (s,1,p);
end;
max:= a[1];
For j:= 1 to i do
if max < a[j] then max:= a[j];
min:= a[1];
For j:= 1 to i do
if min > a[j] then min:= a[j];
Edit3.Text:= IntToStr (max);
Edit2.Text:= IntToStr (min);
end;
 |
Date: 2015-09-18; view: 681; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |