Viết chương trình tính a/b. Nếu b<>0 (b khác 0) thì tính. Ngược lại báo lỗi "B không thỏa mãn điều kiện".
Viết chương trình nhập vào ba số thực a b c kiểm tra xem ABC có phải chiều dài của ba cạnh tam giác không Nếu không phải thì kiểm tra A B C không phải là chiều dài của ba cạnh tam giác Nếu thỏa mãn là chiều dài 3 cảnh thì tính và thoing báo ra màn hình chu vi, diện tích của 3 tam giác ?
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: ',2*p:4:2);
writeln('Dien tich la: ',s:4:2);
end
else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');
readln;
end.
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.
em hãy viết chương trình nhập vào 2 số a và b yêu cầu tính tổng hiệu tích thương của 2 số đó nếu b là số 0 thì thông báo là không tính được
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
if (b==0) cout<<"Ko tinh duoc";
else
{
cout<<a+b<<endl;
cout<<a-b<<endl;
cout<<a*b<<endl;
cout<<a/b;
}
return 0;
}
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.
Câu 1: Nhập vào 3 cạnh a,b,c của 1 tam giác. Viết chương trình cho biết đây có phải là 1 tam giác vuông không?
Câu 2: Viết chương trình tính kết quả của a chia b, với a,b được nhập từ bàn phím. Nếu trường hợp b<0 thì in thông báo phép chia không thực hiện được.
Giúp iem với ạ :<
Viết chương trình nhập từ bàn phím hai số nguyên a và b khác nhau (a>b), sử dụng câu lệnh điều kiện để kiểm tra xem a chia het cho b hay không, thông báo ra màn hình.
program chia_het;
uses crt;
var a,b:integer;
begin
writeln('Nhap so thu nhat');readln(a);
writeln('Nhap so thu hai');readln(b);
If (a mod b = 0) then writeln('chia het') else writeln('chia khong het');
readln
end.
chứng minh rằng nếu a,b,c là các số không âm thỏa mãn điều kiện sau: a+3c=8 và a+2b=9 thì N=a+b-c-17/2 là số không dương . tính a,b,c để N=0 ?
var hoten,sbd:string;
t,l,h,s:real;
begin
write('Nhap ho ten ');readln(hoten);
write('Nhap so bao danh);readln(sbd);
write('Nhap diem toan = ');readln(t);
write('Nhap diem ly = ');readln(l);
write('Nhap diem hoa = ');readln(h);
s:=t+l+h;
if s >= 15 then write('Ban da trung tuyen')
else write('Ban khong trung tuyen');
readln;
end.
Viết chương trình thực hiện điều kiện sau:
- Nếu điểm trung bình của năm học (DTB) mà từ 5.0 trở lên thì ghi là “được lên lớp”, ngược lại thì ghi là “thi lại” (lưu ý DTB được tính từ 3 môn Toán, Văn, Anh).
var t,v,a,dtb: real;
begin
writeln(' diem mon Toan la: ');
read(t);
writeln(' diem mon Van la: ');
read(v);
writeln(' diem mon Anh la: ');
read(a);
dtb = ( t + v + a)/3
if ( dtb >= 5 ) then
writeln(' duoc len lop');
else
writeln(' thi lai');
readln;
end.