Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
session_start();
if ($_SESSION['ok'] !== 1){
echo "Сделали , блок сесиией";
$_SESSION['ok'] = '1';
} else {
echo "Блок!";
}
Mr_Smile: сматрите ) в первый раз на странице должна быть надпись "Сделали блок сессией"
Mr_Smile: при последующих обновлениях надпись должн абыть "Блок"
Mr_Smile: а сколько ни обновляй все кажет "Сделали блок сессией"
Mr_Smile: я ахутнГ?
typedef struct tagRECT{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECT, *PRECT, NEAR *NPRECT, FAR *LPRECT;
typedef const RECT FAR* LPCRECT;
typedef struct _RECTL{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECTL, *PRECTL, *LPRECTL;
typedef const RECTL FAR* LPCRECTL;
Вот так тайпдефятся абсолютно одинаковые структуры в windef.h
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Деньга = record
Достоинство:integer;
Количество:integer;
end;
var
Лопатник: array of Деньга;
procedure ПоложитьНаЛопату(Купюра:Integer);
var
I: Integer;
УжеПоложили:Boolean;
begin
if Купюра=0 then
Exit;
УжеПоложили:=False;
for I := low(Лопатник) to High(Лопатник) do
if Лопатник[i].Достоинство=Купюра then
begin
inc(Лопатник[i].Количество);
УжеПоложили:=True;
end;
if not(УжеПоложили) then
begin
SetLength(Лопатник,Length(Лопатник)+1);
Лопатник[High(Лопатник)].Достоинство:=Купюра;
Лопатник[High(Лопатник)].Количество:=1;
end;
end;
var
Купюра:integer;
i:integer;
ВсегоНаЛопате:integer;
begin
repeat
Readln(Купюра);
ПоложитьНаЛопату(Купюра);
until Купюра=0;
ВсегоНаЛопате:=0;
for I := low(Лопатник) to High(Лопатник) do
begin
WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));
inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);
end;
WriteLn(Format('All money - %d',[ВсегоНаЛопате]));
ReadLn;
end.
Вообще-то это Delphi, но его в списке не было ;)
Задача была такая:
пользователь вводит достоинства купюры в произвольном порядке, ввод прекращ
global $page_parent; //Целочисленный массив с айдями родителя страницы
global $page_title; //Строковый массив с названиями страниц
global $page_dir; //Целочисленный массив массивов списка страниц в странице (o_O)
global $page_dirs; //Количество страниц в странице, если 0 то страница не содержит
... some code ...
function TreeBuild($ina)
{
foreach($page_dir[$ina] as $ina)
{
echo $ina.'=>'.$page_dirs[$ina].'<br>';
if($page_dirs[$ina] != 0)
{
TreeBuild($ina);
}
}
return 0;
}
TreeBuild($i);