Question

Xác định bài toán, mô tả thuật toán và viết chuong trình:

a tính giá trị biểu thức: b² - 4ab, với a, b, c là các số nhập từ bàn phím

b kiểm tra một số nguyên N là số chẵn hay số lẻ

c kiểm tra một số bất kỳ R là số lớn hơn 0, nhỏ hơn hay bằng 0

Answer 1

giúp mình với

Answer 2

cần j phải nhập c bạn

Answer 3

Answer 4

Answer 5

a)

*Xác định bài toán

-input: ba số a,b,c

-output: tính giá trị của biểu thức \(b^2-4ab\)

*Mô tả thuật toán

-Bước 1: nhập a,b,c

-Bước 2: s:=sqr(b)-4*a*b;

-Bước 3: Xuất s

-Bước 4: Kết thúc

*Viết chương trình

uses crt;

var a,b,c,s:integer;

begin

clrscr;

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

write('b='); readln(b);

write('c='); readln(c);

s:=sqr(b)-4*a*b;

writeln('gia tri cua bieu thuc ',b,'^2-4*',a,'*',b,' la: ',s);

readln;

end.

b)

*Xác định bài toán

-input: Số n

-output: Kiểm tra n là chẵn hay lẻ

*Mô tả thuật toán

-Bước 1: nhập n

-Bước 2: nếu n chia hết cho 2 thì xuất n la so chan

-Bước 3: Ngược lại thì xuất n la so le

-Bước 4: Kết thúc

*Viết chương trình

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.

c)

*Xác định bài toán

-input: số r

-output: Kiểm tra r là số lớn hơn 0, nhỏ hơn hay bằng 0

*Mô tả thuật toán

-Bước 1: nhập r

-Bước 2: Nếu r<0 thì xuất r nho hon 0

-Bước 3: Nếu r=0 thì xuất r bang 0

-Bước 4: nếu r>0 thì xuất r lon hon 0

-Bước 5: Kết thúc

*Viết chương trình

uses crt;

var r:integer;

begin

clrscr;

write('r='); readln(r);

if r=0 then writeln(r,' la so 0');

if r>0 then writeln(r,' lon hon 0');

if r<0 then writeln(r,' nho hon 0');

readln;

end.