CLB Ngôi Sao Nhỏ

Nơi trao đổi bàn luận của các thành viên CLB Ngôi Sao Nhỏ
 
IndexIndex  CalendarCalendar  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 Bài tập Pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Munna
Thổ Địa Công


Tổng số bài gửi : 117
Join date : 17/02/2009
Age : 21
Đến từ : nơi bình yên nhất

Bài gửiTiêu đề: Bài tập Pascal   Fri Mar 06, 2009 11:32 am

Giải giùm em bài này:" Viết chương trình nhập n số hạng. Tính trung bình cộng của n số hạng"
Về Đầu Trang Go down
Xem lý lịch thành viên
myheart
Teacher


Tổng số bài gửi : 300
Join date : 22/11/2008

Bài gửiTiêu đề: Re: Bài tập Pascal   Fri Mar 06, 2009 12:46 pm

Munna đã viết:
Giải giùm em bài này:" Viết chương trình nhập n số hạng. Tính trung bình cộng của n số hạng"
xem ở topic này:
http://ngoisaonho.forumotion.com/forum-f10/topic-t398.htm
Về Đầu Trang Go down
Xem lý lịch thành viên
Munna
Thổ Địa Công


Tổng số bài gửi : 117
Join date : 17/02/2009
Age : 21
Đến từ : nơi bình yên nhất

Bài gửiTiêu đề: Re: Bài tập Pascal   Fri Mar 06, 2009 9:51 pm

Thầy ơi, Pascal khó quá, em nuốt ko nổi thầy ơi
Thầy giải nốt giùm em bài này nữa
"Viết chương trình nhập số a và n. In ra a^n,(thực hiện bằng cấu trúc while...do)"
Cảm ơn thầy nhìu lắm Very Happy Very Happy
Về Đầu Trang Go down
Xem lý lịch thành viên
nghi_pro123
Thổ Địa Công


Tổng số bài gửi : 111
Join date : 12/02/2009
Age : 20
Đến từ : Hofu, Yamaguchi, Japan

Bài gửiTiêu đề: Re: Bài tập Pascal   Thu Mar 19, 2009 4:26 pm

Dế ồm à, em giúp cho:

prorgram a^n;
uses crt;
var n,a,i:longint;
j:real;
begin
clrscr;
write('Moi ban nhap so a: ');
readln(a);
write('Moi ban nhap so n: ');
readln(n);
j:=1;
for i:=1 to n do
j:=j*a;
write('So ',a,'^',n,' la: ',j:1:0);
readln;
end.

Very Happy Very Happy
Về Đầu Trang Go down
Xem lý lịch thành viên
Lạnh Lùng
Moderator


Tổng số bài gửi : 244
Join date : 22/11/2008
Age : 21
Đến từ : ™†€ndlëss £ov놙

Bài gửiTiêu đề: Re: Bài tập Pascal   Thu Mar 19, 2009 4:39 pm

Post 1 bài tham khảo Very Happy
Đề : Nhập m,n, nhập 1 phép tính và in ra kết quả. Sau đó xuất hiện câu : bạn có muốn tiếp tục ko? Ấn C nếu muốn, khác C kết thúc CT. Bài thầy ra Very Happy
Bài giải :
uses crt;
var m,n: longint;
kt,tinh: char;
begin
clrscr;
kt:= 'C';
while (kt= 'C') do
begin
write(' Nhap m,n'); readln(m,n);
write(' Nhap phep tinh '); readln(tinh);
case tinh of
'+': writeln (' Tong la', m+n);
'-': writeln (' Hieu la', m-n);
'*': writeln (' Tich la', m* n);
'/': writeln (' Thuong la', m/n);
end;
writeln( ' Ban co muon thu lai ko ') readln(kt);
end;
readln;
end.
Cách này dùng case of, có cách dùng if then thì dài hơn Very Happy
Về Đầu Trang Go down
Xem lý lịch thành viên http://www.thehiephienthuc.com
myheart
Teacher


Tổng số bài gửi : 300
Join date : 22/11/2008

Bài gửiTiêu đề: Re: Bài tập Pascal   Fri Mar 20, 2009 10:26 am

Cấu trúc case...of đa số các bạn chưa học. em nên post bài dùng cấu trúc if .. then ... else

Nhưng bài của em cũng rất tốt cho các bạn tham khảo. Very Happy
Về Đầu Trang Go down
Xem lý lịch thành viên
gaubabe
Du Khách


Tổng số bài gửi : 19
Join date : 24/03/2009
Age : 21

Bài gửiTiêu đề: Re: Bài tập Pascal   Tue Mar 24, 2009 12:30 pm

thầy ơi cái cấu trúc for...do thì e làm đc, mà cái cấu trúc while...do e cứ làm bị lỗi hoài Sad( em lại ko muốn học thuộc bài giải để làm kiểm tra Sad( thầy có cách nào giúp e ko thầy ???
Về Đầu Trang Go down
Xem lý lịch thành viên
myheart
Teacher


Tổng số bài gửi : 300
Join date : 22/11/2008

Bài gửiTiêu đề: Re: Bài tập Pascal   Tue Mar 24, 2009 4:56 pm

gaubabe đã viết:
thầy ơi cái cấu trúc for...do thì e làm đc, mà cái cấu trúc while...do e cứ làm bị lỗi hoài Sad( em lại ko muốn học thuộc bài giải để làm kiểm tra Sad( thầy có cách nào giúp e ko thầy ???
Có cách là rủ 1 bạn, làm chung trên máy PC ở nhà, nếu sai thì theo dõi bằng Menu watch đã hướng dẫn. Sẽ thấy được lỗi, làm thật nhiều lần mới có kỷ năng viết. Chúc em thành công
Về Đầu Trang Go down
Xem lý lịch thành viên
hphong
Dân Tạm Trú


Tổng số bài gửi : 34
Join date : 24/11/2008
Age : 24
Đến từ : PTNK

Bài gửiTiêu đề: Re: Bài tập Pascal   Tue Mar 24, 2009 5:31 pm

@Endless Love : Code của anh, Endless post lên không ghi nguồn là sao Question :-<
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Bài tập Pascal   Today at 10:22 pm

Về Đầu Trang Go down
 
Bài tập Pascal
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
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
CLB Ngôi Sao Nhỏ :: Hoạt Động :: Trao Đổi - Học Tập-
Chuyển đến