Bài tập Pascal!!!

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

Bài tập Pascal!!!

Bài gửi by AngelEyes_cntt on Thu Aug 14, 2008 12:10 pm

Bài 1:
Tính tổng S=1+2+3...+n (n nhập từ bàn phím)

Bài 2:
Tính tổng S=1/a + 1/a+1 + 1/a+2 + .... + 1/a+n (a,1 nhập từ bàn phím)

Bài 3:
Nhập 2 số nguyên m,n (m<n). Tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5

Bài 4:
Tinh S= 1*1 + 1*2 +1*3 +....1*10 + 2*1 + 2*2 +.....m*n
(m,n nhập từ bàn phím)

Bài 5:
Nhập n số từ bàn phím, tính tổng n só đó.

_________________


chia tay thế là hết.
avatar
AngelEyes_cntt
SpamKiller
SpamKiller

Nữ
Tổng số bài gửi : 144
Age : 31
Đến từ : cntt_k01
Tâm trạng :
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by AngelEyes_cntt on Thu Aug 14, 2008 1:00 pm

Giải bài 1:

program bt1;
ues crt;
var n,i,S: interger;
Begin
clrscr;
write('nhap gia tri n=');
readln(n);
S:=0;
for i:=1 to n do
S:=S+i;
write(S);
readln;
End.


Giải bài tập 2:

Program bt2;
uses crt;
var S:real;
a,n,i: interger;
Begin
clrscr;
write('nhap gia tri n=');
readln(n);
write('nhap gia tri a=');
readln(a);
S:=0;
for i = 0 to n do
S:= S+ 1/a+i
write('S=',S)
readln;
End.

_________________


chia tay thế là hết.
avatar
AngelEyes_cntt
SpamKiller
SpamKiller

Nữ
Tổng số bài gửi : 144
Age : 31
Đến từ : cntt_k01
Tâm trạng :
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by AngelEyes_cntt on Thu Aug 14, 2008 1:02 pm

Bài 4 và bài 5 ra không cụ thể.
Nhất là bài 4 chắc có gì thiếu. ngày mai đến hỏi lại cô giáo
Còn bài 3 Phan Tiến làm nốt nhé.

_________________


chia tay thế là hết.
avatar
AngelEyes_cntt
SpamKiller
SpamKiller

Nữ
Tổng số bài gửi : 144
Age : 31
Đến từ : cntt_k01
Tâm trạng :
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by Mr_Kid on Thu Aug 14, 2008 5:18 pm

Bài tập số 3


Program bt3;
Uses crt;
Var S,m,n,i:integer;
Begin
Clrscr;
Write(‘Nhap gia tri n=’);
Readln(n);
Write(‘Nhap gia tri m sao cho m<n=’);
Readln(m);
S:=0;
For i:=m to n do begin
S:=S+i;
If S mod 3=0 or S mod 5 = 0 then write(“Co so chia het cho 3 hoac 5 la :’,S);
End;
Readln;
End.





4 4
Ai có sao chép thì làm ơn thank giùm mình cái nha ngai ngu ngai ngu
Cũng chưa chắc đúng hết đâu
avatar
Mr_Kid
Super Moderator
Super Moderator

Nam
Tổng số bài gửi : 87
Age : 30
Đến từ : [CNTT-K01] Vũ Đại Thôn
Job/hobbies : † Rân † Chơi † Thôn †
Humor : Chơi hết mình....Lo hết tiền...$$$
Châm ngôn sống : Giành lấy mà ăn...Cướp lấy mà uống...Không có cái gì tự đến với ta cả
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên http://cntthp.lifeme.net

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by luan_hai_duong on Thu Aug 14, 2008 7:40 pm

ôi bài tập kìa
ôi đáp án kìa
hải Dương nhanh tay nhanh mắt " cá chép" phát cảm ơn chị Thuý Anh và ông Tiến nhé
nghiên cứu 2 bài còn lại đi nào
thương thì thương cho chót Very Happy

_________________
avatar
luan_hai_duong
Lính mới
Lính mới

Nam
Tổng số bài gửi : 42
Age : 28
Số lần cảnh báo: :
1 / 1001 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by Newlife on Thu Aug 14, 2008 7:47 pm

dung hok vay
avatar
Newlife
Lính mới
Lính mới

