Форум Игромании
Страница 51 из 715 « Первая 4147484950 51 5253545561101151551 Последняя »
Показывать 200 сообщений этой темы на одной странице

Форум Игромании (http://forum.igromania.ru/index.php)
-   Архив (Repúblika Banana) (http://forum.igromania.ru/forumdisplay.php?f=25)
-   -   Умный вопрос = умный ответ + полезная ссылка (http://forum.igromania.ru/showthread.php?t=114700)

де ла рива 08.11.2010 19:58
Цитата:
Сообщение от anti (Сообщение 8653950)
cколько молекул в 1 грамме алюминия?
27, так утверждают свыше.

NotSmoker 08.11.2010 20:10
Как в Serious Sam: the First Encounter поиграть в режиме co-op?

Rambo J.J. 08.11.2010 20:41
как вы с такими тормозами умудряетесь столько постить?

Digis 08.11.2010 21:53
кто растолкует што это за шняга на форуме про банк, тот молодец.

Цитата:
Сообщение от Rambo J.J. (Сообщение 8654196)
как вы с такими тормозами умудряетесь столько постить?
я шоп сюда добраться 5 раз страницу обновлял :((

Nikquest,
что за няшка на аватаре?

NotSmoker 08.11.2010 22:36
Digis, карма в кредит под проценты, вклады кармы под проценты, покупка акций, передача кармы от юзера к юзеру.

Bad Gateway 08.11.2010 22:55
Какое на виндовс наиболее норм приложение для соединения по SSH протоколу?

Car1son 08.11.2010 22:59
Цитата:
Сообщение от Bad Gateway (Сообщение 8654700)
Какое на виндовс наиболее норм приложение для соединения по SSH протоколу?
Putty

Лео Бонарт 08.11.2010 23:06
Какие еще издания, кроме Игромании, поставили Мафии 2 9 или больше баллов?

Скрытый текст:
Составляю черный список.

Lasair 09.11.2010 00:11
Лео Бонарт,
Нарыл: (больше 9 баллов никто не поставил (кроме маньки и 3d news)

Зарубежные издания
Скрытый текст:
Издание Оценка
Eurogamer 4/10
GamePro 3.5/5
GameSpot 8.5/10
IGN 7/10
Official Xbox Magazine 7/10
PC Gamer UK 78 %
1UP.com B
Edge 6/10
GamesTM 8/10
ITC.UA 4/5


Российские издания
Скрытый текст:
Издание Оценка
3DNews 9/10
PC: 7.0/10
Xbox 360: 6.6
PS3: 6.0/10
Игромания9.5/10


Рейтинг на основании нескольких рецензий
Скрытый текст:
Агрегатор Рейтинг
Game Rankings PC: 75.43%
Xbox 360: 76.59%
PS3: 74.71%
Metacritic PC: 77/100
Xbox 360: 74/100
PS3: 75/100

Nikquest 09.11.2010 01:56
Цитата:
Сообщение от Digis (Сообщение 8654430)
Nikquest,
что за няшка на аватаре?
Элисон Кэррол.

Без_Имени 09.11.2010 08:31
Нужна помошь программеры есть, тут паскаль но не работает, в чем ошибка?

Скрытый текст:
PROGRAM NUM;
procedure Perebor (sl:string);
var i,k,mesto:integer;var f:text;var mas:array[1..201of string;
BEGIN i:=1;
While (mas[i1<>sl) and (i < 20 ) do i:=i+1;
If mas[i1= sl then Writeln('слово найдено, его место в таблице = ',i,'количество сравнений = ',i)
Else Writeln('слово не найдено');
END;
Var sl: string; var i,n,op,k,mesto:integer;var f:text;var mas:array[1..201of string;
st2: string;
BEGIN
assign(f,'tabl.txt');
reset(f);
i:=1; n:=1; readln(f,st2);
while n<= Length(st2) do
begin
While st2[n1<>' ' do begin
mas[i1:= mas[i1+st2[n1; n:=n+1; end;
Write(mas[i1,' ');
n:=n+1; i:=i+1;
end;
Writeln('введите искомое слово');
Readln(sl); Writeln('для поиска перебором нажмите1, для бинарного поиска нажмите 2');
Readln(op);
If op= 1then Perebor(sl) Else Binar(sl);
END.


И про бинарник расскажите?

Cap Danger! 09.11.2010 09:34
Посоветуйте годные институты в Москве, куда можно пойти учиться на пиар.

Аve Lecter 09.11.2010 10:15
Без_Имени, не тот форум выбрал для вопроса своего.

Без_Имени 09.11.2010 10:27
Цитата:
Сообщение от Аve Lecter (Сообщение 8655681)
не тот форум выбрал для вопроса своего.
Ну подскажи тот если знаешь?

Аve Lecter 09.11.2010 11:11
Без_Имени, не знаю, не увлекаюсь программингом.

Лео Бонарт 09.11.2010 11:13
Цитата:
Сообщение от Без_Имени (Сообщение 8655528)
Нужна помошь программеры есть, тут паскаль но не работает, в чем ошибка?

Скрытый текст:
PROGRAM NUM;
procedure Perebor (sl:string);
var i,k,mesto:integer;var f:text;var mas:array[1..201of string;
BEGIN i:=1;
While (mas[i1<>sl) and (i < 20 ) do i:=i+1;
If mas[i1= sl then Writeln('слово найдено, его место в таблице = ',i,'количество сравнений = ',i)
Else Writeln('слово не найдено');
END;
Var sl: string; var i,n,op,k,mesto:integer;var f:text;var mas:array[1..201of string;
st2: string;
BEGIN
assign(f,'tabl.txt');
reset(f);
i:=1; n:=1; readln(f,st2);
while n<= Length(st2) do
begin
While st2[n1<>' ' do begin
mas[i1:= mas[i1+st2[n1; n:=n+1; end;
Write(mas[i1,' ');
n:=n+1; i:=i+1;
end;
Writeln('введите искомое слово');
Readln(sl); Writeln('для поиска перебором нажмите1, для бинарного поиска нажмите 2');
Readln(op);
If op= 1then Perebor(sl) Else Binar(sl);
END.


И про бинарник расскажите?
Скрытый текст:
http://forum.ixbt.com/?id=26

Rambo J.J. 09.11.2010 11:42
Без_Имени, в школе проходил это, но уже года 4 как не занимаюсь, так что вряд ли помогу(хоть и команды знакомые %)), а при компиляции он не показывает ошибку?

разве перед последним энд не должно быть что-то? может writeln, не?

Без_Имени 09.11.2010 11:51
Rambo J.J.,
Нет просто не работает,

Попробую writeln хм может получится

Cap Danger! 09.11.2010 13:54
var i,k,mesto:integer;var f:text;var mas:array[1..201of string; область значений массива не закрыл

var i,k,mesto:integer;f:text;mas:array[1..201] of string;

Еще перед End должно стоять Readln.

Steklov 09.11.2010 14:57
Цитата:
Сообщение от Без_Имени (Сообщение 8655528)
в чем ошибка?
он как бы должен выдавать ошибку в нужной строки.
и разве в паскале есть тип данных текст? я думал только стринг.

Энивей, почему я создал щас новую запись на фри-торрентах, но когда захожу в эту тему, он пишет что ее не существует?
а скачать то хочется -_-


Часовой пояс GMT +4, время: 00:15.
Страница 51 из 715 « Первая 4147484950 51 5253545561101151551 Последняя »
Показывать 200 сообщений этой темы на одной странице

Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.