GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
5 posters
Trang 1 trong tổng số 1 trang
GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
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 ?
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 ?
quangaqua92- Thành viên mới
- Ngày sinh : 15/04/1992
Tuổi : 31
Ngày đăng ký : 27/12/2010
Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
mình chỉ gợi ý thôi, code bạn phải tự viết lấy. như thế bạn mới hiểu và nhớ lâu được.
bài 1: dùng case of
bài 2 : a,b,c là 3 cạnh một tam giác <=> (a+b)>c or (b+c)>a or (c+a)>b
* cân : (a=b) or (b=c) or (c=a)
* đều : (a=b) and (b=c)
* vuông : (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b)
* thường : không thỏa các dk trên
bài 3 : dùng if, khai báo một biết nhiệt độ kiểu byte trước
bài 4: dùng if luôn
bài 7 : s là biến giây nhập vào
bài 8 : case of và readkey
bài 9:
n là số chính phương <=> sqr(trunc(sqrt(n)))=n
bài 1: dùng case of
- Code:
case n of
1:writeln('chu nhat');
2:writeln('thu hai');
3:writeln('thu ba');
4:writeln('thu tu');
5:writeln('thu nam');
6:writeln('thu sau');
7:writeln('thu bay');
end;
bài 2 : a,b,c là 3 cạnh một tam giác <=> (a+b)>c or (b+c)>a or (c+a)>b
* cân : (a=b) or (b=c) or (c=a)
* đều : (a=b) and (b=c)
* vuông : (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b)
* thường : không thỏa các dk trên
bài 3 : dùng if, khai báo một biết nhiệt độ kiểu byte trước
- Code:
if nhietdo>=30 then writeln('di sapa');
else if nhietdo>=25 writeln('di quat lam');
else if nhietdo>=20 writeln('di picnic');
else writeln('o nha xem tivi');
bài 4: dùng if luôn
- Code:
if (nam mod 4=0) or (nam mod 100=0 and nam mod 400=0) then writeln('nam nhuan');
else printf('khong phai nam nhuan');
bài 7 : s là biến giây nhập vào
- Code:
g=s div 3600;
s=s mod 3600;
p=s div 60;
s=s mod 60;
writeln('gio = ',g,':',p,':',s);
bài 8 : case of và readkey
- Code:
uses crt;
var ch:char;
x:real;
begin
clrscr;
write('nhap x : ');
readln(x);
write('nhap phep toan : ');
ch:=readkey;
case ch of
case 's':writeln('sin(x) = ',sin(x));
case 'c':writeln('cos(x) = ',cos(x));
end;
readln;
end.
bài 9:
n là số chính phương <=> sqr(trunc(sqrt(n)))=n
Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
help me:guip em voi, co de bai nhu sau em khong bik lam.Ban hay nhap vao ban phm 3 so nguyen bat ki va kiem tra xem tong cua chung co lon hon 1 khong va hay in ra.
tranhoangnam- Thành viên mới
- Ngày sinh : 27/11/1996
Tuổi : 27
Đến từ : hai phong
Ngày đăng ký : 01/01/2011
Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
Bài 9 ne bạn:
var n:longint;
begin
write('nhap n='); readln(n);
if sqr(trunc(sqrt(n))=n then write(n,'la so chinh phuong')
else write(n,'la so chinh phuong');
readln
end.
var n:longint;
begin
write('nhap n='); readln(n);
if sqr(trunc(sqrt(n))=n then write(n,'la so chinh phuong')
else write(n,'la so chinh phuong');
readln
end.
nbni- Thành viên mới
- Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011
Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
Bài 1:Viết chương trình cắt chuỗi nhập vào từ bàn phím thành từng từ.
Bài 2:Viết chương trình nhập 1 chuỗi từ bàn phím rồi đếm số lần xuất hiện của các từ tạo nên chuỗi đó.
Bài 2:Viết chương trình nhập 1 chuỗi từ bàn phím rồi đếm số lần xuất hiện của các từ tạo nên chuỗi đó.
tuan045610- Thành viên mới
- Ngày sinh : 18/08/1996
Tuổi : 27
Ngày đăng ký : 07/03/2011
Similar topics
» ai biết gì về đồ họa trong pascal ko giup mình bài này vói nhe
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
» anh em giup cai
» Ai Giup' Sua Dum` Bai Nai` Voi
» ai giup minh vs
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
» anh em giup cai
» Ai Giup' Sua Dum` Bai Nai` Voi
» ai giup minh vs
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh