Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.12.2016, 13:02
bvl_7@bk.ru bvl_7@bk.ru вне форума
Прохожий
 
Регистрация: 18.12.2016
Сообщения: 1
Версия Delphi: Delphi XE4
Репутация: 10
По умолчанию Написать программный код на Delphi, используя только статические массивы

Все процедуры (функции) расположить не в коде головного модуля программы, а в отдельных модулях (unit), в одном или нескольких.
И задание:
Если исходная последовательность C1, С2,..., СM не содержит ни одного элемента, значение которого совпадает со значением какого-либо элемента последовательности Р1, Р2, ..., РM задать значения элементам Х1 Х2,..., ХM по правилу Xi=max(Ci, Pi)
Ответить с цитированием
  #2  
Старый 02.05.2017, 18:28
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

О, архивологическая находка, раньше чот не видел
Код:
uses Math;
const
  M = 10;
var
  C, P, X: array[0..M] of integer;

function ds(C,P: array of integer): boolean;
var
 i, j: integer;
begin
 Result:= true;
 for i:= 0 to Length(C)-1 do
  for j:= 0 to Length(P)-1 do
   if C[i] = P[j] then Result:= false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
 for i:= 0 to M-1 do
  begin
   C[i]:= Random(100);
   P[i]:= Random(100);
  end;

 StringGrid1.ColCount:= M;

 for i:= 0 to StringGrid1.ColCount-1 do
  with StringGrid1 do
   begin
    Cells[i,0]:= 'C'+ IntToStr(i+1);
    Cells[i,1]:= IntToStr(C[i]);
    Cells[i,3]:= 'P'+ IntToStr(i+1);
    Cells[i,4]:= IntToStr(P[i]);
    Cells[i,6]:= 'X'+ IntToStr(i+1);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i: integer;
begin
 if ds(C,P) then
  for i:= 0 to M-1 do X[i]:= max(C[i], P[i]);
   for i:= 0 to StringGrid1.ColCount-1 do
    StringGrid1.Cells[i,7]:= IntToStr(X[i]);
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:28.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter