Проги^^
Проги
Сообщений 1 страница 7 из 7
Поделиться22014-01-23 06:59:46
<html>
<script language="JavaScript">
function f2()
{
n=0
if(sel1.options[0].selected){n=n+1}
if(sel2.options[1].selected){n=n+1}
if(sel3.options[1].selected){n=n+1}
if(sel4.options[2].selected){n=n+1}
itog.value="твой результат:" +n
}
</script>
<body
background="2.jpg" >
<center>
<table>
<tr>
<td><img src="3.jpg" height=300 ></td>
<td><img src="5.jpg" height=300 ></td>
</tr>
<tr>
<td><center><font color= yellow>
<select id="sel1" size="1" multiple>
<option >да </option>
<option >нет </option>
<option >наверно </option>
<option >точно </option>
<option >ну</option>
</select>
<br>
<td><center><font color= yellow>
<select id="sel2" size="1" multiple>
<option >да </option>
<option >нет </option>
<option >наверно </option>
<option >точно </option>
<option >ну</option>
</select><br>
</td></center>
</tr>
<tr>
<td><center><img src="7.jpg" height=300 ></td>
<td><img src="8.jpg" height=300 ></td>
</tr>
<tr>
<td><center><font color= yellow>
<select id="sel3" size="1" multiple>
<option >да </option>
<option >нет </option>
<option >наверно </option>
<option >точно </option>
<option >ну</option>
</select><br>
<td><center><font color= yellow>
<select id="sel4" size="1" multiple>
<option >да </option>
<option >нет </option>
<option >наверно </option>
<option >точно </option>
<option >ну</option>
</select><br>
</td></center>
</table>
<center>
<input type="button" value="resulta" onClick="f2()"><br><br>
</center>
<center>
<input type="text" id="itog" size= 20>
</center>
</center>
</html>
Поделиться32014-02-26 06:46:03
<html>
<script language="javascript">
a=prompt("*И тут ты понимаешь что тебе нужно написать первый знак*"," ")
b=prompt("*И тут ты понимаешь что тебе нужно написать второй знак*"," ")
c=prompt("*И тут ты понимаешь что тебе нужно написать третий знак*"," ")
d=b*b-4*a*c
if(d<0){alert("НЕТ КОРНЕЙ!")
}
if(d==0){alert("x="+ (-b/(2*a)))
}
if(d>0){
alert("x="+(-b+Math.sqrt(d))/(2*a)+" x="+(-b-Math.sqrt(d))/(2*a))
}
</script>
</html>
Поделиться62014-10-01 06:57:14
Sub ÆÌÈ()
Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True
AppWord.Documents.Add
For s = 2 To 371
If (Cells(s, 3) = "ì" And Left(Cells(s, 5), 2) = "10" Or Cells(s, 3) = "ì" And Left(Cells(s, 5), 2) = "11") Then
Cells(100, 100) = Cells(s, 2) + " " + Cells(s, 1)
Cells(100, 100).Copy
AppWord.Selection.Paste
End If
Next s
End Sub
Поделиться72015-09-30 07:50:36
Все картинки - мувики с названиями k1....... k12
все обложки - мувики с названиями ob1 ...... ob12
Переходим в слой программ
в первом кадре - n=0
в третьем кадре gotoandplay(2)
во втором кадре написать 12 программ (здесь 1 --> 2)
ob1.onPress=function()
{ob1._visible=false
if(f==0){eval("ob"+n)._visible=true}
f=0
if (n==2)
{k1._visible=false
k2._visible=false
ob2._visible=false
f=1
}
n=1
}