Question

Viết chương trình Pascal theo các yêu cầu sau(sử dụng thuật toán):

Bài 1: nhập vào 1 số tự nhiên n và kiểm tra xem n là số chẵn hay lẻ?

Bài 2: nhập vào ba cạnh tam giác a, b, c dương và kiểm tra tam giác đó có là tâm giác cân hay không?

Bài 3: nhập vào 3 cạnh tam giác a, b, c và kiểm tra tam giác đó có vuông hay không?

Bài 4: nhập vào các điểm toán, tin, văn, anh. Hãy tính tổng điểm trung bình của bạn đó và tính điểm trung bình của bạn đó

Giúp mình đi ạ đây là đề ktra nên cân gấp lắm😭

Answer 1

b1:

var n:int64;

begin

readln(n);

if odd(n) then write('le') else write('chan');

readln;

end.

b2:

var a,b,c:real;

begin

readln(a,b,c);

if (a=b) or (b=c) or (a=c) then write('la tam giac can') else write('khong phai tam giac can');

readln;

end.

b3:

var a,b,c:real;

begin

readln(a,b,c);

if sqr(a)=(sqr(b)+sqr(c)) then write('la tam giac vuong') else

if sqr(b)=(sqr(a)+sqr(c)) then write('la tam giac vuong') else

if sqr(c)=(sqr(b)+sqr(a)) then write('la tam giac vuong') else

write('khong phai tam giac vuong');

readln;

end.

b4:

var toan,tin,anh,van,tong:real;

begin

readln(toan);tong:=tong+toan;

readln(tin);tong:=tong+tin;

readln(van);tong:=tong+van;

readln(anh);tong:=tong+anh;

writeln(tong:0:0);writeln(tong/4:0:0);

readln;

end.

Answer 2

1

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.

2:

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

repeat

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

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

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

if (a<=0) or (b<=0) or (c<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then

begin

kt:=0;

if (a=b) and (a<>c) and (b<>c) then kt:=1;

if (b=c) and (b<>a) and (c<>a) then kt:=1;

if (c=a) and (c<>b) and (a<>b) then kt:=1;

if kt=0 then writeln('day khong phai tam giac can')

else writeln('day la tam giac can');

end

else writeln('ba canh vua nhap khong phai la tam giac');

readln;

end.

3:

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

repeat

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

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

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

if (a<=0) or (b<=0) or (c<=0) then writeln('ban da nhap sai, yeu cau ban nhap lai');

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then

begin

kt:=0;

if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then kt:=1;

if kt=0 then writeln('day khong phai la 3 canh trong 1 tam giac vuong')

else writeln('day la 3 canh trong 1 tam giac vuong');

end

else writeln('day khong phai la 3 canh trong 1 tam giac');

readln;

end.

4:

uses crt;

var a,b,c,d,t:real;

begin

clrscr;

write('nhap diem toan:'); readln(a);

write('nhap diem tin:'); readln(b);

write('nhap diem van:'); readln(c);

write('nhap diem anh:'); readln(d);

t:=a+b+c+d;

writeln('tong diem cua ban do la: ',t:4:0);

writeln('diem trung binh cua ban do la: ',t/4:4:2);

readln;

end.

Answer 3

b1:

var n:int64;

begin

readln(n);

if odd(n) then write('le') else write('chan');

readln;

end.

b2:

var a,b,c:real;

begin

readln(a,b,c);

if (a=b) or (b=c) or (a=c) then write('la tam giac can') else write('khong phai tam giac can');

readln;

end.

b3:

var a,b,c:real;

begin

readln(a,b,c);

if sqr(a)=(sqr(b)+sqr(c)) then write('la tam giac vuong') else

if sqr(b)=(sqr(a)+sqr(c)) then write('la tam giac vuong') else

if sqr(c)=(sqr(b)+sqr(a)) then write('la tam giac vuong') else

write('khong phai tam giac vuong');

readln;

end.

b4:

var toan,tin,anh,van,tong:real;

begin

readln(toan);tong:=tong+toan;

readln(tin);tong:=tong+tin;

readln(van);tong:=tong+van;

readln(anh);tong:=tong+anh;

writeln(tong:0:0);writeln(tong/4:0:0);

readln;

end.