Опиши своими словами диск и флэш- память
Ответы
Заодно потренировался, вот тебе 1), а остальной нету.
<!doctype html><html><head></head><body><!-- меньше алертов --><script type="text/javascript">function stroka(x,y,z) { var str = prompt("BBegu"); var sumx; var sumy; var sumz; var x; var y; var z; sumx=0; sumy=0; sumz=0; if (str.indexOf("*") >= 0) { x = str.indexOf("*"); document.write("str[x"+x+"]="+str[x]+"<br>"); sumx=sumx+1; } else { document.write("HeTy x <br>"); } if (str.indexOf(":") >= 0) { y = str.indexOf(":"); document.write("str[y"+y+"]="+str[y]+"<br>"); sumy=sumy+1; } else { document.write("HeTy y <br>"); } if (str.indexOf(";") >= 0) { z = str.indexOf(";"); document.write("str[z"+z+"]="+str[z]+"<br>"); sumz=sumz+1; } else { document.write("HeTy z <br>"); }
for (i=0; i<=str.length-1; i++) { if (str.indexOf("*",i) > x) { document.write("str["+str.indexOf("*",i)+"]="+str[str.indexOf("*",i)]+"<br>"); sumx=sumx+1; x = str.indexOf("*",i); } if (str.indexOf("*",i) > y) { document.write("str["+str.indexOf(":",i)+"]="+str[str.indexOf(":",i)]+"<br>"); sumy=sumy+1; y = str.indexOf(":",i); } if (str.indexOf("*",i) > z) { document.write("str["+str.indexOf(";",i)+"]="+str[str.indexOf(";",i)]+"<br>"); sumz=sumz+1; z = str.indexOf(";",i); } } document.write('sumx='+sumx+"<br>"); document.write('sumy='+sumy+"<br>"); document.write('sumz='+sumz+"<br>");}stroka (2);alert(x);
</script><br /></body></html>
<!doctype html><html><head></head><body><!-- меньше алертов --><script type="text/javascript">function stroka(x,y,z) { var str = prompt("BBegu"); var sumx; var sumy; var sumz; var x; var y; var z; sumx=0; sumy=0; sumz=0; if (str.indexOf("*") >= 0) { x = str.indexOf("*"); document.write("str[x"+x+"]="+str[x]+"<br>"); sumx=sumx+1; } else { document.write("HeTy x <br>"); } if (str.indexOf(":") >= 0) { y = str.indexOf(":"); document.write("str[y"+y+"]="+str[y]+"<br>"); sumy=sumy+1; } else { document.write("HeTy y <br>"); } if (str.indexOf(";") >= 0) { z = str.indexOf(";"); document.write("str[z"+z+"]="+str[z]+"<br>"); sumz=sumz+1; } else { document.write("HeTy z <br>"); }
for (i=0; i<=str.length-1; i++) { if (str.indexOf("*",i) > x) { document.write("str["+str.indexOf("*",i)+"]="+str[str.indexOf("*",i)]+"<br>"); sumx=sumx+1; x = str.indexOf("*",i); } if (str.indexOf("*",i) > y) { document.write("str["+str.indexOf(":",i)+"]="+str[str.indexOf(":",i)]+"<br>"); sumy=sumy+1; y = str.indexOf(":",i); } if (str.indexOf("*",i) > z) { document.write("str["+str.indexOf(";",i)+"]="+str[str.indexOf(";",i)]+"<br>"); sumz=sumz+1; z = str.indexOf(";",i); } } document.write('sumx='+sumx+"<br>"); document.write('sumy='+sumy+"<br>"); document.write('sumz='+sumz+"<br>");}stroka (2);alert(x);
</script><br /></body></html>
Паскаль не помню, но как решить задачу могу объяснить.
дано две противоположенные вершины прямоугольника
(x1,y1) и (x2,y2)
прямоугольник при этом будет ровно один
проверка на принадлежность точки этому прямоугольнику проста
пусть x,y -это координаты точки
вначале надо проверить кто больше x1 или x2, и y1 или y2
if (x1>x2) {
rx1 = x2; rx2 = x1;
} else {
rx1 = x1; rx2 = x2;
}
if (y1>y2) {
ry1 = y2; ry2 = y1;
} else {
ry1 = y1; ry2 = y2;
}
if (x>rx1) and (x<rx2) and (y>ry1) and (y<ry2) {
точка с координатами X, Y лежит внутри прямоугольника.
}
if (x=rx1) or (x=rx2) or (y=ry1) or (y=ry2) {
точка с координатами X, Y лежит на одной из граней прямоугольника.
}
Теперь осталось написать
PROGRAM
BEGIN
readln(координаты)
проверки
writeln(ответ)
END.
дано две противоположенные вершины прямоугольника
(x1,y1) и (x2,y2)
прямоугольник при этом будет ровно один
проверка на принадлежность точки этому прямоугольнику проста
пусть x,y -это координаты точки
вначале надо проверить кто больше x1 или x2, и y1 или y2
if (x1>x2) {
rx1 = x2; rx2 = x1;
} else {
rx1 = x1; rx2 = x2;
}
if (y1>y2) {
ry1 = y2; ry2 = y1;
} else {
ry1 = y1; ry2 = y2;
}
if (x>rx1) and (x<rx2) and (y>ry1) and (y<ry2) {
точка с координатами X, Y лежит внутри прямоугольника.
}
if (x=rx1) or (x=rx2) or (y=ry1) or (y=ry2) {
точка с координатами X, Y лежит на одной из граней прямоугольника.
}
Теперь осталось написать
PROGRAM
BEGIN
readln(координаты)
проверки
writeln(ответ)
END.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Чему будет равно значение выражения (17 div 2) mod 5?
Автор: prik-galina7390
Программисты составить программу pascal . номер 7
Автор: ustinovalubov6666
Что такое анимация сор 5 класс
Автор: Семеновна-Павел
Написать программу снежинки в pascalabc (не кучу снежинок, а только ! )
Автор: Нана_Елена
Принадлежит ли точка графику функции y=kx
Автор: gudachaa1480
Флеш память это флешка или карта памяти можно вставить в любое электронное устройство