ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
02.12.2009, 22:31
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
1 задача - решил от делать нечего
Код:
function multiple(const a,b:Integer):Integer;
begin
result := a*b;
end;
var
A:Array [1..15]of integer;
i,sum1,sum2,mult:integer;
begin
// предполагается что массив уже заполнен
Sum1 := 0;
Sum2 := 0;
for i := 1 to 12 do
Inc(Sum1,a[i]);
for i := 8 to 15 do
Inc(Sum2,a[i]);
mult := multiple(sum1,sum2);
WriteLn(Mult);// Это твой ответ
end;
2 лень чё то стало писать, с такой задачей даже ребенок 3го класса справится, поднапряги мозги.
Последний раз редактировалось t04; 02.12.2009 в 22:33..
|
|
|
02.12.2009, 23:12
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
-----
Последний раз редактировалось SHAXID; 04.12.2009 в 21:38..
|
|
|
|
03.12.2009, 00:24
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
меню на VCL или на API?
или надо вообще просто в консоли выбор делать?
|
|
|
|
03.12.2009, 10:20
|
|
Постоянный
Регистрация: 14.04.2008
Сообщений: 327
Провел на форуме:
584699
Репутация:
69
|
|
2 t04 ты видел в API chаrt? или на консоли?)
Извиняюсь за офтоп, не у кого нет исходничка по решению транспортной задачи методом фогеля?
|
|
|
|
03.12.2009, 17:01
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
Сообщение от t04
меню на VCL или на API?
или надо вообще просто в консоли выбор делать?
в дельфе усё сие деяние должно творитцо)
p.s ссори, забыл сказать)
|
|
|
|
04.12.2009, 20:33
|
|
Участник форума
Регистрация: 12.07.2009
Сообщений: 158
Провел на форуме:
2510517
Репутация:
334
|
|
Мне на паскале нужна такая прога:
Вывод одной надписи,и через 15 секунд ещё одной надписи. Как это на паскале реализовать?  |
|
|
|
04.12.2009, 20:44
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от Jerri
Мне на паскале нужна такая прога:
Вывод одной надписи,и через 15 секунд ещё одной надписи. Как это на паскале реализовать? Гуги в сторону модуля CRT и процедуры delay ().
|
|
|
|
04.12.2009, 20:49
|
|
Участник форума
Регистрация: 12.07.2009
Сообщений: 158
Провел на форуме:
2510517
Репутация:
334
|
|
Сообщение от Thenno
Гуги в сторону модуля CRT и процедуры delay ().
спс. 
|
|
|
|
04.12.2009, 20:50
|
|
Познающий
Регистрация: 11.07.2009
Сообщений: 83
Провел на форуме:
279987
Репутация:
30
|
|
как отловить капчу контакта?
|
|
|
|
04.12.2009, 21:37
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345
Репутация:
51
|
|
Народ, помогите, пожалуйста, намутить такую тему:
Нужно создать меню, которое содержит след.пункты:
"файл", "массив", "диаграмма", "сброс".
- При выборе элемента меню "файл" должна запускаться процедура, которая рассчитывает количество положительных элементов файла с целым компонентом из 10 чисел (сумма, разность, макс. элемент, минимальный элемент и т.д.)
- при выборе пункта "массив", должна запускаться процедура, которая рассчитывает количество отрицательных элементов целого массива (сумма и т.д.)
- При выборе пункта "диаграмма", должна запускаться процедура 'создание диаграммы' (столб.,круговая), на основе полученных данных (п.1 и п.2)
- При выборе пункта "сброс", должна очищаться диаграмма (компонент chart) для послед. данных.
з.ы На дельфе это всё делается)
Последний раз редактировалось SHAXID; 04.12.2009 в 21:41..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
