GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Bài gửi by quangaqua92 on 27/12/2010, 10:42 pm

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 Very Happy . flower flower flower

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 ?
avatar
quangaqua92
Thành viên mới
Thành viên mới

Nam Ngày sinh : 15/04/1992
Tuổi : 25
Ngày đăng ký : 27/12/2010

Về Đầu Trang Go down

Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Bài gửi by nguyễn văn tuấn on 1/1/2011, 11:30 pm

anh này đùa à
sao lại không làm được thế này
bài 1 anh tự làm nhé
bài 2
USES crt;
VAR
q,w,e:LONGINT;
BEGIN
clrscr;
write('nhap a:');
readln(q);
write('nhap b:');
readln(w);
write('nhap c:');
readln(e);
IF (q+w>e)OR(w+e>q)OR(q+e>w) THEN
BEGIN
IF (q=w)AND(w=e)AND(q=e) THEN writeln('day la tam giac thuong');
IF (q=w)OR(w=e)OR(q=e) THEN writeln('day la tam giac can');
IF
(sqrt(q)+sqrt(w)=sqrt(e))OR(sqrt(w)+sqrt(e)=sqrt(q))OR (sqrt(q)+sqrt(e)=sqrt(w))
THEN writeln('vong');

END ELSE writeln('khong phai canh tam giac');
readln
END.

bài 3:
USES crt;
VAR
q:LONGINT;
BEGIN
clrscr;
write('nhap nhiet do:');
readln(q);
IF q<20 THEN writeln('xem ti vi');
IF (q>20)AND(q<25)THEN writeln('di picnic');
IF (q>25)AND(q<30) THEN writeln('di quat tam');
IF q>30 THEN writeln('troi qua nong!, di sapa');
readln
END.
mấy bào kia anh tự làm đi
Very Happy
avatar
nguyễn văn tuấn
Thành viên mới
Thành viên mới

Nam Ngày sinh : 02/11/1997
Tuổi : 20
Ngày đăng ký : 01/01/2011

Về Đầu Trang Go down

bài 8 nhe

Bài gửi by tieuquaitu on 10/2/2011, 9:07 pm

Laughing
var x:word;
y:real;
begin
write('nhap vao 1 so nguyen:');
readln(x);
y:=round(sqrt(x));
if (y*y=x) then writeln('la so chinh phuong')
else writeln('khong phai roi');
readln
end.

bạn lưu ý hàm round la hàm làm tròn kết quả về sô nguyên gần nhất
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Bài gửi by tue96 on 11/2/2011, 4:49 pm

bài 1 khỏi xoắn. bài 2 dùng bất đẳng thức tam giác của Pytago:
-tam giác nhọn: a^2+b^2>c^2.....
-_______tù:a^2+b^2-_______vuông:a^2+b^2=c^2..... affraid
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Bài gửi by tue96 on 11/2/2011, 5:03 pm

bài 7:
var n:word; {giây không bao giờ âm Smile}
begin
write('Nhap thoi gian: ');readln(n);
write(n,' giay la: ');
write(n div 3600,' gio ',(n mod 3600)div 60,' giay ',(n mod 3600)mod 60,' giay.');
readln;
end.

đúng là con gà mới vào nghề Laughing
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Bài gửi by tue96 on 11/2/2011, 5:16 pm

bài 8 cũng bt:
var x:real;
c:char;
begin
repeat write('nhap x= ');readln(x);
until (x>=0) and (x<=2*pi); {x là đơn vị đo góc trong pascal là radian có điều kiện như trên}
c:readkey;
case c of
's':write(sin(x));
'c':write(cos(x));
't':write(sin(x)/cos(x));
readln;
end.
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Bài gửi by tue96 on 11/2/2011, 5:17 pm

liệu mà tks tui đi hehe Razz
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết