Giúp em 10 bài pascal cơ bản e sắp phải nộp bài

[quangaqua92]

Mong các anh viết hộ em mấy bài pascal cơ bản này để e tham khảo. em mới học

B1 : Viết chương trình nhập vào các số từ 1 đến 7 sau đó in
ra thứ trong tuần ứng với con số đó (1:Chủ nhật , 2 :thứ 2)


B2:Viết chương trình nhập
vào 3 số nguyên dương.Hãy kiểm tra xem 3 số này có dung làm 3 cạnh của 1 tam
giác được hay k (tổng 2 cạnh lớn hơn cạnh thứ 3). Nếu được thì kiểm tra xem tam
giác này là tam giác gì ? (đều,
cân,vuông hay bình thường )

B3 : Viết chương trình nhập vào nhiệt độ ngày
hôm nay,máy sẽ hiện thong báo đề nghị bạn chon loại giải trí thích hợp.Ví dụ :
Nếu dưới 20 độ thì ở nhà xem tivi , dưới
25 độ thì đi picnic , dưới 30 độ thì nên đi quất lâm , trên 30 độ thì đi Sapa/


B4 : Viết chương trình nhập
vào 1 năm trong khoảng từ 1900 đến 2100.
Kiểm tra xem năm đó có phải năm nhuận
hay không ( năm nhuận là năm chia hết cho 4 và nếu năm đó chia hết cho 100 thì
nó cũng phải chia hết cho 400 )

B5: viết chương trình nhâpj
vào một ngày (d),tháng (m), năm (y) .kiểm tra xem ngày đó là ngày thứ mấy trong
tuần .


Hướng dẫn : Tính A=d+2*m+(3*(m+1) div 5)+y+y
div 4 + 1


Lấy A chia 7 dư bao nhiêu
thì đó là ngày thứ mấy ( chủ nhật là 1)
Chú ý: tháng giêng phải đổi thành tháng 13 năm trc , tháng 2 đổi
thành tháng 14 năm trc,các tháng còn lại ko thay đổi


B7: viet chuong trinh nhap 1
khoang thoi gian tinh theo giay va in ra gio,phut,giay


Vi du: nhap 250 giay in ra
:4 phut ,10 giay

B8:viết chương trình cho biết giá trị thực x sau đó nếu bấm một
trong các chữ cái S,C,T từ bàn phím thì máy sẽ cho ra sinx,cosx,tgx tương ứng

B9 : Viết chương trình nhập
vào một số tự nhiên . Kiểm tra xem số này có phải số chính phương không ?

B10 : Viết chương trình nhâp vào 1 số tự nhiên. Kiểm tra xem số này có phải số nguyên tố không

B11 : viết chương trình làm toán với hình tròn bằng cách tạo menu sau :
1. Nhập bán kính (R) ,in ra chu vi (CV) và diện tích (DT)
2. nhập CV , in ra diện tích và bán kính
3. nhập diện tích,in ra chu vi và bán kính
4. thoát

[=========> Bổ sung bài viết <=========]

không ai giup em ak :(( giup em di ma

[boy38]

bài 1:
Viết chương trình nhập vào các số từ 1 đến 7 sau đó in
ra thứ trong tuần ứng với con số đó (1:Chủ nhật , 2 :thứ 2)

program bai_1;
uses crt;
type ngay_lam_viec = (2,3,4,5,6,7,chu_nhat);
var ng:ngay_lam_viec;
s:real;
begin clrscr;
for ng:= 2 to chu_nhat do
begin
case ng of
2:s:='thu hai';
3:s:='thu ba';
4:s:='thu tu';
5:s:='thu nam';
6:s:='thu sau';
7:s:='thu bay';
chu_nhat:s:='chu nhat';
end;
readln;
END.

[=========> Bổ sung bài viết <=========]

B2:Viết chương trình nhập
vào 3 số nguyên dương.Hãy kiểm tra xem 3 số này có dung làm 3 cạnh của 1 tam
giác được hay k (tổng 2 cạnh lớn hơn cạnh thứ 3). Nếu được thì kiểm tra xem tam
giác này là tam giác gì ? (đều,
cân,vuông hay bình thường

program bai_2;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln('kiem tra tam giac');
write('nhap a:'); readln(a);
write('nhap b:'); readln(b);
write('nhap c:'); readln(c);
if ((a+b)>c)and ((b+c)>a)and ((a+c)>b) then
begin
writeln('ba canh vua nhap tao thanh mot tam giac');
if (a=b=c)then writeln('la tam giac deu');
if (a=b)or (a=c) or (c=b)then writeln('la tam giac can');
if (a*a + b*b = c*c) or (a*a + c*c = b*b) or (c*c + b*b = a*a) then writeln('la tam giac vuong');
else writeln('la tam giac thuong');
end;
readln;
end.

[=========> Bổ sung bài viết <=========]

B3 : Viết chương trình nhập vào nhiệt độ ngày
hôm nay,máy sẽ hiện thong báo đề nghị bạn chon loại giải trí thích hợp.Ví dụ :
Nếu dưới 20 độ thì ở nhà xem tivi , dưới
25 độ thì đi picnic , dưới 30 độ thì nên đi quất lâm , trên 30 độ thì đi Sapa/

program bai_3;
uses crt;
var n:real;
begin clrscr;
writeln('chon loai giai tri cho hom nay');
write('nhap nhiet do trong ngay:'); readln(n);
if (n<=20) then writeln('hom nay o nha xem tivi di ban');
if (n>20) and (n<=25) then writeln('di picnic duoc day ban a');
if (n>25) and (n<=30) then writeln('hom nay di tam quat di');
if (n>30) then writeln('hom nay di sapa');
readln;
end.

[pha_96]

May bai ni ze om ma.cung co nhieu cach giai

[boy38]

cũng tùy đối với từng người chứ đâu phải ai cũng dễ đâu.
còn mấy bài sau nữa cậu làm giúp với nà.xem còn những cách nào nữa ta cùng trao đổi cho ae mở rộng tầm mắt với

[thanhthao_11]

minh` làm bài 7 rồi
program giophutgiay;
var gio,phut,giay:longint;
begin
write('nhap giay:');readln(giay);
gio:=giay div 3600; giay:=giay mod 3600;
phut:= giay div 60; giay:=giay mod 60;
write(gio,'gio',phut,'phut',giay,'giay');
readln;
end.

[boy38]

làm nốt mấy bài còn lại đi.
bài 10 thì chắc không cần làm nữa đâu