Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
SuweR
0 / 0 / 0
Регистрация: 29.04.2017
Сообщений: 10
#1

Нужно составить блок-схему - Delphi

01.06.2017, 13:08. Просмотров 53. Ответов 0
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
procedure TForm1.Button1Click(Sender: TObject);
var i, mini, maxi, mini1, maxi1, k: Integer;
a: array [1..1000] of Integer;
begin
randomize;//генератор случайных чисел
mmo1.Clear;//очистка поля Memo1
for i:=1 to StrToInt(edt1.Text) do //цикл от значения первого до значение введенного в Edit
begin //начало подпрограммы
a[i]:=-100+random(201); //элементу массива присвоить значение наугад от -100 до +100
if a[i]=0 then a[i]:=1 ; //если значение элемента массива равно "нулю" тогда присвоить ему "1"
if i=1 then //если номер элемента массива равен одному тогда
begin //начало подпрограммы
mini:=a[i]; //минимуму присвоить значение первого элемента массива
maxi:=a[i]; //максимум присвоить значение первого элемента массива
end; //конец подпрограммы
if a[i] > maxi then maxi:=a[i]; //если элемент массива больше максимума тогда максимуму присвоить элемент массива
if a[i] < mini then mini:=a[i]; //если элемент массива меньше минимума тогда минимуму присвоить элемент массива
mmo1.Text:=mmo1.Text+' '+inttostr (a[i]); //вывести в memo1 текст предыдущий + чис-ло_в_строку (значение элемента массива)
end; //конец подпрограммы
maxi1:=0; //счетчик количества максимальных элементов массива, присвоим начальное значение "нуль"
mini1:=0; //счетчик количества минимальных элементов массива, присвоим начальное значение "нуль"
for i:=1 to StrToInt(edt1.Text) do //цикл от 1 до значения введенного в Edit (текст_в_число из Edit1) выполнять
begin //начало подпрограммы
if a[i] = maxi then Inc(maxi1); //если значение элемента массива равно максимальному зна-чению, тогда счетчик максимальных элементов массива увеличить на 1;
if a[i] = mini then Inc(mini1); //если значение элемента массива равно минимальному зна-чению, тогда счетчик количества минимальных элементов массива увеличить на 1;
end; //конец подпрограммы
mmo1.Lines.Add(' '); //добавить пустую строку в поле Memo
mmo1.Lines.Add('Минимальный элемент: '+ IntToStr(mini)+' встречается '+ IntToStr(mini1)+' раз(а)'); //добавление строки в Memo
mmo1.Lines.Add('Максимальный элемент: '+ IntToStr(maxi)+' встречается '+ IntToStr(maxi1)+' раз(а)'); //добавление строки в Memo
k:=0; // счетчик количества смен знака, присваиваем начальное значение "нуль"
for i:=1 to StrToInt(edt1.Text)-1 do //цикл от 1 до значения введенного в Edit (текст_в_число из Edit1)-1 (т.к. сравниваем текущий и следующий элемент массива) выполнять
if ((a[i] > 0) and (a[i+1] < 0)) or ((a[i] < 0) and (a[i+1] > 0)) then Inc(k); //если (элемент боль-ше"нуля"и следующий элемент массива меньше"нуля")или(элемент меньше"нуля"и сле-дующий элемент массива больше"нуля")тогда счетчик количества смен знака увеличива-ем на "единицу"
mmo1.Lines.Add('Знак меняется: '+ IntToStr(k)+' раз(а)'); //добавление строки в поле Memo1
k:=0;// счетчик количества элементов уменьшающихся с каждым шагом, присваиваем на-чальное значение "нуль"
for i:=1 to StrToInt(edt1.Text)-1 do //цикл от 1 до значения введенного в Edit (текст_в_число из Edit1)-1 (т.к. сравниваем текущий и следующий элемент массива) выполнять
if (a[i] > a[i+1]) then Inc(k); //если текущий элемент массива больше следующего, тогда счетчик количества элементов "+1"
if k=(StrToInt(edt1.Text)-1) then mmo1.Lines.Add('Строго убывающая монотонность');//вывод в Memo1 текста если счетчик количества элементов равен значе-нию (текст_в_число из Edit1)-1
k:=0;// счетчик количества элементов возрастающих с каждым шагом, присваиваем на-чальное значение "нуль"
for i:=1 to StrToInt(edt1.Text)-1 do //цикл от 1 до значения введенного в Edit (текст_в_число из Edit1)-1 (т.к. сравниваем текущий и следующий элемент массива) выполнять
if (a[i] < a[i+1]) then Inc(k); //если текущий элемент массива меньше следующего, тогда счетчик количества элементов "+1"
if k=(StrToInt(edt1.Text)-1) then mmo1.Lines.Add('Строго возрастающая монотонность');//вывод в Memo1 текста "'Строго возрастающая монотонность", если счетчик количества элементов равен значению (текст_в_число из Edit1)-1
k:=0;// счетчик количества элементов возрастающих с каждым шагом, присваиваем на-чальное значение "нуль"
for i:=1 to StrToInt(edt1.Text)-1 do //цикл от 1 до значения введенного в Edit (текст_в_число из Edit1)-1 (т.к. сравниваем текущий и следующий элемент массива) выполнять
if (a[i] <> a[i+1]) then Inc(k);
if k=(StrToInt(edt1.Text)-1) then mmo1.Lines.Add('Последовательность не монотонна');//вывод в Memo1 текста "'Последовательность не монотоона", если счетчик количества элементов равен значению (текст_в_число из Edit1)-1
end; //Конец подпрограммы
procedure TForm1.Button2Click(Sender: TObject);
const
M=10;
var
i:integer;
Fr,t1,t2:Int64;
Dt:Extended;
begin
//Определяем тактовую частоту процессора(количество тактов в секунду).
QueryPerformanceFrequency(Fr);
if Fr=0 then begin
ShowMessage('Не удалось получить сведения о тактовой частоте.');
Exit;
end;
//ShowMessage('Тактоваяя частота процессора(количество тактов в секунду):'+Inttostr(Fr);
//Показание счётчика тактов.
QueryPerformanceCounter(t1);
//Выполнение исследуемого процесса.
for i:=1 to M do Sleep(10);
//Показаниесчётчикатактов.
QueryPerformanceCounter(t2);
//Расчёт времени.
Dt:=(t2-t1)/Fr;
ShowMessage('Длительность выполнения в секундах:'+FloatToStr(Dt));
end;
end. //Конец программы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2017, 13:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужно составить блок-схему (Delphi):

Составить блок-схему - Delphi
Здравствуйте, нужна помощь в составление блок-схемы данного алгоритма. procedure TForm4.Button1Click(Sender: TObject); const...

составить блок-схему - Delphi
помогите составить блок-схему unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Составить блок-схему! - Delphi
нарисуйте блок схему пожалуйста!!! буду очень признателен!

Составить блок схему - Delphi
ПОМОГИТЕ ПОЖАЛУЙСТА СОСТАВИТЬ БЛОК СХЕМУ НА ЭТУ ПРОГРАММУ! Тема задания: Обучение по специальности Условие задачи: Средствами Delphi...

Составить блок-схему по коду - Delphi
Ребят нужна блок схема(алгоритм) {$APPTYPE CONSOLE} var A: array of Integer; N, M, Sum, i: Integer; V, Vars:...

Составить блок-схему по коду - Delphi
Всем привет. Мне срочно нужно блок-схема курсового проекта. Помогите пожалуйста, мне срочно,срочно нужно. Не четко шарю про блок схему....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2017, 13:08
Привет! Вот еще темы с ответами:

Составить блок-схему программы - Delphi
Формачане обращаюсь к вам за помощью надо блок-схема к коду unit Unit3; interface uses Windows, Messages, SysUtils,...

Составить алгоритм (блок-схему) - Delphi
Условие:Программа должна состоять из трех частей,каждая из которых реализует один из трех операторов цикла ( 3 кнопки). ...

Очень нужно сделать блок-схему( - Delphi
Сделайте пожалуста блок-схему по этому коду( бинарный поиск) , а то никак не получается(. Вот по этой части кода: procedure...

нужно создать блок схему к коду - Delphi
Определить функцию, которая возвращает факториал натурального числа. n!=1*2*3…*n Вычислить факториалы чисел от N1 до N2, используя...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru