Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

5 posters

Go down

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

Bài gửi by quangaqua92 27/12/2010, 10:37 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 ?
quangaqua92
quangaqua92
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by Admin 1/1/2011, 10:36 am

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

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
Admin
Admin
Quản trị viên
Quản trị viên

Nam Ngày sinh : 18/01/1992
Tuổi : 32
Ngày đăng ký : 25/04/2008

https://diendanpascal.forumvi.com

Về Đầu Trang Go down

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

Bài gửi by tranhoangnam 3/1/2011, 7:49 pm

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

Nam Ngày sinh : 27/11/1996
Tuổi : 27
Đến từ : hai phong
Ngày đăng ký : 01/01/2011

Về Đầu Trang Go down

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

Bài gửi by nbni 18/2/2011, 10:37 pm

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.
nbni
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

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

Bài gửi by tuan045610 24/3/2011, 9:11 pm

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 đó.
tuan045610
tuan045610
Thành viên mới
Thành viên mới

Nam Ngày sinh : 18/08/1996
Tuổi : 27
Ngày đăng ký : 07/03/2011

Về Đầu Trang Go down

GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL) Empty 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

Về Đầu Trang

- Similar topics

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