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

Сделать как VCL приложение

01.05.2015, 18:23. Просмотров 346. Ответов 2
Метки нет (Все метки)

В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить:
1)Какие виды рыб есть у каждого рыбака
2)Какие рыбы есть в озере, но нет ни у одного из рыбаков

Сделать как VCL приложение.

Вот код консольного приложения:

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
type
 fish=(karp,karas,okun,sazan,shuka,som);
 mnz=set of fish;
const
 n=3;
 naz:array[0..5] of string=('KaPII','KaPaCb','OKyHb','Ca3aH','III,yKa','CoM');
var
 a:array[1..n] of mnz;
 i,f,w:byte;
 k:fish;
begin
for i:=1 to n do
 begin
  writeln('Kakue Bugbl IIouMaJI Pbl6aK ',i);
  writeln('0-KaPII 1-KaPaCb 2-OKuHb 3-Ca3aH 4-III,yKa 5-CoM 6-Bblxog');
  repeat
   readln(w);
   if w in [0..5] then
   a[i]:=a[i]+[fish(w)];
  until w=6;
 end;
writeln;
writeln('Bugbl Pbl6 EcTb y Bcex Pbl6aKoB:');
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then w:=w+1;
  if w=3 then
   begin
    write(naz[ord(k)],'  ');
    f:=1;
   end;
 end;
if f=0 then
writeln('TaKuX BugoB Pbl6 HeT!');
writeln;
writeln('EcTb B o3ePe, Ho HeT y Pbl6aKoB:');
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then
  w:=w+1;
  if w=0 then
   begin
    write(naz[ord(k)],'  ');
    f:=1;
   end;
 end;
if f=0 then
writeln('TaKuX BugoB pbl6 HeT!');
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2015, 18:23
Ответы с готовыми решениями:

Помагите сделать в Delphi среде VCL Forms Application
Организовать экранное меню из трех пунктов (расчет площади прямоугольника, треугольника и круга)....

Как сделать приложение, не перехватывающее фокус?
Я уже всю сеть облазил, всё равно берёт на себя фокус,а самое главное теряет фокус приложение в...

Как сделать регулятор громкости в приложение ?
Использую функцию BASS_SetVolume(); библиотеки bass.dl, Но она меняет громкость всей системы, А мне...

Как сделать чтобы приложение открывалось во весь экран?
Как сделать во весь экран что программа открывалась? А то я забыл напомните? Помогите пожалуйста!...

Как сделать, чтобы приложение открывалось в полноэкранном режиме?
Как зделать чтобы программа открывалось в полно экранном режиме? Autosize не пойдет пробывал. Нужно...

2
Puporev
Модератор
54710 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
01.05.2015, 20:41 2
Можно так.
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
type
 fish=(karp,karas,okun,sazan,shuka,som);
 mnz=set of fish;
const
 n=3;
 naz:array[0..5] of string=('Карп','Карась','Окунь','Сазан','Щука','Сом');
var
  Form1: TForm1;
  a:array[1..n] of mnz;
  mn:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Enabled:=true;
Button2.Enabled:=false;
Button3.Enabled:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
inc(mn);
for i:=1 to 6 do
TCheckBox(FindComponent('CheckBox'+inttostr(i))).Checked:=false;
Showmessage('Выберите рыб для множества '+inttostr(mn));
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i:byte;
    k:fish;
begin
a[mn]:=[];
for i:=1 to 6 do
if TCheckBox(FindComponent('CheckBox'+inttostr(i))).Checked then
a[mn]:=a[mn]+[fish(i-1)];
for k:=karp to som do
if k in a[mn] then TMemo(FindComponent('Memo'+inttostr(mn))).Lines.Add(naz[ord(k)]);
Button1.Enabled:=true;
Button2.Enabled:=false;
if mn=3 then
 begin
  Button1.Enabled:=false;
  Button2.Enabled:=false;
  Button3.Enabled:=true;
 end;
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
var k:fish;
    f,w,i:byte;
begin
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then w:=w+1;
  if w=3 then
   begin
    Memo4.Lines.Add(naz[ord(k)]);
    f:=1;
   end;
 end;
if f=0 then
Memo4.Lines.Add('Таких видов рыб нет!');
f:=0;
for k:=karp to som do
 begin
  w:=0;
  for i:=1 to n do
  if k in a[i] then
  w:=w+1;
  if w=0 then
   begin
    Memo5.Lines.Add(naz[ord(k)]);
    f:=1;
   end;
 end;
if f=0 then
Memo5.Lines.Add('Таких видов рыб нет!');
end;
1
Вложения
Тип файла: rar Рыбы в озере.rar (174.5 Кб, 2 просмотров)
TheUnique
0 / 0 / 0
Регистрация: 26.04.2015
Сообщений: 25
02.05.2015, 06:46  [ТС] 3
Огромнейшее спасибо! Очень сильно выручил)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2015, 06:46

Как сделать, чтобы разработанное в Делфи приложение открывалось в интернете?
Подскажите пожалуйста как сделать что бы разработанное приложение в делфи открывалось в интернете....

Как сделать, чтобы Raudus-приложение было у меня на сайте?
создал приложение Raudus application.как сделать чтобы оно было у меня на сайте?

Как обновить VCL
Как мне обновить библиотеку визуальных компонентов?


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

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

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