Bài 6. Câu lệnh điều kiện

Sonyeondan Bangtan
Viết câu lệnh điều kiện kiểm tra xem số a là số dương hay số âm. Viết câu lệnh điều kiện kiểm tra xem số x là số chẵn hay số lẻ. Viết chương trình giải phương trình ax+b=0 với a,b bất kì nhập từ bàn phím.
Nguyễn Lê Phước Thịnh
12 tháng 10 2019 lúc 9:29

1:

uses crt;

var a:integer;

begin

clrscr;

write('a='); readln(a);

if a>0 then writeln(a,' la so duong');

if a<0 then writeln(a,' la so am');

if a=0 then writeln(a,' khong la so duong cung khong la so am');

realdn;

end.

2:

uses crt;

var x:longint;

begin

clrscr;

write('nhap x='); readln(x);

if x mod 2=0 then writeln(x,' la so chan');

if x mod 2=1 then writeln(x,' la so le');

readln;

end.

3:

Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln('------------------------------------------------------------'); Write ('Nhap a= '); readln(a); Write ('Nhap b= '); readln(b); If(a=0) then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2); Readln End.
Bình luận (0)

Các câu hỏi tương tự
Minh Ngọc
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết
Phạm Hải Đăng
Xem chi tiết
phamthiminhanh
Xem chi tiết
Xem chi tiết
Minh Ngọc
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
Nguyễn Mai Lan
Xem chi tiết
Mai Quỳnh Anh
Xem chi tiết