Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 09.11.2019
Сообщений: 11
1
Delphi 6-7

Разработать алгоритм методом пошаговой детализации и программу, реализующую этот алгоритм

16.01.2020, 23:28. Просмотров 392. Ответов 3
Метки нет (Все метки)

Расставить строки данной матрицы в порядке возрастания
наибольших элементов в строках.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2020, 23:28
Ответы с готовыми решениями:

Разработать алгоритм методом пошаговой детализации и программу решения задачи
Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой найти...

Разработать алгоритм методом пошаговой детализации
Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой...

Разработать алгоритм методом пошаговой детализации
Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой...

Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из текстового файла. Результаты работы программы также помести
Разработайте алгоритм и программу, реализующую этот алгоритм. Исходные данные вводите из...

3
1530 / 726 / 292
Регистрация: 19.03.2019
Сообщений: 2,369
17.01.2020, 10:06 2
Цитата Сообщение от Angiiii Посмотреть сообщение
алгоритм методом пошаговой детализации
а что это алгоритм такой?
0
Модератор
60862 / 45683 / 31521
Регистрация: 18.05.2008
Сообщений: 109,916
17.01.2020, 10:12 3
https://studref.com/311818/inf... algoritmov
Просто написать подпрограммы, например
-ввод
-поиск максимального в строках
-сортировка строк как элементов массива
-вывод
1
Модератор
60862 / 45683 / 31521
Регистрация: 18.05.2008
Сообщений: 109,916
17.01.2020, 11:10 4
Вариант для Делфи 7.
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
88
89
90
{$R *.dfm}
type mas=array of integer;
     mtr=array of mas;
function max(a:mas;n:integer):integer;
var i:integer;
begin
result:=a[0];
for i:=1 to n-1 do
if a[i]>result then result:=a[i];
end;
procedure vvod(var a:mtr;var m,n:integer;e1,e2:TEdit;sg:TStringGrid);
var i,j:integer;
begin
if not TryStrToInt(e1.Text,m)or(m<2)then
 begin
  ShowMessage('Введите количество строк целое число больше 1');
  e1.Clear;
  e1.Setfocus;
  exit;
 end;
if not TryStrToInt(e2.Text,n)or(n<2)then
 begin
  ShowMessage('Введите количество столбцов целое число больше 1');
  e2.Clear;
  e2.Setfocus;
  exit;
 end;
SetLength(a,m);
for i:=0 to m-1 do
SetLength(a[i],n+1); //1 столбец для максимума
randomize;
with sg do
 begin
  fixedrows:=1;
  fixedcols:=0;
  rowcount:=m+1;
  colcount:=n+1;
  defaultcolwidth:=30;
  cells[n,0]:='max';
  for i:=0 to m-1 do
   begin
    for j:=0 to n-1 do
     begin
      a[i,j]:=random(100);
      cells[j,i+1]:=inttostr(a[i,j]);
     end;
    a[i,n]:=max(a[i],n);
    cells[n,i+1]:=inttostr(a[i,n]);
   end;
 end;
end;
procedure sort(var a:mtr;m,n:integer);
var x:mas;
    i,j:integer;
begin
for i:=0 to m-2 do
for j:=i+1 to m-1 do
if a[i,n]>a[j,n] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
procedure vyvod(a:mtr;m,n:integer;sg:TStringGrid);
var i,j:integer;
begin
with sg do
 begin
  fixedrows:=1;
  fixedcols:=0;
  rowcount:=m+1;
  colcount:=n+1;
  defaultcolwidth:=30;
  cells[n,0]:='max';
  for i:=0 to m-1 do
   begin
    for j:=0 to n do
    cells[j,i+1]:=inttostr(a[i,j]);
   end;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:mtr;
    m,n:integer;
begin
vvod(a,m,n,Edit1,Edit2,StringGrid1);
sort(a,m,n);
vyvod(a,m,n,StringGrid2);
end;
0
Вложения
Тип файла: zip 1111.zip (229.1 Кб, 2 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2020, 11:10

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

Разработать программу реализующую алгоритм sin x
Помогите составить в программе PascalABC программу реализующую алгоритм sin x! Пожалуйста! заранее...

Разработать программу, реализующую алгоритм очереди (20 элементов)
Здравствуйте! Есть такое задание: Разработать программу, реализующую алгоритм очереди (20...

Разработать программу, реализующую алгоритм стека (20 элементов). Задача решается в двух вариантах: статическом и динамическом
Разработать программу, реализующую алгоритм стека (20 элементов). Задача решается в двух вариантах:...

Используя метод детализации разработать алгоритм программы
Используя метод детализации разработать алгоритм программы, вычисления выражения у = 1• 1/3• 1/5...


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

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

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