Nhập vào 2 số a và b. Nếu a>b, thì in ra màn hình a ngược lại thì in ra b
Viết chương trình nếu a,b >0 thì tính và in ra màn hình tích của a,b ngược lại hiển thị yêu cầu nhập lại
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then writeln(a*b)
else writeln('Nhap lai');
readln;
end.
Viết công thức nhập vào 2 số nguyên a và b. Nếu số a lớn hơn b thì xuất ra màn hình hai số vừa nhập ngược lại thì hoán đổi giá trị hai số a và b và xuất ra màn hình. Em mới học lớp 7 mà tại trường điểm nên cho nâng cao lớp 8 luôn ạ
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>b) then writeln(b,' ',a)
else writeln(a,' ',b);
readln;
end.
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('Nhap a,b');
Realn(a,b);
If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)
else writeln('Yeu cau nhap lai');
Readln;
End.
a) Nếu b chia 2 dư 0 thì in ra màn hình “b là số chẵn”, ngược lại nếu b chia 2 dư 1 thì in ra màn hình “b là s hat o le^ prime prime
Cách 1: Viết hai câu lệnh điều kiện dạng thiếu:
if..
if...
if (b%2==0) cout<<"b la so chan";
if (b%2==1) cout<<"b la so le";
a) Nếu b chia 2 dư 0 thì in ra màn hình “b là số chẵn”, ngược lại nếu b chia 2 dư 1 thì in ra màn hình “b là s hat o le^ prime prime
Cách 1: Viết hai câu lệnh điều kiện dạng thiếu:
if..
if...
if (b%2==0) cout<<"b la so chan";
if (b%2==1) cout<<"b la so le";
a) Nếu b chia 2 dư 0 thì in ra màn hình “b là số chẵn”, ngược lại nếu b chia 2 dư 1 thì in ra màn hình “b là s hat o le^ prime prime
Cách 1: Viết hai câu lệnh điều kiện dạng thiếu:
if..
if...
if (b%2==0) cout<<"b la so chan";
else cout<<"b la so le";
viết chương trình tính tam giác: Nhập ba số a,b,c bất kì.Kiểm tra xem nó có thể là ba cạnh của tam giác hay không, nếu không thì in ra màn hình ''không làm ba cạnh của một tam giác', ngược lại thì in diện tích, chu vi của tam giác ra màn hình
PROGRAM DIEN TICH TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien tich tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.
* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)
Chúc bạn học tốt!
uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c:');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
write('3 canh vua nhap la tam giac')
write('3 canh vua nhap ko phai la tam giac');
readln;
end.
Mọi người giúp em với ạ
free pascal nhập a, b, c bất kì. kiểm tra xem nó có là 3 cạnh của tam giác hay không, nếu không thì in ra màn hình ‘a, b, c khong la ba canh cua tam giac’. ngược lại thì in diện tích và chu vi của tam giác ra màn hình.
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi la: ',p*2:4:2);
writeln('Dien tich la: ',s:4:2);
end
else writeln('a,b,c khong la ba canh cua tam giac');
readln;
end.
Viết chương trình nhập vào 2 số d và b từ bàn phím xuất xuất ra màn hình số a nếu a>b ngược lại xảy ra b
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a)
else writeln(b);
readln;
end.