VPF::stringgrid - Форум программистов

111q

Дата 11.5.2008, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.5.2008

Репутация: нет
Всего: нет

Помогите пожайлуста переделать из паскаля в дельфи такую программу с использованием стринггрида (т.е. как я ппонимаю надо чтоб в стриннгрид1 ввелась рондомом матрица а во второй стринггрид поместить результат) . Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан масив целых чисел A[M,N], где M,N<=10. Удалить все столбцы, в которых нет нулевого элемента. Использовать стринггрид. Вот код на паскале.

Код


program Task;
uses crt;
type mas=array [1..10,1..10] of integer;
var a:mas;
    m,n:integer;

procedure InputArray(var a:mas;var m,n:integer);
var i,j:integer;
    k:boolean;
begin
k:=true;
while k do begin
write('Vvedite razmer massiva (m,n): ');
readln(m,n);
if (m>10) or (n>10) then writeln('Error!Razmer bolshhe 10!!')
else k:=false;
end;
{
writeln('Vvedite massiv razmerom ',m,' x ',n); }
for i:=1 to m do
for j:=1 to n do begin
   write('a[',i,',',j,']=');
   read(a[i][j]);
   end;
end;

procedure DelCount(var a:mas;m:integer;var n:integer);
var i,j,i2,j2:integer;
    f:boolean;
begin
f:=true;
j:=1;
while j<=n do begin
if not(f) then begin
  for i2:=1 to m do
   for j2:=j-1 to n-1 do
    a[i2][j2]:=a[i2][j2+1];
   n:=n-1;
   j:=j-1;
  end
  else f:=false;
for i:=1 to m do
  if a[i][j]=0 then f:=true;
j:=j+1;
end;
f:=false;
for i:=1 to m do
  if a[i][n]=0 then f:=true;
if not(f) then n:=n-1;
end;

procedure OutputArray(a:mas;m,n:integer);
var i,j:integer;
begin
if n=0 then writeln('Stolbci ne soderzhat 0-elementov!')
else
for i:=1 to m do begin
writeln;
for j:=1 to n do
  write(' ',a[i][j]);
  end;
end;

begin
clrscr;
InputArray(a,m,n);
writeln;
writeln('Ishodnaia matrica: ');
OutputArray(a,m,n);
DelCount(a,m,n);
writeln;
writeln;
writeln('Rezultat: ');
OutputArray(a,m,n);
readln;
readln;
end.

Albinos_x

Дата 11.5.2008, 15:14 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

хм... а у тебя чего не получается?

Добавлено через 30 секунд
может Вам всё таки в раздел помощи?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

111q

Дата 11.5.2008, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.5.2008

Репутация: нет
Всего: нет

у меня не получается преобразовать эту задачу на дельфи при помощи стрингрида

Albinos_x

Дата 12.5.2008, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

ну смотри сам, процедура InputArray(var a:mas;var m,n:integer); тебе не нужна, т.к. ввод будет в грид и читать нужно непосредственно из него
процедура OutputArray(a:mas;m,n:integer); тебе не нужна, т.к. запись можно производить сразу в грид и выводить введённое тебе не нужно...
а далее всё просто, пишешь в массив из грида, делаешь вычисления по приведённому коду, записываешь из массива во второй грид

В чём собственно говоря сложность?

Добавлено через 2 минуты
если не знаешь как пользоваться гридом, то F1, т.е. читаем справку, пользуемся поиском на форуме, тут далеко идти не нужно, соседний топик уже пример содержит http://forum.vingrad.ru/forum/topic-210625...ry/0.html#entry

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »