Function()
Function <имя функции>(<параметры>)
{
<код>
}
onclick
onchange
onkeyown
onkeyUp
onmouseover
onmouseout
onfocus
onblur
onselect
<событие> = <обработчик-функция>
<html>
<body>
<button onclick='vyvod()'>Старт</button>
</body>
<script language=”javascript”>
function vyvod()
{
alert('Текст')
}
</script>
</html>
Листинг 74
<html>
<body>
<button onclick='vyvod()'>Старт</button> {Создается кнопка с исходной надписью и к ней привязывается процедура 'vyvod()'}
</body>
<script>
function start() {процедура для задания начального значения переменной i}
{
i =0
}
start() // запуск данной процедуры
</script>
<script>
function vyvod() // процедура смены надписи на кнопке
{
x = window.event.srcElement; {определение источника события, т.е. кнопки}
if (i==0)
{
x.innerText = ' 0'; // вывод надписи на кнопку
i = 1
}
else
{
x.innerText = '1';
i = 0
}
}
</script>
</html>
Листинг 75
<html>
<body>
<input ID="s1" type="text" value="Введите 1-ю строку">;
<input ID="s2" type="text" value="Введите 2-ю строку">;
<button onclick='Analiz()'>Проанализировать</button>]
</body>
<script>
function Analiz()
{
l1 =s1.value.length;
l2 = s2.value.length;
if (l1 > l2)
alert('Длиннее первая строка')
else
alert('Длиннее вторая строка')
}
</script>
</html>
New/Other Application
Console Application
Project1.dpr
{$APPTYPE CONSOLE}
DOS – ASCII Windows — ANSI
RUS
program funt2kg;
{$APPTYPE CONSOLE}
// Функция Rus преобразует ANSI-строку в ASCII-строку
function Rus(mes: string):string;
// В ANSI русские буквы кодируются числами от 192 до 255,
// в ASCII - от 128 до 175 (А..Яа..п) и от 224 до 239 (р..я)
var
i: integer; // номер обрабатываемого символа
begin
for i: =1 to length(mes) do
case mes[i] of
'A'..'n' : mes[i] := Chr(Ord(mes[i]) - 64);
'р'..'я' : mes[i] := Chr(Ord(mes[i]) -16);
end;
rus := mes;
end;
// основная программа
var
f:real; // вес в фунтах
w:real; // вес в граммах: w = f*0,4095 = k*1000 + g
k:integer; // кол-во килограммов
g:integer; // кол-во граммов
begin
writeln(Rus('Фунты-килограммы'));
writeln(Rus('Введите вес в фунтах и нажмите <Enter>'));
write('-> ');
readln(f);
w := f * 409.5; // один фунт — это 409,5 гр
if w > 1000 then
begin
k:=Trunc(w/1000);
g:=Round(w - k*1000);
end
else
begin
k:=0;
g:=Round(w) ;
end;
write(f:4:2, Rus(' ф. -это '));
if k >= 1 then
write(k, Rus(' кг. '));
writeln(g, Rus(' rp.'));
write(Rus('Для завершения нажмите <Enter>'));
readln;
end.
Project Compile
Run Run
File Save
uses
File New/Unit
unit
interface
implementation
Project Add to Project
<Переменная>:= InputBox(<Заголовок>, <Подсказка>, <Значение по умолчанию>);
