PDA

Просмотр полной версии : Помогите!


Тарифы: МТС, Билайн, МегаФон
Выгодные непубличные тарифы МТС, Билайн, МегаФон, Безлимитный интернет ✅
Сердитый
08-06-2006, 22:18
Завтра у меня зкзамен по информатике.
Вообщем там есть такая задачка: "Составьте программу определения суммы и произведения чисел на отрезке от a до b, введенных с клавиатуры." Всё это делать надо на Turbo Pascale.
Вот моё решение:
Program Z;
var i, a, b, S, P: integer;
begin
writeln ('vvedite a u b');
readln (a,b);
S:=0;
P:=1;
for i:=a to b do
begin
S:=S+i;
P:= P*i;
end;
writeln ('cymma=', S, 'proizv=', P);
end.
Нипойму в чем косяк? Прога, то запускается, но данные выдаёт не те!
Надеюсь на вашу помощь!!!

Сердитый
08-06-2006, 22:25
1000 извенений за флуд.
Ну же рябята из УГАТУ, вам же эта задачка для потехи!
Помогите!!!
И все кто хоть чуть-чуть разбирается в програмировании, помогите!

ЧапЛин
08-06-2006, 22:53
одна из моих задач, надеюсь поможет.
program Zada4a;
var x,n,p:integer;
begin
x:=0;
writeln('wwedite n');
readln(n);
repeat
p:=n mod 10; n:=n div 10;
x:=p+x;
writeln('summa cisel:x);
until n=0;
readln;
end.
(УТЭК)

Whereismymind
08-06-2006, 23:15
у меня вроде все правильно работает .....
Советую для красоты очищять экран....
Program z;
uses crt;
....
begin
clrscr;
....

Сердитый
08-06-2006, 23:24
За очищение экрана спасибо!
А всё же хрень какая-то! Как такое может быть, что а=2, b=4, то сумма=9, произ=24!
Всё нах свихнулся я!

masteer
08-06-2006, 23:47

ты массив используешь, а он у тебя не описан и не задан как положено.

Сердитый
08-06-2006, 23:59
Так как же его надо использовать и описывать?

Zloveshiy HOHOL
09-06-2006, 00:32
Эх, сынок, всё играешь(с):)

Whereismymind
09-06-2006, 00:33
а=2
б=4
2+3+4=9
2*3*4=6*4=24
Все правильно .
(УГНТУ форева)

beam
09-06-2006, 00:37
вы меня простите конечно, за дурную математику и за поздноту ответа, но если у вас целые числа задаются, то получаетси
2+3+4=9,
а 2*3*4=24
это же все правильно...

Стражник чести
09-06-2006, 00:59
Вот так оно бывает и на экзаменах тоже. Стопор называется. Уперся в столб, а рядом стоящие ивы не видишь...

Сердитый
09-06-2006, 10:51
Большое спасибо всем кто помог!
Сдал на 5!
Следующий зкзамен по физике, так что ждите вопросы:)

Danuuk
09-06-2006, 11:23
гы... ахренеть, с такими знаниями, но пять... ))) Ы-ы-ы..

Kolos
09-06-2006, 11:37
где ты там массив увидел?)))

Tims
09-06-2006, 12:32
читаю, плачу... будь я работодателем .... :D

eusi
09-06-2006, 12:38
поэтому ты и не работодатель. плачешь много и часто

Чифу
09-06-2006, 12:42
Опять неработаить :)
a=1 b=8 S=36 P=-25216
a=0 b=1 S=1 P=0
a=1 b=256 S=-32640 P=0

eusi
09-06-2006, 12:44
тип поменяй с интеджер на лонгинтеджер

ахахаха
09-06-2006, 12:48
шутко с массивом понравилась ^^

Чифу
09-06-2006, 12:48
А нафига тут интеджер вообще, если начало в "-" или 0, а конец в "+", то P всегда будет 0. :)
longint
a=1 b=146543 S=-2147403192
a=1 b=12 P=479001600
a=1 b=13 P=1932053504, а должно быть ~5*10^8*13=~65*10^8
real даёт 6227020800 и работает до 33

