用pascal键盘输入x和y,若点在阴影内输出true,否则输出false
来源:百度知道 编辑:UC知道 时间:2024/06/30 01:36:25
急用
题目不够清晰,只能我自己假设一点条件了。
假设:阴影部分是一个矩形,且给出了该矩形左上角和右下角的坐标(x1,y1)、(x2,y2) ,而且最左上角的坐标为(0,0)
var x,y,x1,y1,x2,y2:integer;
begin
readln(x,y);
readln(x1,y1,x2,y2);{这句话根据情况来定,如果已知可改成直接赋值}
if (x>=x1) and (x<=x2) and (y>=y1) and (y<=y2) then
writeln('true') else writeln('false');
end.
判断用的四个条件的<、>根据实际情况可以更改。只要你简单地画个图模拟一下写出坐标就比较容易写出程序了。
能不能把题目说得再清楚些?
编写程序,分别从键盘输入数据x和y,计算x的y次幂并输出。
编写一个程序,从键盘输入X,Y,Z3个数,编写函数计算3个数的立方和并返回计算结果:S=X*X*X+Y*Y*Y+Z*Z*Z
8.根据键盘输入的x值,输出y的值。
用汇编语言实现:从键盘输入一个字符.若Y=非字母字符,X=0;若Y=数字符,X=1;若Y=字母符,X=-1.
x++=y++和*x++=*y++
关于X和Y
关于 pascal中标准函数swap(x,y)pascal的解释
x,y属于R,且x+y大于2,求证:(y+1)/x和(1+x)/y至少有一个小于2(用反证法)
x*x+y*y+4*x-6*y+13=0 x和y等于多少?
如果x和y互为倒数.求:(1).x*x*x+2y*y*x*x+x*y*y*y (2).x*x*x-x*y+y*y*y (要有过程)