Chào các cậu, mình là con nhóc ngu tin, ngu toàn tập, ngày mai mình kiểm tra mất rồi, nên mình cầu xin, nài nỉ, quỳ lạy luôn ý, các bạn giúp mình giải ba chương trình này nhé, làm ơn.
Mình biết các cậu đều là những người tốt mà, giúp mình nhé...
1. Viết chương trình giải phương trình bậc nhất: ax + b = 0.
2. Nhập từ bàn phím. Viết chương trình kiểm tra độ dài tam giác. Nếu là tam giác thì tính chu vi tam giác.
3. Viết chương trình kiểm tra số đó là số chẵn hay số lẻ.
Coi như lạy đầu dập đất van xin các cậu hãy để ý đến bài viết này mà giúp mình, cảm ơn.
đơn giản lắm cậu ạ
bài 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap he so bat 1:'); readln(a);
write('nhap so hang tu do:'); readln(b);
if a=0 then
if b=0 then writeln('phuong trinh co vo so nghiem')
else writeln('phuong trinh vo nghiem')
else writeln('phuong trinh co 1 nghiem x=',-b/a:4:2);
readln;
end.
bài 2:
uses crt;
var a,b,c,p:integer;
begin
clrscr;
write('nhap canh thu 1: '); readln(a);
write('nhap canh thu 2: '); readln(b);
write('nhap canh thu 3: '); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
p:=a+b+c;
writeln('chu vi tam giac la: ',p);
end
else writeln('day khong la do dai 3 canh cua 1 tam giac');
readln;
end.
bài 3:
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
readln;
end.