eusi
09-06-2006, 12:52
Р - это произведение? оно будет 0 тогда и только тогда, когда один из сомножителей - 0

Чифу
09-06-2006, 13:07
Я имел ввиду, что когда на отрезке есть 0, то произведение всегда будет 0.

eusi
09-06-2006, 13:17
переполнение по типу данных произошло. когда в интеджере 20000+20000 делаешь, не удивляйся, если будет -1, потому что максимальный интеджер = 32768

Чифу
09-06-2006, 14:00
:) Какой глупый компьютер, миллиарды рублей нельзя сосчитать.

eusi
09-06-2006, 14:05
считай на визуал бейсике. там есть тип вариант, он любые числа хавает как нефиг делать. паскаль - учебный язык, у него ограничения по типам очень суровые. потому что он не с реальным компьютером работает, а с его виртуальной моделью

Иллюзия
09-06-2006, 15:34
+1 и программирование!:)
ЗЫ И вообще не написали концы включать или нет...

Чифу
09-06-2006, 15:53
Гаусс, будучи школьником, сумму ряда от 1 до 100 вычислил в уме, аналитически. :)

eusi
09-06-2006, 15:55
я тоже так сделал будучи школьником. только потом узнал, что гаусс сделал это раньше. 101 умножить на 50. это элементарно

Чифу
09-06-2006, 16:12
Ну вот, для таких рядов должна быть аналитическая формула.

eusi
09-06-2006, 16:16
р=(н+1)*н/2

Kolos
09-06-2006, 16:42
кхмммм.... можно отсюда пападробней?

Чифу
13-06-2006, 14:00
А для факториала ещё не придумали? :)

eusi
13-06-2006, 14:02
если бы для факториала существовала аналитическая формула, факториал не был бы отдельной функцией :D

eusi
13-06-2006, 14:03
почитай про паскаль-машину у вирта, автора паскаля

Tims
13-06-2006, 14:38
тут я уже просто смеюсь :D

зы: Колас, откуда такие програмеры беруцца?

eusi
13-06-2006, 14:39
пижон ты, батенька

Tims
13-06-2006, 14:44
да я не пижоню... просто тоже хочу поумничать так же как и ты... вот только меня смешат некоторые тут высказывания

eusi
13-06-2006, 14:44
и что именно?

MDK
13-06-2006, 14:49
Не лучше на ассемблере програмируй, а еще лучше сразу в машинных кодах пиши:D :D :D

Tims
13-06-2006, 14:52
да что объяснять то... почитайте литературу по паскалю... которая выпущена была не раньше 90-х годов

eusi
13-06-2006, 14:56
ну и что. если речь идет о борланд паскале, то к нему все это относится. фри паскаль я не трогаю. делфи тоже

Tims
13-06-2006, 15:00
пилять.... где это в Борланд Паскале находицца виртуальная машина??? и что за такой фри-Паскаль????

eusi
13-06-2006, 15:05
http://www.freepascal.org/ классная вещь, кстати. есть версии под винду и линуху и еще под что-то. интерфейс чисто борландовский досовский, но и под 32 разряда неплохо можно писать, хотя и геморройно. а виртуальная машина - это собственное пространство адресов

Tims
13-06-2006, 15:27
ну и что?
http://www.freepascal.org/ - просто куча компиляторов...
не вижу никаких взяимосвязей в твоих высказываниях.. уж извини

eusi
13-06-2006, 15:29
ну не видишь, так не видишь. какие проблемы? извиняю. считай, что морально задавил. поставил бы свечку святому тимсу прямо сейчас, только храм святого эникейщика далековато

Tims
13-06-2006, 15:33
да нет, просто не вижу дальнейшего смысла спорить с "непрофессионалом" в данной области... тока траффик жечь :D

eusi
13-06-2006, 15:34
не без взаимности :D

Tims
13-06-2006, 15:45
с программированием все ясно... теперь перейдем к математике... :D
1) факториал - НЕ ЯВЛЯЕТСЯ ФУНКЦИЕЙ...
2) для факториала, как ни странно есть аналитическая формула :D
3) у многих "отдельных" функций есть аналитические формулы... :D поэтому ваше утверждение не верно :D

