0 / 0 / 1
Регистрация: 06.02.2018
Сообщений: 307
1

Нужно код из паскаль перевести в делфи (сортировка выбором), код ниже и условие

27.04.2018, 23:27. Показов 848. Ответов 1
Метки нет (Все метки)

нужно добавить в процедуру делфи код сортировки выбором из паскаль чтобы сортировало
код делфи
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
procedure TForm1.Button18Click(Sender: TObject);
type
tinfo = record
nazv:string[20]  ;
kolvo:string;
cena:string;
cbet:string;
obem:string;
mesta:string;
god:string;
end;
var
F:textfile;
rec:array[1..300] of tinfo;
i,a:integer;  x1:tinfo;
ii:integer;
begin
for i :=1 to sg.RowCount-1 do
begin
rec[i].nazv:=sg.cells[0,i];
rec[i].kolvo:=sg.cells[1,i];
rec[i].cena:=sg.cells[2,i];
rec[i].cbet:=sg.cells[3,i];
rec[i].obem:=sg.cells[4,i];
rec[i].mesta:=sg.cells[5,i];
rec[i].god:=sg.cells[6,i];
end;
begin
 for ii:=1 to sg.RowCount-2 do
 for i:=1 to sg.RowCount-2 do
 if rec[i].obem>rec[i+1].obem then
 begin
 x1:=rec[i];
 rec[i]:=rec[i+1];
 rec[i+1]:=x1;
 end;
 end;
 for i:=1 to sg.rowcount-1 do
 begin
 sg.cells[0,i]:=rec[i].nazv;
 sg.cells[1,i]:=rec[i].kolvo;
 sg.cells[2,i]:=rec[i].cena;
 sg.cells[3,i]:=rec[i].cbet;
 sg.cells[4,i]:=rec[i].obem;
 sg.cells[5,i]:=rec[i].mesta;
 sg.cells[6,i]:=rec[i].god;
 end;
 end;
код паскаль сортировки
Pascal
1
2
3
4
5
6
7
8
9
10
for i := 1 to  N-1  do begin
  nMin = i ;
  for j:= i+1 to N do
    if A[j] < A[nMin] then nMin:=j; 
  if nMin <> i then begin
    c:=A[i]; 
    A[i]:=A[nMin]; 
    A[nMin]:=c;
  end;
end;

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

Перевести код Паскаль в Делфи
Помогите перевести код из Паскаль в Делфи program by00d1m3; var a : array of single; blue,...

Отсортировать код ниже по данному условию:(Ключ: скидка клиента. Сортировка выбором. )
#include using namespace std; struct client{ string fio; string address; double discount; };...

Нужно код делфи переписать на паскаль
Дан двухмерный массив размером nxn, заполненный целыми числами а) все его отрицательные элементы...

Нужно перевести код из С++ в Паскаль
Язык С++ совершенно не знаю, а времени чтобы понять его -нет. Завтра уже нужно сдавать программу....

1
Модератор
1436 / 1011 / 228
Регистрация: 31.05.2013
Сообщений: 6,645
Записей в блоге: 6
30.04.2018, 01:44 2
Фигня какая-то... Вы смотрите, что пишете?
Цитата Сообщение от kalanda Посмотреть сообщение
Delphi
1
if rec[i].obem>rec[i+1].obem then
при том, что
Цитата Сообщение от kalanda Посмотреть сообщение
Delphi
1
obem:string;
Что Вы сравнить пытаетесь? Длину? Тогда напишите, по-человечески:
Delphi
1
if Length(rec[i].obem)>Length(rec[i+1].obem) then
Хотя логика здесь более, чем странная...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2018, 01:44
Помогаю со студенческими работами здесь

Хелп! нужно перевести код с Делфи на С++
Может есть прога для перевода и соблюдения синтаксиса? я хз... спасибо

Код Паскаль)вот эту часть нужно перевести на С++
program elmgmv; uses Grt,Graph;

Нужно перевести код (сортировка) с VB на C# (среда VS 2010)
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...

Перевести код из паскаль АБС в фри паскаль
Необходимо перевести этот код из паскаля АБЦ в фрипаскаль Спасибо! program test; const n=20;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru