Bài 5. Từ bài toán đến chương trình

박 김씨

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😭

Nguyễn Chơn Nhân
25 tháng 11 2019 lúc 7:49

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.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
25 tháng 11 2019 lúc 12:54

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.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Huy Hoàng Sơn
11 tháng 2 2020 lúc 9:45

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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Huynh ThuongHan
Xem chi tiết
nguyễn thị diệu linh
Xem chi tiết
Minh
Xem chi tiết
phạm ngọc hân
Xem chi tiết
Cảnh
Xem chi tiết
Nguyễn Thị Hải Vy
Xem chi tiết
khánh
Xem chi tiết
Dinh Vu
Xem chi tiết
Yến Nhi Nhi
Xem chi tiết