Các bạn giải giúp mình mấy bài tập Pascal này nha ...!

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

Các bạn giải giúp mình mấy bài tập Pascal này nha ...!

Bài gửi by htlovedt on 19/12/2010, 3:31 pm

Bài 1: Viết
chương trình nhập vào ba số thực, kiểm tra xem 3 số đó có phải là 3 cạnh của
tam giác hay không. Nếu đúng hãy tính diện tích tam giác và in kết quả ra màn
hình.
Bài 2 : Viết
chương trình nhập vào số tiền phải trả của khách hàng. In ra số tiền khuyến mại
với quy định : Nếu số tiền phải trả thuộc [200.000,300.000) thì khuyến mại 20%.
Nếu số tiền phải trả từ 300.000 trở lên thì khuyến mại 30%, còn lại thì không
khuyến mại.
Bài 3:
Viết chương trình nhập vào điểm Toán, Lí, Hoá của một học sinh. In ra màn hình
xếp loại của học sinh đó với quy định:
-Xếp loại giỏi nếu tổng điểm từ 8.00
trở lên
-Xếp loại khác nếu tổng điểm từ 7.00
đến 8
-Xếp loại trung bình nếu tổng điểm
từ 5.00 tới cận 7
-Còn lại xếp loại yếu.
Bài 4:
Viết chương trình nhập vào một tháng của năm bất kì. In ra số ngày của tháng
đó.
Bài 5:
Viết chương trình nhập vào 2 số nguyên a, b. Sau đó cho phép người dùng :
-Bấm phím " T " sẽ in ra
tổng hai số
-Bấm phím " H " sẽ in ra
hiệu hai số
-Bấm phím " C " sẽ in ra
tích hai số
-Bấm phím " U " sẽ in ra
thương hai số
-Bấm một phím bất kì khác sẽ in ra
chính số đó.
Rất mong nhận được sự giúp đỡ của các bạn. Thank you verymuck...
lol!
avatar
htlovedt
Thành viên mới
Thành viên mới

Nam Ngày sinh : 08/09/1992
Tuổi : 25
Ngày đăng ký : 19/12/2010

Về Đầu Trang Go down

Re: Các bạn giải giúp mình mấy bài tập Pascal này nha ...!

Bài gửi by nguyễn văn tuấn on 2/1/2011, 12:07 am

này thế bào giờ (hình như là gái đúng không ) chị nên xem lại cái bài này thế
bg:
bài 1
USES crt;
VAR
q,w,e:REAL;{khong biet co canh nao ma la so thuc nua} {dung hon la 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 writeln('day la 3 canh cua mot tam giac') ELSE writeln('ko');
readln
END.
bài 3:
bài này dễ
chị cho hộ em mấy câu lệnh if này vào
if tb>8.0 then writeln('gioi');
còn mấy câu kia cứ thế mà làm
bài 4:
khoan
bài này hcị học đến đâu rồi
bài 5:
USES crt;
VAR
e:CHAR;
q,w,r:REAL;
BEGIN
clrscr;
write('nhap a:');
readln(q);
write('nhap b:');
readln(w);
writeln;
writeln('chon phep tinh');
e:=readkey;
CASE e OF
't':r:=q+w;
'h':r:=q-w;
'c':r:=q*w;
'u':r:=q/w;
END;
writeln;
writeln('kq:',r:0:0);
readln
END.
Very Happy
cố gắng học lên chị ơ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

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


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