Nam
Tổng số bài gửi : 16
Age : 29
Đến từ : nơi xa nhất quả đât
Job/hobbies : gamer
Humor : ko còn ji
Tâm trạng :
Châm ngôn sống : chơi đến chết
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 01/08/2008

Xem lý lịch thành viên http://cntthp.lifeme.net/

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by luan_hai_duong on Thu Aug 14, 2008 8:01 pm

nghĩ đến cảnh sáng mai học mà choáng quá
mà sao khoa mình có 1 mình lớp mình mà thời khoá biểu thay đổi liên tục vậy nhỉ ???? <-- cái này phải lên phòng công tác HS - SV thôi hjc :-s

_________________
avatar
luan_hai_duong
Lính mới
Lính mới

Nam
Tổng số bài gửi : 42
Age : 28
Số lần cảnh báo: :
1 / 1001 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by Trưởng Bản Mobile on Thu Aug 14, 2008 8:09 pm

Thôi đành chịu chứ làm sao được bây giờ........Lịch học thì liên tiếp nối tiếp đau thương...các môn học cứ thế nối tiếp nhau thành 1 cái thời khoá biểu khó nhằn........ What a Face
Thanks chị Pikachu & thằng bạn nha.......Cá chép khẩn trương!! :92: :92:

_________________
Chỉ đơn giản vì tôi là Mr.Mobile yeu doi


avatar
Trưởng Bản Mobile
Super Moderator
Super Moderator

Nam
Tổng số bài gửi : 195
Age : 27
Đến từ : Trung Dũng Thôn
Job/hobbies : Trưởng Công An Thôn
Humor : Yêu làm gì cho khổ đời trai.....
Tâm trạng :
Châm ngôn sống : Thời gian không bao giờ chờ bất cứ 1 ai...
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 27/07/2008

Xem lý lịch thành viên http://www.docbao.com.vn

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by Mr.FallenAngel on Thu Aug 14, 2008 8:15 pm

Hjx! mai phải nộp ra giấy ah!
Vậy cá chép mau thôi!

_________________
Don't worry about yesterday! Yesterday is fine! Today is really good! And tomorrow will be more wonderfull!


avatar
Mr.FallenAngel
Super Moderator
Super Moderator

Nam
Tổng số bài gửi : 183
Age : 28
Đến từ : Xu' so? cua? tinh yeu
Job/hobbies : Spam Killer
Humor : zui ze? tu` be'
Tâm trạng :
Châm ngôn sống : Don't worry about yesterday! Yesterday is fine! Today is really good! And tomorrow will be more wonderfull!
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 27/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by Mr Béo on Thu Aug 14, 2008 8:26 pm

cám ơn 2 đứa nhé, nhưng mệt quá ko chép được rồi, cả ngày đi học, đi học về dạy nhạc, tưởng được nghỉ ai ngờ ông anh lại đến nhờ làm mấy bài hát,bây giờ ko thể mở mắt mà chép được cái ji nữa roài Sad

_________________
avatar
Mr Béo
Super Moderator
Super Moderator

Nam
Tổng số bài gửi : 51
Age : 32
Đến từ : đố các bạn biết đấy
Humor : yêu là cùng chung bước trên con đường,là cùng chung vui phút giây hạnh phúc
Tâm trạng :
Châm ngôn sống : không có gì là ko thể giải quyết được, nếu như ta có $
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên http://cntthp.lifeme.net

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by AngelEyes_cntt on Thu Aug 14, 2008 8:46 pm

Bài 4 và 5 đề ra ko sát. ko phải làm
Mai đến lớp hỏi lại cô cho rõ.
okie

_________________


chia tay thế là hết.
avatar
AngelEyes_cntt
SpamKiller
SpamKiller

Nữ
Tổng số bài gửi : 144
Age : 31
Đến từ : cntt_k01
Tâm trạng :
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by luan_hai_duong on Thu Aug 14, 2008 10:34 pm

ô có phải nộp bài không chị Thuý Anh ????

_________________
avatar
luan_hai_duong
Lính mới
Lính mới

Nam
Tổng số bài gửi : 42
Age : 28
Số lần cảnh báo: :
1 / 1001 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài tập Pascal!!!

Bài gửi by Sponsored content


Sponsored content


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