Các bạn giải giúp mình mấy bài tập Pascal này nha ...!
2 posters
Trang 1 trong tổng số 1 trang
Các bạn giải giúp mình mấy bài tập Pascal này nha ...!
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...
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...
htlovedt- Thành viên mới
- Ngày sinh : 08/09/1992
Tuổi : 31
Ngày đăng ký : 19/12/2010
Re: Các bạn giải giúp mình mấy bài tập Pascal này nha ...!
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.
cố gắng học lên chị ơi
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.
cố gắng học lên chị ơi
nguyễn văn tuấn- Thành viên mới
- Ngày sinh : 02/11/1997
Tuổi : 26
Ngày đăng ký : 01/01/2011
Similar topics
» Có ai giải giùm em bài pascal này với
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
» bài tập về hàm trog pascal
» có anh nào giải giúp em 2 bài pascal này với !
» moi người xem giúp bài pascal về đồ thị này với
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
» bài tập về hàm trog pascal
» có anh nào giải giúp em 2 bài pascal này với !
» moi người xem giúp bài pascal về đồ thị này với
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