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

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

Войти
Регистрация
Восстановить пароль
 
Катерина Пугач
0 / 0 / 0
Регистрация: 14.01.2017
Сообщений: 9
#1

Блок схема в Delphi - Delphi

25.02.2017, 18:30. Просмотров 172. Ответов 1
Метки нет (Все метки)

Нужно было создать программу а к ней нужно построить блок схему алгоритма решения задачи, но не могу понять как создать. Вот условие:

Задано массив X (х1 х2, ... хn) и величины А, К, М. Необходимо выполнить следующие действия:
Определить максимальный элемент массива X среди нечетных элементов.


Вот есть код к ней:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.BitBtn1Click(Sender: TObject);
var mas: array of integer;
    i: integer;
    max: string;
begin
   max:='-32768';
   Memo1.Clear;
   SetLength(mas,strtoint(Edit1.text));
   for i:=0 to (strtoint(Edit1.text)-1) do begin
     //mas[i]:=Random(100);
     mas[i]:=i+1;
     Memo1.Lines.add('index: '+inttostr(i)+' value: '+inttostr(mas[i]));
     if (i mod 2) <> 0 then begin
        if(strtoint(max)<mas[i]) then max:=inttostr(mas[i]);
     end;
   end;
 
   Edit2.Text := max;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.02.2017, 18:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Блок схема в Delphi (Delphi):

Блок-схема по программе Delphi - Delphi
Привет народ. Кто понимает как строить блок схемы прошу построить ее по данной программе: Итак, при начале работы программы вас...

Блок-схема из кода Delphi - Delphi
Не знаете как из этого кода сделать блок-схему? unit Unit1; {$mode objfpc}{$H+} interface uses

Блок-схема! - Delphi
Помогите составить блок-схему!!! Пожалуйста!

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

блок-схема - Delphi
пожалуста сделайте блок-схему по программе unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...

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

1
droider
Delphist, DataBase Dev
4176 / 2260 / 458
Регистрация: 04.10.2012
Сообщений: 8,106
25.02.2017, 18:43 #2
Катерина Пугач, делайте
1
Вложения
Тип файла: rar FCMaker - для построения блок-схем.rar (754.7 Кб, 20 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.02.2017, 18:43
Привет! Вот еще темы с ответами:

блок схема - Delphi
здраствуйте программисты!!! может кто нибудь сделать блок схемы к программам, а то я их не умею делать еще со школы...)

блок-схема! - Delphi
Дана строка символов . вычеркнуть из строки все цифры program st; {$APPTYPE CONSOLE} uses SysUtils; const mn=; var ...

Блок-схема - Delphi
Привет! Есть программа считывает данные из файла в динамический массив, затем удаляет первый элемент. Как составить...

блок схема - Delphi
Помогите со ставлением блок схемы var i,j:integer; jmax:integer; sum,max:real; begin max:=0; //пусть макс. сумма пока=0 ...


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

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

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