eusi
13-06-2006, 15:47
все побоку, кроме второго пункта. можно ссылочку или саму формулу

Tims
13-06-2006, 15:51
см. справочник по вышке :D

eusi
13-06-2006, 15:54
ты тоже посмотри. бронштейн, семендяев. 1986 год. стр. 134 пункт 2.2.1.1. и что? ты про формулу стирлинга?

Tims
13-06-2006, 16:05
да хоть через гамму функцию...

eusi
13-06-2006, 16:08
:D :D :D ну и? ты хоть сам-то понял, что сказал? и где тут аналитическая формула?

Tims
13-06-2006, 16:12
мдяяяя... про разложение в ряды что-нибудь слышал, математик? по-твоему как вычиляется log, sin, cos в современных компиляторах?

eusi
13-06-2006, 16:17
слышал и про тейлора, и про фурье, и даже, ты не поверишь, про маклорена. чисто конкретные пацаны были, говорили старики. и что?
а что такое современные компиляторы? и чем они отличаются от современных депиляторов? а то мы как-то по старинке своим блондинкам волосы на лице щипчиками выщипываем, а потом молочаем смазываем.
а больше всего мне нравится, что ты и латинской раскладкой пользоваться умеешь. научи, а? будь ласка

Tims
13-06-2006, 16:19
да зачем тебя учить :D
я вижу у тебя богатая библиотека электронных книг... там почитай ;) :D

eusi
13-06-2006, 16:22
прямо в сердце ударил. экий ты злой, братец. сейчас все выкину, только конька-горбунка оставлю. и ты почитаешь, и тебе счастье будет

Neyron
13-06-2006, 16:32
на сколько я помню что бы разложить в ряд нужно что бы ф-ия была дифференцируема (что то коряво сказал, забыл термины) иными словами производная должна браться ,а у факториала ты как производную возьмешь?))

eusi
13-06-2006, 16:33
гамма-функция кусочно-дифференцируема

Чифу
13-06-2006, 16:38
Надо у Кнута посмотреть (если он не знает, то никто не знает :)), но насклько я знаю факториал любят через рекурсию вычислять.

eusi
13-06-2006, 16:40
даже в школьном учебнике есть алгоритм и пара программ вычисления факториала. не через ряды, конечно, к сожалению

Tims
15-06-2006, 11:44
а чере что? если ты такой спец, давай поспорим со мной эникейщиком, кто точнее подсчитает 100! :D или слабо?

eusi
15-06-2006, 11:48
давай. а кто рассудит?

Tims
15-06-2006, 11:50
сами рассудимся... главное - результат :)

eusi
15-06-2006, 11:52
если уж писями меряться, то нужен арбитр. до какого знака после запятой считать будем? :D

Tims
15-06-2006, 11:57
мне арбитр не нужен... выбирай себе.. я сам буду себя защищать в суде :D

eusi
15-06-2006, 12:02
http://soft32.ru/delphi.shtml?topic=...itle=factorial

Процедура для нахождения точного значения факториала числа.

Вы когда-нибудь находили факториал 10? - это легко, а 20?,а 100? Даже с помощью самого продвинутого калькулятора это не получится, (имею в виду точное значение, например в 100!-158 цифр, какой должен быть дисплей калькулятора, чтобы показать такое значение??!)C помощью программы содержащей алгоритм похожий на описанный, это можно сделать. Для такой программы нужна форма(form, содержащая такие компоненты Memo(имя в процедуре mmOutput), Maskedit(med),ProgressBar(PB-это не обязательно, но если считаешь очень большой факториал, то это занимает некоторое время, поэтому визуально следить за временем, оставшимся на вычисление, очень удобно). Идея программы: переменные в Delphi не могут содержать таких длинных чисел, поэтому здесь используется массив целых переменных, обрабатывая который и получаем нужный ответ. В результате можно считать факториалы многотысячных чисел, я считал 5000!,дальше считать долго, но возможно.


procedure TForm1.bbRunClick(Sender: TObject); //обработка события от мыши
var //это раздел указания переменных
result: string; //переменная result целого типа
M: array of integer;
//"M"- это матрица, или массив, причем динамический, то есть его размеры можно
F, i, j, k, n: integer;
//изменять, это увеличивает время выполнения программы, но интересно попробовать
begin
if med.text = '' then
med.text := '0'; //свойство text компонента med проверяется на наличие
n := StrToInt(Trim(MEd.Text));
//введенного числа, StrToInt-преобразование строки в число
if n < 4 then
exit; //trim-удаление пробелов из строки
PB.Max := (n + sqr(n)); //Это определение размеров PB
PB.Position := 0;
screen.Cursor := crHourGlass;
//появляется новый курсор, стандартный "виндовский"
setLength(M, 2); //определение границ массива
M[0] := 1; //присвоение 0-ому элементу массива М значения 1....
M[1] := 0;
k := 1;
for i := 1 to n do
begin
F := 0;
PB.StepBy(i * 2); //изменение показаний PB
for j := 0 to k do
begin
SetLength(M, k + 1);
M[j] := M[j] * i + F; //здесь основная идея программы
if (M[j] div 10) > 0 then
k := k + 1;
F := M[j] div 10;
M[j] := M[j] mod 10;
end;
end;
for i := k downto 0 do //перебор целых значений от k до 0
begin
if M[i] > 0 then
break;
if M[i] = 0 then
k := k - 1;
end;
SetLength(M, k); //изменение размеров массива М до кол-ва элементов-k
Result := '';
for j := k downto 0 do
Result := Result + IntToStr(M[j]);
mmOutput.Lines.Add(IntToStr(n) + '! = ' + result);
//добавление результата в редактор Memo(mmOutput)
if n6.Checked = true then
mmoutput.Lines.Add('В этом числе ' + IntToStr(length(result)) + ' цифр.');
M := nil; //освобождение памяти IntToStr-преобразование числа в строку
screen.Cursor := crDefault; //смена курсора
Med.Text := '';
Med.SetFocus; //передача фокуса ввода компоненту med
end;

давай что-нибудь такое чтобы аналогов не было, сутяга ;)

Tims
15-06-2006, 12:04
фи... яндексом и я пользоваться умею...

eusi
15-06-2006, 12:05
да? а по тебе не скажешь ;)

Tims
15-06-2006, 12:10
в своем глазу... все ваши "заумные" фразы.. не ваши, а результаты поисковиков.. так же как и многих других умников с фарита :rolleyes:

хоть бы удосужился результат написать, умник... двойка тебе

eusi
15-06-2006, 12:14
нет. последняя фраза точно моя. а что же ты результат не написал?

Tims
15-06-2006, 12:19
с тобой все ясно... уже второй раз... хотя виртуальной машины мне уже вполне хватило об общем представлении о тебе :D

результат напишу и программу свою (в отличие от тебя) :D

eusi
15-06-2006, 12:22
иди уж в свою песочницу, мальчик, а то, не дай бог, кто ведерко сопрет. ждем результата. и исходников :D

Tims
15-06-2006, 12:59
вижу, что даже готовую программу ты запустить-то не смог.. pi3дец... я в акуе...

eusi
15-06-2006, 13:00
так и ты тоже, гляжу, не смог. но я не в акуе. мне некогда. когда выйдешь из акуя, отпишись

Tims
15-06-2006, 13:28
1. слив засчитан
2. твоя программа не корректно работает
3. результат я выложу, как и обещал... мне нет необходимости спешить (или выипнуться как ты)

Tims
15-06-2006, 14:05
да мне лично покуй :D

eusi
15-06-2006, 14:07
да и мне тоже :cool:
снято

eusi
15-06-2006, 16:20
93326215443944152681699238856266700490715968264381621468592963895217599993229915 608941463976156518286253697920827223758251185210916864000000000000000000000000
твой ход

eusi
16-06-2006, 12:42
слив засчитан

Tims
16-06-2006, 13:26
Program Factorial;
Const NMax = 200;
Type Digit = 0..9;
Number = Array[1..Nmax] Of Digit;
Var S : String;
M, N, R, F : Number;
I, MaxF : Word;
Logic : Boolean;

