Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
17.03.2010, 21:02
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
zer0ska, вот слушай, когда сервер тебе отвечает он тебе посылает свои хеддеры в которых указан размер данных (в символах)(Content-Length), вот его считываешь и потом постепенно принимаешь символы от сервера (т.е. ответ от сервера)(while цикл тебе поможет)
Это все не сложно делается!
|
|
|
17.03.2010, 21:19
|
|
Участник форума
Регистрация: 05.12.2007
Сообщений: 113
Провел на форуме:
252598
Репутация:
34
|
|
Сообщение от wolmer
zer0ska, вот слушай, когда сервер тебе отвечает он тебе посылает свои хеддеры в которых указан размер данных (в символах)(Content-Length), вот его считываешь и потом постепенно принимаешь символы от сервера (т.е. ответ от сервера)(while цикл тебе поможет)
Это все не сложно делается!
это я понел но реализовать чстно говоря не знаю как =)
с while for знаком но не выходит что то =((
|
|
|
|
17.03.2010, 21:47
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
MaTpOc вот точный код программы! сорри что сразу норм не написал... спасибо Soherox
PHP код:
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i] > max then
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then
begin
imin:=i;
min:=a[i];
end;
end;
if imin = imax then write('0')
else write(abs(imin - imax) - 1);
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 17.03.2010 в 21:54..
|
|
|
|
17.03.2010, 22:06
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449
Репутация:
1357
|
|
Сообщение от EndLeSSDre@M
MaTpOc вот точный код программы! сорри что сразу норм не написал... спасибо Soherox
PHP код:
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i] > max then
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then
begin
imin:=i;
min:=a[i];
end;
end;
if imin = imax then write('0')
else write(abs(imin - imax) - 1);
readln;
end.
не выводит кол-во
|
|
|
|
17.03.2010, 21:52
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Блин не успел свое запостить ((
EndLeSSDre@M, а зачем два раза массив заполнять, в 1 и во 2 цикле?
|
|
|
|
17.03.2010, 21:54
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от fenixelite
Блин не успел свое запостить ((
EndLeSSDre@M, а зачем два раза массив заполнять, в 1 и во 2 цикле?
оп))) опять скосячил))) спасибо)
|
|
|
|
17.03.2010, 22:04
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
EndLeSSDre@M, незачто )) Мы с тобой вообще одинаково сделали, ток переменные разные ))
|
|
|
|
17.03.2010, 22:09
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
Поправь abs(imax-imin)-1
|
|
|
|
17.03.2010, 22:12
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
Сообщение от fenixelite
Поправь abs(imax-imin)-1
А разница? abs(imax-imin) = abs(imin-imax), abs это модуль 
|
|
|
|
17.03.2010, 22:14
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
вот кароче так попробуй
PHP код:
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[i] > max then
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then
begin
imin:=i;
min:=a[i];
end;
end;
n=abs(imin - imax) - 1
if n=0 then writeln('0')
else writeln(n);
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 17.03.2010 в 22:18..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид