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.

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

2 posters

Go down

Các bạn giải giúp mình mấy bài tập Pascal này nha ...! Empty 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 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!
htlovedt
htlovedt
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

Các bạn giải giúp mình mấy bài tập Pascal này nha ...! Empty 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 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
nguyễn văn tuấn
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 : 26
Ngày đăng ký : 01/01/2011

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