Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Function Sum;





Var S,i:integer;

Begin

S:=0; For i:=0 to n-1 do S:=S+A[i]; Sum:=S

End;

Function Max;

var amax,i:integer;

begin amax:=A[0];

for i:=0 to n-1 do

if A[i]>amax then amax:=A[i];

Max:=amax; end;

Procedure Kratn;

Var i:integer;

Begin kk:=0;

for i:=0 to n-1 do if A[i] mod k =0 then

Begin

SetLength(B,kk+1);

B[kk]:=A[i]; kk:=kk+1 end;

End;

Procedure Sort;

var i,k,x:integer;

Begin

for i:=0 to n-2 do

for k:=i downto 0 do

if A[k]>A[k+1] then

begin x:=A[k];A[k]:=A[k+1];A[k+1]:=x end;

End;

End.

Сценарий выполнения программы:

1. Запустить программу (Run);

2. На форме Form1 ввести в поле Edit1 значение n – количество элементов массива;

3. В поле Edit2 ввести “n” элементов массива целого типа;

4. Нажать кнопки: “ Ввод массива ”; “ Вывод масс ива”; “ Сумма ”; “ Максимальный элемент ”;

5. В поле Edit3 ввести значение “k” – коэффициент кратности;

6. Нажать кнопки: “Кратность”; “Сортировка”; “Показ Form2”;

7. Просмотреть и проанализировать результаты;

8. Активизировать форму From1 и нажать кнопку “ Освобождение памяти и выход ”;

Ниже приведены вид формы Form1 после выполнения пунктов 2, 3, 4, 5:

 

 

и вид формы Form2 после нажатия кнопки “ Показ From2 ”:







Date: 2015-07-25; view: 330; Нарушение авторских прав



mydocx.ru - 2015-2024 year. (0.008 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию