Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Heo Con🐷🐷🐷

1) Viết chương trình giải phương trình có dạng ax^2 + bx + c = 0 (a#0)

2) Viết chương trình nhập vào 3 số nguyên a, b, c. In ra màn hình số lớn nhất (max) trong 3 số

3) Viết chương trình nhập vào độ dài 3 cạnh tam giác a, b, c. Cho biết loại của tam giác đó ( tam giác đều, cân, vuông hay tam giác thường)

4) Viết chương trình nhập vào là số nguyên a. Kiểm tra và in ra màn hình số này là số âm hay dương và chẵn hay lẻ

Giúp em với ạ

Nguyễn Lê Phước Thịnh
8 tháng 12 2019 lúc 21:44

1:

Program GIAI_PHUONG_TRINH_BACII;
Uses CRT;
Var a,b,c,D,x,x1,x2: real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC II: ');
Writeln('-------------------------------------------');
Write('Nhap he so a='); readln(a);
Write('Nhap he so b='); readln(b);
Write('Nhap he so c='); readln(c);
If a=0 then
If b=0 then
If c=0 then
Writeln('Phuong trinh co vo so nghiem')
Else Writeln('Phuong trinh vo nghiem')
Else Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2)
Else
Begin
D:=b*b-4*a*c;
If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2)
Else
If D<0 then Writeln('Phuong trinh vo nghiem')
Else
Begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
Writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2);
End;
End;
Readln;

End.

2:

uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln('so lon nhat la: ',max);
readln;
end.

3:

uses crt;
var a,b,c,kt:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
write('nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write('day la tam giac ');
kt:=0;
if ((a=b)and(a<>c)and(b<>c)) or ((b=c)and(b<>a)and(b<>c)) or ((a=c)and(a<>b)and(c<>b)) then kt:=1;
if (a=b) and (b=c) then kt:=2;
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then kt:=3;
if kt=0 then write('thuong');
if kt=1 then write('can');
if kt=2 then write('deu');
if kt=3 then write('vuong');
end
else writeln('day khong phai la tam giac');
readln;
end.

4:

uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
if a>0 then writeln(a,' la so duong')
else if a<0 then writeln(a,' la so am')
else writeln(a,' khong la so am cung khong la so duong');
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyễn Thị Tươi
Xem chi tiết
Hà Phương
Xem chi tiết
Trần văn tuấn
Xem chi tiết
Thái Bảo
Xem chi tiết
Nam Phạm An
Xem chi tiết
Hoàng lĩnh
Xem chi tiết
Tran Anh
Xem chi tiết
Trần Thị Hương Ly
Xem chi tiết
Anna
Xem chi tiết