Procedure Zero(Var A : Number);
Var I : Integer;
Begin
For I := 1 To NMax Do A[I] := 0;
End;


Function Len(C : Number) : Integer;
Var I : Integer;
Begin
I := NMax;
While (I > 1) And (C[I] = 0) Do I := I - 1;
Len := I
End;

Procedure Print(A : Number);
Var I : Integer;
Begin
For I := Len(A) DownTo 1 Do Write(A[I] : 1);
WriteLn;
End;

Procedure Translate(S : String; Var A : Number;
Var OK : Boolean);
Var I : Word;
Begin
Zero(A);
I := Length(S);
OK := True;
While (I >= 1) And OK Do
Begin
If S[I] In ['0'..'9']
Then A[Length(S) - I+ 1] := Ord(S[I]) - 48
Else OK := False;
I := I - 1
End
End;

Procedure Mult(A, B : Number; Var C : Number);
Var I, J : Integer; P : Digit; VspRez : 0..99;
Begin
Zero(C);
For I := 1 To Len(A) Do
Begin P := 0;
For J := 1 To Len(B) Do
Begin
VspRez := A[I] * B[J] + P + C[I + J - 1];
C[I + J - 1] := VspRez Mod 10;
P := VspRez Div 10
End;
C[I + J] := P
End
End;

Begin
Translate('1', M, Logic);
for i:=1 to 100 do
Begin
Str(i,S);
Translate(S, N, Logic);
Mult(M, N, M);
End;
Print(M);
End.

Результат:

93326215443944152681699238856266700490715968264381621468592963895217599993229915 608941463976156518286253697920827223758251185210916864000000000000000000000000

Tims
16-06-2006, 13:27
где твоя программа..???? ты сам еще вчера слил... :rolleyes: выдал неработающий код без результата, сказав, что проверять у него времени нет ... - самый настоящий слив... хз в каком софте ты этот результат высчитал... но думаю не сам

Tims
16-06-2006, 13:34
хотя задача с факториалом простая.... посложнее взять.. что-нибудь с динамическим программированием или графами :)

eusi
16-06-2006, 13:34
гонишь. я первый выложил результат. а программа та, которую я показывал. я ее чуток подшаманил. следующий раунд?

Tims
16-06-2006, 13:37
ну покажи как подшаманил-то... :D

eusi
16-06-2006, 13:39
в шестом делфи запускал

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Mask, Buttons;

type
TForm1 = class(TForm)
mmOutput: TMemo;
med: TMaskEdit;
ProgressBar: TProgressBar;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
result:string; //переменная result целого типа
M:array of integer; //"M"- это матрица, или массив, причем динамический, то есть его размеры можно
F,i,j,k,n:integer; //изменять, это увеличивает время выполнения программы, но интересно попробовать

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if med.text='' then med.text:='0'; //свойство text компонента med проверяется на наличие
n:=StrToInt(Trim(MEd.Text)); //введенного числа, StrToInt-преобразование строки в число
if n<4 then exit; //trim-удаление пробелов из строки
//PB.Max:=(n+sqr(n)); //Это определение размеров PB
//PB.Position:=0;
screen.Cursor:=crHourGlass; //появляется новый курсор, стандартный "виндовский"
setLength(M,2); //определение границ массива
M[0]:=1; //присвоение 0-ому элементу массива М значения 1....
M[1]:=0;
k:=1;
For i:=1 to n do
begin
F:=0;
//PB.StepBy(i*2); //изменение показаний PB
For j:=0 to k do
begin
SetLength(M,k+1);
M[j]:=M[j]*i+F; //здесь основная идея программы
if (M[j] div 10)>0 then k:=k+1;
F:=M[j] div 10;
M[j]:=M[j] mod 10;
end;
end;
For i:=k downto 0 do //перебор целых значений от k до 0
begin
if M[i]>0 then break;
if M[i]=0 then k:=k-1;
end;
SetLength(M,k); //изменение размеров массива М до кол-ва элементов-k
Result:='';
For j:=k downto 0 do Result:=Result+IntToStr(M[j]);
mmOutput.Lines.Add(IntToStr(n)+'! = '+result); //добавление результата в редактор Memo(mmOutput)
//if n6.Checked=true then
mmoutput.Lines.Add('В этом числе '+IntToStr(length(result))+' цифр.');
M:=NIL; //освобождение памяти IntToStr-преобразование числа в строку
screen.Cursor:=crDefault; //смена курсора
Med.Text:='';
Med.SetFocus; //передача фокуса ввода компоненту med
end;

