ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
19.04.2009, 12:17
|
|
Новичок
Регистрация: 03.01.2009
Сообщений: 27
Провел на форуме:
367442
Репутация:
41
|
|
Как сделать, чтобы функция в делфи возвращала динамический массив?
|
|
|
19.04.2009, 17:51
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 46
Провел на форуме:
123070
Репутация:
9
|
|
Сообщение от Markus_13
я тоже КЛ получить не могу, пробовал с SSL работать - у меня тоже не пашет, хотя вроде правильно, видать последнее изменение протокола было серьезным...
короче халява кончилось - надо самому вникать в оскар-протокол))
это самоубийство я ещё совсем молод и хочу пожить нормально)
|
|
|
|
19.04.2009, 20:13
|
|
Участник форума
Регистрация: 26.02.2009
Сообщений: 227
Провел на форуме:
1564765
Репутация:
208
|
|
СРОЧНО помогите!
1) Заполнить масив A(n,m) единицами по главной диагонали остальные элементы произвольные числа. Заполнить массив по второй диагонали значением суммы элементов по 2 строке массив распечатать.
|
|
|
|
19.04.2009, 20:31
|
|
Постоянный
Регистрация: 06.04.2009
Сообщений: 383
Провел на форуме:
1288105
Репутация:
328
|
|
procedure add(var a:mas);
var i,j:byte;
begin
for i=0 to n do
for j=0 to m do
if i=j then a[i,j]:=1
else
if (n-i)=j then
begin
"Здесь добавь второе условие для второй диагонали, просто я не понял его"
end
else
a[i,j]:=random(xxx);
end;
//////////////////
procedure print(a:mas);
var i,j:byte;
begin
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]);
writeln
end;end;
Заполнить массив по второй диагонали значением суммы элементов по 2 строке массив распечатать.
это условие я не понял и пропустил. И ПРОВЕРЬ НА СИНТАКСИЧЕСКИЕ ОШИБКИ я просто давно занимался этим языком
Последний раз редактировалось REBUUS; 19.04.2009 в 21:03..
|
|
|
|
19.04.2009, 20:45
|
|
Участник форума
Регистрация: 26.02.2009
Сообщений: 227
Провел на форуме:
1564765
Репутация:
208
|
|
т.у выводиться массив 1 диагональ единицы а вторая диагональ выводиться суммой по 2 строке
|
|
|
|
19.04.2009, 20:48
|
|
Постоянный
Регистрация: 06.04.2009
Сообщений: 383
Провел на форуме:
1288105
Репутация:
328
|
|
c суммой по 2 строке как понять ? что с кем суммировать ?
|
|
|
|
19.04.2009, 21:00
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
1) Заполнить масив A(n,m) единицами по главной диагонали остальные элементы произвольные числа. Заполнить массив по второй диагонали значением суммы элементов по 2 строке массив распечатать.
сделал (Turbo Pascal 7.1):
Код:
program BAOFY;
uses crt;
const n=10; m=n;
{esli n<>m - diagonal' ya hz kak opredelit' =)}
var a:array[1..n,1..m]of integer;
x,y,s:integer;
begin
clrscr;
randomize;
for x:=1 to n do for y:=1 to m do
if(x=y)then a[x,y]:=1 else a[x,y]:=random(10);{zapolnenie massiva}
s:=0;for x:=1 to n do s:=s+a[x,2];{summa 2 stroki}
for x:=1 to n do a[x,m-x+1]:=s;{2 diagonal'}
for y:=1 to m do begin for x:=1 to n do
write(' ',a[x,y]);writeln;end;{vyvod massiva}
readkey;
end.
|
|
|
|
19.04.2009, 21:02
|
|
Участник форума
Регистрация: 26.02.2009
Сообщений: 227
Провел на форуме:
1564765
Репутация:
208
|
|
ну если массив из 5 элементов сумируешь 1 2 3 5 элемент
|
|
|
|
19.04.2009, 21:06
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
Как сделать, чтобы функция в делфи возвращала динамический массив?
Код:
//...
type dynmas=array of string;
//...
function strz(s1,s2:string):dynmas;
begin
setLength(result,2);
result[1]:=s1;
result[2]:=s2;
end;
//...
типо того...))
|
|
|
|
19.04.2009, 21:29
|
|
Новичок
Регистрация: 03.01.2009
Сообщений: 27
Провел на форуме:
367442
Репутация:
41
|
|
Сообщение от Markus_13
Код:
//...
type dynmas=array of string;
//...
function strz(s1,s2:string):dynmas;
begin
setLength(result,2);
result[1]:=s1;
result[2]:=s2;
end;
//...
типо того...)) а без type никак? 
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
