Этот интересный момент
Дописываем в index.php следующую строку:
unlink(«index.php»);
Написанная выше функция создана для работы с файлами, а точнее – для удаления файлов. (В нашем случае это самоудаление, можно подшутить над друзьями).
Используйте, экспериментируйте и все у Вас получится))))
Полезные редиректы
Редирект – Перенаправление юзера на заданный вами адрес.
Редирект на HTML
Редирект на Java sсript
document.location=" http://figus.pp.ua";
Редирект в apache
redirect / http://figus.pp.ua
Редирект на php
header('Location: http://figus.pp.ua');
exit;
?>
Выше мной приведены самые используемые примеры перенаправлений. В данном случае редиректы ведут на мой блог на котором Вы находитесь=)
Решил задачу по алгебре))))
Вот как и говорил что буду выкладывать на сайт решения различных задач и тому подобное, вот как раз первые решенные задачи:
а)2abc^2-3ab^2c+4a^2bc=
б)12a^2xy^3-6axy^5=
в)-15am^3n^4-20am^4n^6=
г)-28b^4c^5+16b^5c^6y^8=
Пишу программу для открытия процесса
Опять страдаю фигнёй, пишу программу для открытия процесса, вот код
#include «stdafx.h»
#include «windows.h»
#include
void main()
{
using namespace std;
STARTUPINFO cif;
ZeroMemory(&cif,sizeof(STARTUPINFO));
PROCESS_INFORMATION pi;
if (CreateProcess(«c:\\windows\\notepad.exe»)==TRUE)
{
cout << «process» << endl;
cout << «handle » << pi.hProcess << endl;
Sleep(1000);// подождать
TerminateProcess(pi.hProcess,NO_ERROR);// убрать процесс
}
}
Пишет что функция не принимает 1 аргумент, проблема в 11 строке
Делаем запрос к БД
mysql_query(«ALTER TABLE dle_friends ADD date varchar(30) NOT NULL DEFAULT»);
mysql_query(«ALTER TABLE dle_users ADD friends_settings varchar(30) NOT NULL DEFAULT ‘yes||no’»);
mysql_query(«INSERT INTO dle_email values (», ‘fr_fail’, ‘Уважаемый {%username%}, уведомляем вас о том, что {%who%} отклонил вашу заявку на добавление в друзья\r\n\r\nС уважением,\r\nАдминистрация 127.0.0.1′)»);
mysql_query(«INSERT INTO dle_email values (», ‘fr_add’, ‘Уважаемый {%username%}, уведомляем вас о том, что {%who%} принял вашу заявку на добавление в друзья\r\n\r\nС уважением,\r\nАдминистрация 127.0.0.1′)»);
Это всего лишь немного кода, при решении проблем в крупных масштабах делать надо совсем другое
Проблема с delphi
Мне дали вот такой программный код чтобы я его оптимизировал и чтобы он начал работать, а хотя вот полностью текст который он написал:
«Пытаюсь написать программу которая при введение числа выдаст квадратный корень.
Проблема в том что чтото не так,появляются 2 ошибки,а именно: Incompatible types: ‘String’ and ‘Real’
и Unsatisfied forward or external declaration: ‘TForm1.EditlKeyPress’ В чём проблема? Вот полный алгоритм программы: unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure EditlKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x:real;
x2:real;
begin
x:=strtoint(edit1.Text);
x2:=sqrt(x);
label1.caption:=x2;
end;
end. »
А вот и решение:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
k,n:real;
begin
Read(k);
n:=sqrt(k);
WriteLn (n);
ReadLn;
ReadLn;
end.
Сохраняем с расширение .dpr и открываем через Delphi.
