---|Ветка была без названия|---

← →
MBo © (2002-07-18 12:13) [0]

Есть желание у начинающих размяться, если кто помнит SUBJ?

← →
Начунающий (2002-07-18 12:16) [1]

Есть !!! SUBJ не помню !

← →
Виктор Щербаков © (2002-07-18 12:17) [2]

Давай, всегда интересно наблюдать за такими ветками.

← →
MBo © (2002-07-18 12:20) [3]

>Виктор Щербаков
Задачи хочу очень простые, учебные, без хитростей дать

← →
Mike B. © (2002-07-18 12:22) [4]

Не томи :-)

← →
Виктор Щербаков © (2002-07-18 12:24) [5]

MBo © (18.07.02 12:20)
Дык я не буду ответы-то писать :)

← →
RV © (2002-07-18 12:26) [6]

Не томи :-)

← →
Начунающий (2002-07-18 12:39) [7]

Притомил, однако !

← →
MBo © (2002-07-18 12:55) [8]

1. Найти дату "Дня Программиста" (256-й день года, как многие предлагают)

2. Составить программу вычисления определенного интеграла методом срединных прямоугольников с заданной погрешностью.
Тест - Sin(x) от 0 до Pi, точность 0.0001

3. Сгенерировать массив [1..100] целых от 1 до 10 и найти количество в нем групп из ИМЕННО трех последовательных чисел (например, 2,3,4)

4. составить программу како-либо подобной задачи (решений может быть несколько)
РЕШИ
X
ЕСЛИ
------
СИЛЕH
*****
****
*****
--------
********

ТУФ
X
ФУТ
----
ЖЕСТ
ССЕК
*РИФ
------
*ЛЕС**

SANTA
- CLAUS
-----
XMAS

BYTZBXDD
+ BSVZDBDD
BBSZDBDD
--------
XVNPPNBB

5. Сделать программу для сложения чисел, записанных римскими цифрами (в пределах 100) L - 50 C-100

6. Сделать программу для умножения многочленов с целыми коэффициентами, например
type CoefArr:array[0..10] of Integer;
Procedure MultPoly(n1,n2:Integer;a,b:CoefArr;var c:CoefArr;var n3:integer);
или списки, если удобнее

7. Два числа назыв. дружественными, если каждое равно сумме всех делителей другого, например, 220 и 284: 220=1+2+4+71+142, а 284=1+2+4+5+10+11+20+22+44+55+110
Найти еще какие-нибудь пары

← →
Ev_genus © (2002-07-18 13:14) [9]

Ответ на задачу 7
220 284
1184 1210
2620 2924
5020 5564
6232 6368
10744 10856
12285 14595
17296 18416
63020 76084
66928 66992
67095 71145
69615 87633
79750 88730
Я могу и ещё найти но больше минуты ждать не хочется.

← →
AL2002 © (2002-07-18 14:13) [10]

А если обычную загадку? Хотите?

← →
Начунающий (2002-07-18 14:27) [11]

Йес, оф корз !!!

← →
Romkin © (2002-07-18 14:56) [12]

Задача 2
function SquareInt(a,b:Double; eps: Double; IntF: TIntFunc): Double; var S, x, base: Double; i,n: Integer; begin //Проверок не делаю n := 1; Result := 0; eps := eps/10; base := (b-a); Result := IntF((a+b)/2) * base; repeat S := Result; Result := Result / 2; base := base / 2; n := n * 2; for i := 1 to n div 2 do begin x := a + base * (i * 2 - 3/2); Result := Result + IntF(x) * base; end; until abs(S-Result) <= eps; end;
Вроде работает. А чему равен интеграл-то?

← →
Romkin © (2002-07-18 15:08) [13]

А! забыл
type TIntFunc = function(X: Double):Double; function intSin(x: Double): Double; begin Result := x*x; end; К примеру

← →
AL2002 © (2002-07-18 15:26) [14]

Старая загадка.
Два отца и два сына пошли на охоту. Убили по зайцу.
Зайцев оказалось три. Пачэму тры?