end.

eusi
16-06-2006, 13:40
там прогрессбар голову морочил. я его отключил и пошло

Tims
16-06-2006, 14:41
гонишь батенька снова....

For i:=1 to n do
begin
F:=0;
For j:=0 to k do
begin
SetLength(M,k+1);
M[j]:=M[j]*i+F; //здесь основная идея программы
if (M[j] div 10)>0 then k:=k+1;
F:=M[j] div 10;
M[j]:=M[j] mod 10;
end;
end;

данный "основной" алгоритм не пашет... в том тексте, где ты содрал - опечатка видимо где-то :D

eusi
16-06-2006, 14:41
твоя работает, однако. скоро вспомню, в каком учебнике я ее видел

eusi
16-06-2006, 14:44
работает за милую душу. а опечатка есть :D
я нашел и исправил. и ты найди и исправь, если крут :D

Kolos
16-06-2006, 15:02
помойму ответ неверный, щаз немного покумекаю и скажу либо я облажался либо объясню почему ответ не тот

eusi
16-06-2006, 15:04
ты кто? :eek:

Kolos
16-06-2006, 15:24
Колас в пальто

кароче вроде по количеству нулей на конце вроде ты прав;)

eusi
16-06-2006, 15:26
на чьем конце? мы писями с тимсом меряемся. если вас двое, то не честно. согласен если только у вас одна пися на двоих. и без всяких нулей

Tims
16-06-2006, 15:40
бла-бла-бла... накуй тогда мне неверный код два раза показывал? :rolleyes:
мне уже эта твоя чушь смешной кажецца... :mad:

Tims
16-06-2006, 15:42
Колас... ответ верный.. у меня такой же получился... тут дело в том, что он не только программу не может написать, а даже два раза подряд какую-то глючную прогу тут вешает, и тем более не свою... :rolleyes:
пусть признается где он ответ получил... в каком софте :D

eusi
16-06-2006, 15:45
ты, наверное, аспирант. только они не могут чужую прогу запустить. я твою запустил. работает. прога не глючная. ручки у тебя кривые
ежели ты такой недоверчивый, угадай с 100 раз, в какой проге можно такой ответ в такой задаче получить
еще один слив засчитан
а туалетной бумагой тебя колос научил пользоваться?

Tims
16-06-2006, 15:46
6ля.. посмотрел его модуль.... :D
шаблон из хелпа или из книги по делфи :D
он даже нормально вставить готовую процедуру-то туда не смог.... программистбля :D

eusi
16-06-2006, 15:47
чем кумушек считать трудиться...
давай ужо на второй раунд. хочешь задачку?

Tims
16-06-2006, 16:01
слов много, результатов - ноль...
100% сейчас предложит задачу, которую где-то там слизал :D

eusi
16-06-2006, 16:04
а то ж?
В целочисленной матрице размера n×m определить количество наибольших по модулю элементов и их номера.
как раз твой уровень
дерзай

Tims
16-06-2006, 16:06
Слова eusi про Турбо-Паскаль:
потому что он не с реальным компьютером работает, а с его виртуальной моделью

Вот так eusi определяет виртуальную машину:
виртуальная машина - это собственное пространство адресов


уж погуглил бы хотябы... прежде чем с умным лицом какую-то хню писать :D

Tims
16-06-2006, 16:07
это уровнь школьника 9-го класса :D сам дерзай... :D

eusi
16-06-2006, 16:08
ты давай задачку решай. или опять на колоса повесил? не растекайся мыслью по древу, хрен ототрешь потом

eusi
16-06-2006, 16:10
как раз твой уровень. я солью этот раунд. сохраню тебе лицо. как только выложишь, сразу солью

NeAli
16-06-2006, 16:11
Народ!!!! Если кто-нибудь когда-нибудь писал тесты по экономтеории в УГАТУ у Дегтярёвой на 1 курсе по макроэкономике, пожалуйста откликнитесь!!!!!

Tims
16-06-2006, 16:12
бла-бла-бла...

eusi
16-06-2006, 16:12
тимс писал. попроси у него его паркер

Tims
16-06-2006, 16:13
вон у eusi спроси... он ходячая энциклопедия :D ;)

eusi
16-06-2006, 16:14
давай-давай. докажи, что ты на самом деле могистр, а не рядовой хочустр

NeAli
16-06-2006, 16:14
Нет, я серьёзно!!! Перездач не будет, она уезжает в Германию!!!

eusi
16-06-2006, 16:15
плохая реакция. детей не будет :D :D :D :D :D

Tims
16-06-2006, 16:37
это не реакция... это 80 секунд...
да что я перед тобой оправдываюсь...
лучше признался бы, кому (сыну, племяннику, соседу) задачку с матрицей тебе решить нужно, сам то слабоват.. я уже понял это :D

Kolos
16-06-2006, 16:38
на конце факториала:D
мы писюнами не меряемся, мы задачки решаем ;)
давай следующую

eusi
16-06-2006, 16:39
дал же уже :eek: . а тимс без тебя не может?

Tims
16-06-2006, 16:39
Колас, не решай ему ничего... пусть сначала выложит текст "работающей" программы... слизанной, и ,якобы в которой он нашел ошибку и исправил... а то так.. пустословит :D

eusi
16-06-2006, 16:40
у меня бабушка в третьем классе церковно-приходской аспирантуры учится. ей нужно. ну ничего от тебя не скроешь :(

eusi
16-06-2006, 16:42
у колоса она пошла. вот он и молчит

Kolos
16-06-2006, 16:58
непошла ибо и не пытался, такую мулю уже в студенчестве делал
вот вам очередная задачка
что такое счастливый билет все знают
итак задача, номера билетов 6ти значные, вывести все счастливые за наименьшее кол-во итераций. 000 000 не участвует

eusi
16-06-2006, 16:59
нам это кому? в нете эта задачка есть

Kolos
16-06-2006, 17:05
неспортивно, факториал наверное тоже есть

ну давай свою, которой в инете нет

eusi
16-06-2006, 17:09
вот тебе сложная задача - найти задачу, которой еще нет в инете :D
я же не скрываю, что свое решение в нете нашел. слегка адаптировал и все. а книжку, с котрой тимс слизал, у меня скоммуниздили в прошлом году. одно только помню, что мерзкое издание было. на туалетной бумаге времен перестройки
а ты меня почему не стремаешь? так неинтересно

Kolos
16-06-2006, 17:18
стремать убогих не мой формат :D

eusi
16-06-2006, 17:19
с чего ты взял, что я убогий? я очень даже не убогий. у меня есть почетное звание "самый твердый шанкр россии-2002"

Kolos
16-06-2006, 17:21
зашли в аркестр:D

eusi
16-06-2006, 17:23
кучеряво выражаешься. а что значит - лол?

Neyron
16-06-2006, 17:25
подробнее.
что бы факториал был дифференцируем нужно что бы его можно было вязть у дробного числа. а это ты себе как представляешь? :rolleyes:
и про определение производной не забывай.

eusi
16-06-2006, 17:27
давай лучше о бабах

Neyron
16-06-2006, 17:31
давай с цереброфилией закончим и вперед)

eusi
16-06-2006, 17:33
вперед это куда? к цереброфагии?

Kolos
16-06-2006, 17:38
лафинг аут лауд памойму
короче чета тима нашего ржунимагу

eusi
16-06-2006, 17:40
мда... спасибо

Neyron
16-06-2006, 17:43
к дамам и мадмуазелям )

eusi
16-06-2006, 17:47
начнем с кого? с дам или с мадмуазелей?

Kolos
16-06-2006, 17:48
с дамами и мадмуазелями нада начинать с билета на парис;)

eusi
16-06-2006, 17:49
умоляю, только не говори, чем надо заканчивать

Tims
16-06-2006, 18:05
пи3деть не мешки ворочать, да? :rolleyes:

eusi
16-06-2006, 18:06
извини, замечтался о дамах и мадемуазелях и не заметил, что опять в тебя наступил :(

Kolos
16-06-2006, 18:08
а че тут говори не говори, каждый в своей жизни должен поситить триппер штрассе:D

eusi
16-06-2006, 18:10
проспект октября, что ли? так я не уфимский. а если и бываю, то из машины не выхожу и на проспекте не останавливаюсь

Kolos
16-06-2006, 18:18
нет, это не такое романтическое место

eusi
16-06-2006, 18:22
опять умоляю, не продолжай. вот не знал я про тимса и программы мог писать. теперь не могу. а после твоего поста еще и импотенции хапну

eusi
16-06-2006, 18:29
На лестничной площадке три двери. На одной написано “Здесь живет лучший программист в нашем городе”. На другой - “Здесь живет лучший программист в нашей стране”. А на третьей - “Здесь живет лучший программист на этой лестничной площадке”.
задача - где живет колос, а где тимс?

Snider
16-06-2006, 18:54
Идея забавная.
Я - за. Мозги охота размять.


В качестве мелкой задачки (из перлов в нашем вчерашнем коде).
Язык С#. Как переписать "Convert.ToInt32(Math.Ceiling((x * 1.0)/y))", чтобы оно быстрее и красивше было?

Kolos
16-06-2006, 19:06
я си канешна не знаю, но простите зачем икс на идиницу множить?

Kolos
16-06-2006, 19:08
а где юси?

Snider
16-06-2006, 19:10
О, забыл уточнить. x и y - это целочисленные переменные.

В результате умножения на 1.0 x кастуется в double (т.к. 1.0 компилятором воспринимается как double). Изврат редкостный.

eusi
16-06-2006, 19:10
так я же с другого города :(

MDK
16-06-2006, 19:19
Не знаю где живет колос, а где тимс, но во всех трех квартирах живет один и тот же человек.

eusi
16-06-2006, 19:20
и кто же? :eek:

Kolos
16-06-2006, 19:24
дык квартиры то три?

Kolos
16-06-2006, 19:25
странная логика:rolleyes:

eusi
16-06-2006, 19:28
сдается мне, что тут претендент на все три нарисовался. бомжевать вам с тимсом :(

Kolos
16-06-2006, 19:35
вот я и сцыковать влехкую начал, хотя на улице лето, можно и на скамеечке поспать:D

eusi
16-06-2006, 19:38
менты не поймут. может вам с пч договориться? пусть вас в планетарий пустит спать. то же звездное небо над головой ;)

Чифу
17-06-2006, 16:38
Чё за книжка? Пример больно интересный.

eusi
17-06-2006, 16:39
не помню. переводная, по-моему, что-то типа "примеры на паскале"

Tims
19-06-2006, 09:56
долпаеп... нет никакой книжки... у меня по паскалю ваще книг нету..


ВОТ ЗАДАЧА, ДЛЯ ТЕХ, КТО ХОТЕЛ РАЗМЯТЬ МОЗГИ
Постpоить на "заданной" шахматной доске маpшpут для "шахматного коня",
пpоходящий чеpез каждую клетку один и только один pаз. "Заданная"
доска означает, что ее pазмеpы могут (не обязательно) отличаться от
настоящей шахматной доски, и, кpоме того, могут отсутствовать
некотоpые "выколотые" поля.

eusi
19-06-2006, 10:01
тупое условие какое-то. как и сам тимс. а что делать, если решения не существует?

Tims
19-06-2006, 10:07
я куею над этим ****ным программером :D

eusi
19-06-2006, 10:09
это все, что ты умеешь? где моя матрица? слив засчитан?

Tims
19-06-2006, 10:09
еюся... ты внатуре аллярин.. не отвечай мне больше, ок?

eusi
19-06-2006, 10:12
да брось ты, какие между нами счеты. ну не могу я не погреться возле костра твоей мудрости, не обессудь