Bài tập Pascal

Tiê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"

Tiê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:
https://ngoisaonho.forumvi.com/forum-f10/topic-t398.htm

Tiê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

Tiê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

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

Post 1 bài tham khảo
Đề : 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
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

Tiê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

Tiê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 ???

Tiê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 ( em lại ko muốn học thuộc bài giải để làm kiểm tra ( 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

Tiê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

:-<

» Bộ Turbo pascal 7.0 lấy tại đây..