← →
Lord Warlock © (2002-07-18 15:28) [15]

> AL2002 © (18.07.02 15:26)

Ну елементарно, отец, сын и святой дух

← →
AL2002 © (2002-07-18 15:32) [16]

Правильно. Садись. Пять.

Имеет рукава, но без рук. Имеет сЁдла, но буз коней.

← →
Alx2 © (2002-07-18 15:37) [17]

>Вроде работает. А чему равен интеграл-то?
2
:)

← →
Romkin © (2002-07-18 15:47) [18]

2Alx2 :-))
Просто при тестировании я вычислил в уме что правильно 1, и долго ловил баг, который удваивает :-))

← →
AL2002 © (2002-07-18 22:57) [19]

Имеет рукава, но без рук. Имеет сЁдла, но буз коней.

Речка.

Сорри за ошибку. буз — это "без".

← →
Igorek © (2002-07-19 00:11) [20]

Летели утки: 1 впереди и 2 позади, 1 позади и 2 впереди.
Сколько летело всего уток?

Из "Старинные занимательные задачи".

← →
ПИТОН (2002-07-19 06:57) [21]

А как у программеров с логикой? :)

Вот нашёл в школьном задачнике за 1965 год.

Предположим, что справедливы следующие утверждения:
а)Среди людей, имеющих телевизоры, есть такие, которые не являются малярами.
б)Люди, каждый день купающиеся в бассейне, но не являющиеся малярами, не имеют телевизоров.
Следует ли отсюда следующее утверждение:
в)Не все владельцы телевизоров каждый день купаются в бассейне?

2int64
Да, следует.

>
> 2. Составить программу вычисления определенного интеграла
>

А функция как задается? Внутри программы или польщзоваателем?
(Если внутри - есть достаточно известная формула с производными, пограммирования почти не остается. Если пользователем - .... !)

> 6. Сделать программу для умножения многочленов с целыми
> коэффициентами, например

type coef = array of integer; {Как-то несолидно - две array[0..10] перемножать} function mult(a,b:coef):coef; var i,j,c:integer; res: coef; begin i:=high(a); j:=high(b); setlength(res, i+j+1); setlength(a,i+j+1); setlength(b, i+j+1); for i:=0 to high(res) do begin c:=0; for j:= 0 to i do c:=c+a[j]*b[i-j]; res[i]:=c; end; mult:=res; end;

← →
Viewer (2002-07-19 10:42) [25]

Да.. То-ли лето и жара.
Молодые вообще отвечать не хотят..

3. Сгенерировать массив [1..100] целых ...
Так как вероятность появления трех подряд идущих целых порядка 0.01% длину массива стоит увеличить до 100 тыс

Вы наверное будете смеяться, но ..
Вот решение 1 задачи с измененным условием.
Оригинал:
1. Найти дату "Дня Программиста" (256-й день года, как многие предлагают)
Исправление:
1. Найти дату "Дня Программиста" (356-й день года, как предлагаю я)

procedure TForm1.Button1Click(Sender: TObject);
var
DayCount:integer;
i,j,k:integer;
begin
DayCount:=0;
for k:=2002 to 2100 do begin
Calendar1.Year:=k;
for j:=1 to 12 do begin
Calendar1.Day:=1;
Calendar1.Month:=j;
if Calendar1.Month=j then
for i:=1 to 32 do begin
Calendar1.Day:=i;
if Calendar1.Day=i then inc(DayCount);
end;
end;
if DayCount=366 then break;
DayCount:=0;
end;
Label1.Caption:=IntToStr(DayCount);
Label2.Caption:=DateToStr(Calendar1.CalendarDate);
end;

> Ev_genus,

ты видел, да? Они нас за молодых не считают!

← →
Viewer (2002-07-21 11:03) [28]

Иногда это похвала, а иногда и нет..;))

2igorr
Веселый код. :-)))

---|Ветка была без названия|--- Найти похожие ветки