ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
10.12.2009, 20:38
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Ех, опоздал, но все же выложу и свой вариант.
Код:
const n=5;
type
matrix=array[1..n, 1..n] of integer;
procedure readmatrix (var mas:matrix);
var
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
readln (mas[i,j]);
end;
function provmatrix (var mas:matrix):boolean;
var
i,j:integer;
k:integer;
begin
provmatrix:=false;
for i:=1 to n do
begin
for j:=1 to n do
begin
if mas [i,j] = 0 then
k:=k+1;
if k>1 then
exit;
end;
k:=0;
end;
provmatrix:=true;
end;
procedure sortmatrix (var mas:matrix);
var
i,j:integer;
index:integer;
mas2:matrix;
begin
for i:=1 to n do
for j:=1 to n do
begin
if mas[j,i]=0 then
begin
for index:=1 to n do
mas2[i,index]:=mas[j,index];
end;
end;
mas:=mas2;
end;
procedure writematrix (mas:matrix);
var
i,j:integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j], ' ');
writeln;
end;
end;
var
m:matrix;
begin
readmatrix (m);
if provmatrix (m) = true then
begin
sortmatrix (m);
writematrix (m);
end;
readln;
end.
Вроде у StealthMaster'а заморочек побольше, у меня попробще для пониманию новичку, хотя, может быть, я и не прав. |
|
|
10.12.2009, 22:42
|
|
Новичок
Регистрация: 09.12.2009
Сообщений: 23
Провел на форуме:
42989
Репутация:
0
|
|
Ребята большое спасибо!!!!
особенно:
Thenno
и
StealthMaster
|
|
|
|
10.12.2009, 22:51
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284
Репутация:
52
|
|
как можно замочить зомби процесс если его не берет TerminateProcess с правами отладчика....
|
|
|
|
11.12.2009, 00:52
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
помогите плз....передо мной вот такое задание, а в Паскале - почти 0...(
"Обчислити суму квадратів елементів, значення яких більші, ніж 1."
рус
"Знайти суму квадратов элиментов, значение которых больше, чем 1."
|
|
|
|
11.12.2009, 14:03
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от TPAXTOP
помогите плз....передо мной вот такое задание, а в Паскале - почти 0...(
"Обчислити суму квадратів елементів, значення яких більші, ніж 1."
рус
"Знайти суму квадратов элиментов, значение которых больше, чем 1."
Как я понял, сумма квадратов это n^2 + (n+1)^2 и так далее.
Код:
const
n=3;
var
a,i,k:integer; {если могут быть дробные, то integer меняй на real}
begin
k:=0;
for i:=1 to n do
begin
readln (a);
if a>1 then
k:=k+sqr (a);
end;
writeln ('Sum is ', k);
readln; //для ТурбоПаскаля
end.
P.S А вообще, примеров решения подобных задач полно в Googl'е. И я еще не говорю про учебники.
|
|
|
|
13.12.2009, 14:29
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
Сообщение от Thenno
Как я понял, сумма квадратов это n^2 + (n+1)^2 и так далее.
Код:
const
n=3;
var
a,i,k:integer; {если могут быть дробные, то integer меняй на real}
begin
k:=0;
for i:=1 to n do
begin
readln (a);
if a>1 then
k:=k+sqr (a);
end;
writeln ('Sum is ', k);
readln; //для ТурбоПаскаля
end.
P.S А вообще, примеров решения подобных задач полно в Googl'е. И я еще не говорю про учебники. Спасибо за решение. Да, может инфы и куча, но я не в силах сейчас все освоить. В связи с этим карантином одна практика, лекций нет...никто ничего не понимает...спасаются кто как может.
|
|
|
|
11.12.2009, 20:03
|
|
Новичок
Регистрация: 28.08.2009
Сообщений: 1
Провел на форуме:
4389
Репутация:
0
|
|
в паскале нужно удалить из массива (0,2,0,4,0,6...20) нули..
|
|
|
|
11.12.2009, 22:03
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от coltus
в паскале нужно удалить из массива (0,2,0,4,0,6...20) нули..
Код:
const n=5;
var
a,b:array[1..n] of integer;
i,index:integer;
begin
index:=1;
for i:=1 to n do
readln (a[i]);
for i:=1 to n do
if a[i]<>0 then
begin
b[index]:=a[i];
index:=index+1;
end;
a:=b;
for i:=1 to index-1 do
write (a[i]);
end.
Люди, юзайте Google хоть для таких-то примеров, там ВСЕ это есть.
P.S Решение, приведенное выше, не самое мега-лучшее, но зато более наглядное, ибо без сильных заморочек.
|
|
|
|
11.12.2009, 21:46
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
Где метод для рисовки на канву TPanel ????
|
|
|
|
12.12.2009, 00:04
|
|
Новичок
Регистрация: 26.11.2009
Сообщений: 20
Провел на форуме:
88440
Репутация:
60
|
|
Сообщение от _nic
Где метод для рисовки на канву TPanel ????
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
cc: TControlCanvas;
begin
cc := TControlCanvas.Create;
cc.Control := Panel1;
cc.MoveTo(0,0);
cc.LineTo(Panel1.Width,Panel1.Height);
end;
Сообщение от Ponchik
tcpclnt1 это открытый порт
мне надо читать чё мне сервер говорит - tcpclnt1.Reciveln Если сервер послал 2 строки, а я захочу прочитать 3 раза tcpclnt1.Reciveln то прога завснет, будет ждать 3 строку, как мне узнать, сколько нужно читать tcpclnt1.Reciveln?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид