Текущий архив: 2002.08.15;
Скачать: CL | DM;
Вниз
---|Ветка была без названия|--- Найти похожие ветки
← →
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]> Igorek ©
3
Ты бы еще детсадовские задачи вспомнил
← →
int64 (2002-07-19 09:25) [22]А как у программеров с логикой? :)
Вот нашёл в школьном задачнике за 1965 год.
Предположим, что справедливы следующие утверждения:
а)Среди людей, имеющих телевизоры, есть такие, которые не являются малярами.
б)Люди, каждый день купающиеся в бассейне, но не являющиеся малярами, не имеют телевизоров.
Следует ли отсюда следующее утверждение:
в)Не все владельцы телевизоров каждый день купаются в бассейне?
← →
Igorek (2002-07-19 10:03) [23]2int64
Да, следует.
← →
Anna_ (2002-07-19 10:14) [24]
>
> 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 тыс
← →
igorr (2002-07-19 14:27) [26]Вы наверное будете смеяться, но ..
Вот решение 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;
← →
Anna_ (2002-07-21 10:48) [27]
> Ev_genus,
ты видел, да? Они нас за молодых не считают!
← →
Viewer (2002-07-21 11:03) [28]Иногда это похвала, а иногда и нет..;))
← →
Igorek (2002-07-21 11:04) [29]2igorr
Веселый код. :-)))
Страницы: 1 вся ветка
Текущий архив: 2002.08.15;
Скачать: CL | DM;
Память: 0.51 MB
Время: 0.006 c
