HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
   
 
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 23.04.2009, 08:31
Rebit
Участник форума
Регистрация: 07.08.2007
Сообщений: 136
Провел на форуме:
2010588

Репутация: 653
Отправить сообщение для Rebit с помощью ICQ
По умолчанию

Нада человек який решить задачки 1-курсу института

Задача типа

Цитата:

Лабораторна робота № 1 Розгалуження.
Розробити програму для обчислення простого виразу, вхідні дані ввести з
клавіатури, результат вивести у форматованому вигляді, передбачити затримку пе-
реходу від екрана з результатами до програми. Знак ‘^’ означає ‘у ступеню’.
1. Задані дві функції y1 y2
24x2 x
y1=------------ ; y2=1 - -------;
(8+3x)2 2+x
Cкласти програму, результатом роботи якої, є найбільше значення однієї з них.
2.Дана точка з координатами x,y,z. Встановити чи належить вона кулі з центром c(x0,y0,z0) та радіусом R.
3. Задані три функції y1,y2,y3. Скласти програму, результатом якої буде найбільше значення однієї з них.
1 1
y1=--- - ----; y2= 8x; y3=5x2+3x+1;
x x2
4. Дані дві функції y1 y2.
1 6 1 1
y1=--- + ----; y2= 3x + ---- + ----;
x x2 6x 9x2
5. На площині задані два кола з радіусами R1, R2 і координатами центрів C1(x1,y1), C2(x2,y2), з'ясувати, чи мають вони: одну, дві, чи не мають спільних точок перетину взагалі.


С меня плюсики + благодарность

Заданий много то стучите все и при цьом задания разних типов


Актуально

Последний раз редактировалось Rebit; 03.05.2009 в 14:16..
 

  #2  
Старый 23.04.2009, 13:33
AlexTheC0d3r
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135

Репутация: 425
Отправить сообщение для AlexTheC0d3r с помощью ICQ
По умолчанию

Цитата:
Сообщение от Rebit  
Нада человек який решить задачки 1-курсу института

Задача типа



С меня плюсики + благодарность

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

  #3  
Старый 23.04.2009, 10:50
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию

Приведите пример рабочего кода как проверить занят ли файл другим процессом.
 

  #4  
Старый 23.04.2009, 12:09
s0l_ir0n
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785

Репутация: 314
Отправить сообщение для s0l_ir0n с помощью ICQ
Arrow

Цитата:
Сообщение от Nightmarе  
Приведите пример рабочего кода как проверить занят ли файл другим процессом.
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  windows;

var
hFile:DWORD;
OFS: OFSTRUCT;
label err;
begin
hFile:=CreateFile('fsg.exe',GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0);
If hFile = INVALID_HANDLE_VALUE
Then goto err;
hFile:= OpenFile('fsg.exe', OFS, OF_READWRITE);
  if hFile = INVALID_HANDLE_VALUE then
  halt;
Writeln('All OK!');
readln;
halt;
err:
Writeln('Something wrong!');
readln;
end.
 

  #5  
Старый 23.04.2009, 12:43
slesh
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


Отправить сообщение для slesh с помощью ICQ
По умолчанию

ЖЖжете.
The OpenFile function creates, opens, reopens, or deletes a file.

This function is provided for compatibility with 16-bit versions of Windows. In particular, the OpenFile function cannot open a named pipe. Win32-based applications should use the CreateFile function.
OpenFile устаревший аналог CreateFile
GENERIC_WRITE - какраз может послать тебя нах есл ифайл уже открыт монопольно на запись. Так что лучше всего просто напросто свотреть возможность чтения.
И вообще Label - это жесть.
Да и закрывать файл не забывай

Если дело на то пошло то
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  windows;

var
 h:DWORD;
begin
h:=CreateFile('fsg.exe',GENERIC_READ, FILE_SHARE_READ,nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,0);
if h<>dword(-1) then
 begin
  Writeln('OK!');
  CloseHandle(h);
 end else Writeln('ERR!');
readln;
end.
 

  #6  
Старый 23.04.2009, 13:08
slesh
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


Отправить сообщение для slesh с помощью ICQ
По умолчанию

А еще лучше тогда экспортировать NtCreateFile и RtlInitUnicodeString и InitializeObjectAttributes из ntdll.dll и почти напрямую делать открытие файла ) *CRAZY*
 

  #7  
Старый 23.04.2009, 20:53
Mosvit
Познающий
Регистрация: 05.03.2007
Сообщений: 99
Провел на форуме:
744734

Репутация: 44
По умолчанию

Как можно в записать такой ряд в Дэлфи?
Помогите, нужно срочно



Последний раз редактировалось Mosvit; 23.04.2009 в 20:55..
 

  #8  
Старый 24.04.2009, 18:00
KaZ@NoVa
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311

Репутация: 1467


Отправить сообщение для KaZ@NoVa с помощью ICQ Отправить сообщение для KaZ@NoVa с помощью AIM Отправить сообщение для KaZ@NoVa с помощью Yahoo
По умолчанию

Цитата:
Сообщение от Mosvit  
Как можно в записать такой ряд в Дэлфи?
Помогите, нужно срочно


Кароч могу разложить ряд и написать сумму игриков.
Цитата:
aX^5+bX^4+cX^3+dX^2+eX+f
a,b,c,d,e,f - коэффициенты,
график сам делай!!!

Цитата:
function pow(x:extended; y:extended):extended;
begin
pow:=exp(y*(ln(x)));
end;

function y(x:extended; n:integer):extended;
var
res:extended;
i:integer;
begin
i:=n;
res:=0;
while (pow(x,i)>=pow(10,-6)) do begin
res:=res+pow(x,i);
dec(i);
end;

y:=res;
end;
Такая вот функция вышла.
тебе осталось только пройти по всем иксам и перемножить положительные у и разделить на колличество. а отрицательные сложить и тоже разделить на колличество.

Последний раз редактировалось KaZ@NoVa; 24.04.2009 в 18:07..
 

  #9  
Старый 24.04.2009, 15:31
AHTOLLlKA
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
Провел на форуме:
748321

Репутация: 112
Отправить сообщение для AHTOLLlKA с помощью ICQ
По умолчанию

вот... мутка такая...

есть сторонний софт и в нем есть много конфигов...
тоесть в программе пользователь выбирает конфиг 5 например и программа обрабатывает файл например
C:\5.cfg

тоесть разные типо настройки в разных конфигах...

вот сижу и думаю.... как узнать что он использует именно этот конфиг.. из своей проги конечно...

мысль пока о поиске открытых файлах и хендлов в определенном целевом процесе...


но осилить такое я кнешно не могу... нашел примеры которые все открытые файлы у всех процесов выводят...
http://forum.sources.ru/index.php?showtopi...0&#entry1242689
но он работает блин ооочень медленно пока все переберет и тд...

может кто нить поделиться кодом как это сделать мне ??...

крайне надо .... какой день уже туплю..=((
 

  #10  
Старый 24.04.2009, 17:31
KaZ@NoVa
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311

Репутация: 1467


Отправить сообщение для KaZ@NoVa с помощью ICQ Отправить сообщение для KaZ@NoVa с помощью AIM Отправить сообщение для KaZ@NoVa с помощью Yahoo
По умолчанию

AHTOLLlKA
Если ты пишешь на чём то вроде пшп или с++ то есть некие библиотеки, которые позволяют скажем получить имя файла, в котором мы работаем.
 
 





Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