Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Нахождение индекса в массиве случайных чиселЦель работы -создать программу, которая находит индекс числа в массиве случайных чисел. Описание плана разработки программы 1. Открыть новый проект. 2. Разместить на форме экземпляры компонентов: Button, Edit, Label. 3. Выполнить следующие действия: Таблица 22.
4. Введите переменные ik, k, i: integer; s: string; a: array [1..15] of 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 k:= StrToInt (Edit2.Text); For i:= 1 to 15 do if k = a[i] then ik:= i; if ik = 0 then Edit3.Text:= ‘number ubsent’ else Edit3.Text:= IntToStr (ik); end; procedure Tform1.Button4Click(Sender: Tobject); Begin randomize; s:= ‘’; For i:= 1 to 15 do Begin a[i]:= random (26); s:= concat (s, IntToStr (a[i]), #32); end; Edit1.Text:= s; end; end. Вид проекта по действиям:
|