Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var x,y :int64;
begin
clrscr;
write('nhap gia tri cua x: ');
readln(x);
write('nhap gia tri cua y: ');
readln(y);
if (x>= y ) then write('S = ', x+y)
else write ('S = ', x-y);
readln;
end.
Câu 3: Viết câu lệnh rẽ nhánh tìm nghiệm của BPT ax2+bx+c>0 (a>0)
Đáp án :
Program gptb2; Uses crt; Var a,b,c:real; D,X1,X2:real; Begin Clrscr; Write(‘a,b,c:’); Readln(a,b,c); D:=b*b-4*a*c; If D<0 then writeln(‘Phuong trinh vo nghiem ’) Else Begin X1:=(-b-sqrt(D))/(2*a); X2:=-b/a-X1; Writeln(‘X1=’,X1:8:3,’ X2=’,X2:8:3); End; Readln; End.
HT
Cách 1:
if (x >= 1) or (x <= 0)
then D:= -2*x + 1 else D:= sqr(x) + 2*x + 1;
Cách 2:
if (0 < x) and (x < 1)
then D:= sqr(x) + 2*x +1 else D:= -2*x + 1;
Cách 1:
if (x > 1) or (x <= -1)
then C:= sqrt(x) + 1 else C:= 2*x - 3;
Cách 2:
if (-1 < x) and (x <= 1)
then C:= 2*x – 3 else C:= sqrt(x) + 1;
2:
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
if (a<0) cout<<"a la so am";
else cout<<"a khong la so am";
return 0;
}
uses crt;
var x,y,z:real;
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
z:=abs(1-sqr(x))+abs(1-sqr(y));
writeln('Z=',z:4:2);
readln;
end.