Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
niko_belich
0 / 0 / 0
Регистрация: 09.01.2010
Сообщений: 25
1

Составить блок-схему

06.02.2010, 18:04. Просмотров 771. Ответов 3
Метки нет (Все метки)

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
procedure TForm1.RadioButton1Click(Sender: TObject);
var max,a,b,c,d,min:real;
begin
a:=strtoint (edit1.Text);
b:=strtoint (edit2.Text);
c:=strtoint (edit3.Text);
d:=strtoint (edit4.Text);
 
if ((a>b)and (a>c)and (a>d))then max:=a else
if ((b>a)and (b>c)and (b>d))then max:=b else
if ((c>a)and (c>b)and (c>d))then max:=c else
if ((d>a)and (d>b)and (d>c))then max:=d else
 
if radiobutton1.Checked then edit5.text:=floattostr (max);
edit5.text:=floattostr(max);
 
 
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
var max,a,b,c,d,min:integer;
begin
a:=strtoint (edit1.Text);
b:=strtoint (edit2.Text);
c:=strtoint (edit3.Text);
d:=strtoint (edit4.Text);
 
if ((a<b)and (a<c)and (a<d))then min:=a else
if ((b<a)and (b<c)and (b<d))then min:=b else
if ((c<a)and (c<b)and (c<d))then min:=c else
if ((d<a)and (d<b)and (d<c))then min:=d else
 
 
if radiobutton2.Checked then edit5.text:=floattostr (min);
 edit5.text:=floattostr(min);
 
end;
 
end.
ПОМОГИТЕ ПЛИЗ!!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2010, 18:04
Ответы с готовыми решениями:

Составить блок-схему
var i,s:integer; d:real; begin i:=strtoint(edit1.Text); if (i mod 2=1) and (i&gt;0)then...

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

Составить блок схему к программе на Delphi (часы)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Код в блок-схему
Уважаемые форумчане, нужно из кода сделать подробную блок схему, буквально каждой строчки. Я так и...

Написать программу и блок-схему
написать программу и блок-схемуувеличивающая в 2 раза все эелементы массива которые больше 15 ))...

3
DenProx
Техник
312 / 170 / 25
Регистрация: 09.10.2009
Сообщений: 3,094
06.02.2010, 18:42 2
niko_belich, ну это же так просто... неужели трудно это сделать, хотябы по аналогии?

Добавлено через 1 минуту
здесь всего два вида: прямоугольник, и ромб... ну и начало - конец - овалы...
0
Сержа
58 / 57 / 9
Регистрация: 11.12.2009
Сообщений: 350
07.02.2010, 06:47 3
Вот на эту задачу:

Код
[var s1:string;i,h,l:integer;

begin
h:=0;
l:=0;
s1:=edit1.Text;
for i:=0 to length(s1) do
begin
if s1[i]='?'THEN

h:=h+1;
if s1[i]='!'THEN

l:=l+1;
end;

label3.caption:=floattostr(h);
label5.caption:=floattostr(l);
end;]



__________________
Нажмите "спасибо", если я вам помог
2
Вложения
Тип файла: rar Безымянный.rar (10.6 Кб, 25 просмотров)
niko_belich
0 / 0 / 0
Регистрация: 09.01.2010
Сообщений: 25
07.02.2010, 12:51  [ТС] 4
Спасибо!
0
07.02.2010, 12:51
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2010, 12:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Пожалуйста начертите блок-схему
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Как строить блок-схему Delphi
Всем привет, вопрос в следующем... Как построить блок схему для проекта в Delphi, который...

Программа, которая построит блок-схему из .pas
Собственно нужна программа которая нормально построит блок схему или из файла .pas или из кода...


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

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

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