Diễn đàn học tập của Hocmai.vn
Liên hệ quảng cáo: xem chi tiết tại đây

Diendan.hocmai.vn - Học thày chẳng tày học bạn! » Ngoại khóa » Tin học - Máy tính » Học lập trình » [PASCAL]_ tính tổng các số lẻ




Trả lời
  #1  
Cũ 18-10-2008
pttd's Avatar
pttd pttd đang ngoại tuyến
MEM VIP
Lớp trưởng
 
Tham gia : 20-06-2008
Đến từ: *-thế giới người ta sống-*
Bài viết: 1,295
Đã cảm ơn: 212
Được cảm ơn 599 lần
Smile [PASCAL]_ tính tổng các số lẻ

bạn hãy viết chương trình PASCAL để tính tổng các số lẻ(Yêu cầu là tính đựoc n số lẻ)
MÓi các chuyên gia tin học trổ tài!!! Làm giùm mình nha
Mình làm thử rùi nhưng mà chỉ tính được số lượng số lẻ cho trước thui (ko tình được n số) nản quá
__________________
Hãy chọn những gì mình yêu
Hãy yêu những gì mình đã chọn
Trả Lời Với Trích Dẫn
  #2  
Cũ 19-10-2008
storm5906's Avatar
storm5906 storm5906 đang ngoại tuyến
Thành viên
Bàn trưởng
 
Tham gia : 24-02-2008
Đến từ: Ninh Thuận
Bài viết: 197
Đã cảm ơn: 29
Được cảm ơn 116 lần
Smile

Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End.


Thay đổi nội dung bởi: storm5906, 19-10-2008 lúc 22:30.
Trả Lời Với Trích Dẫn
Có một thành viên đã cám ơn storm5906 vì bài viết này:
  #3  
Cũ 21-10-2008
peonimusha's Avatar
peonimusha peonimusha đang ngoại tuyến
Thành viên
Bàn trưởng
 
Tham gia : 06-11-2007
Bài viết: 176
Đã cảm ơn: 25
Được cảm ơn 59 lần
Đoạn code trên chưa chính xác, bởi đề bài là tính tổng các số lẻ trong n số chứ không phải các số từ 1 đến n.
Để giải bài này chỉ cần dùng hàm mod là được.
__________________
Phương pháp tăng giảm khối lượng trong giải toán Hóa Học
http://diendan.hocmai.vn/showthread.php?t=36193
VietRenamer - Đổi tên tập tin thật chuyên nghiệp
http://sites.google.com/site/x5254725site/phan-mem/vietrenamer
Trả Lời Với Trích Dẫn
  #4  
Cũ 21-10-2008
pttd's Avatar
pttd pttd đang ngoại tuyến
MEM VIP
Lớp trưởng
 
Tham gia : 20-06-2008
Đến từ: *-thế giới người ta sống-*
Bài viết: 1,295
Đã cảm ơn: 212
Được cảm ơn 599 lần
Bạn ơi viết hẳn chương trình cụ thể và hoàn chỉnh được không ? Nói vậy thì mình cũng chịu rùi! Bnạ viết ra giúp mình và cho các bạn khác tham khảo. Khi đã post bài lên đây tức là đã bất lực trước vấn đề đó rồi. Rất mong bạn giúp đỡ !THANK YOU VERY MUCH!!!!!!!
__________________
Hãy chọn những gì mình yêu
Hãy yêu những gì mình đã chọn
Trả Lời Với Trích Dẫn
  #5  
Cũ 21-10-2008
peonimusha's Avatar
peonimusha peonimusha đang ngoại tuyến
Thành viên
Bàn trưởng
 
Tham gia : 06-11-2007
Bài viết: 176
Đã cảm ơn: 25
Được cảm ơn 59 lần
Mã:
Program So_Le;
//Khong dung thu vien vi co the gay loi, ma cai nay cung khong can dung :D
Var  //Khai bao cac bien can dung
        i, n, So, Tong: Integer; //Kieu so nguyen;
Begin   //Bat dau chuong trinh
        //Khoi tao cac gia tri
        Tong:= 0;
        Writeln('Nhap n');      //n o day la so cac so ban muon nhap
        Read(n);        //Gan vao bien n
        //Vong lap de ban nhap cac gia tri, tinh luon trong nay cho tien :D
        For i:= 1 to n do
                Begin
                        Writeln('Nhap so thu ',i);
                        Read(So);
                        If So mod 2 <> 0 then   //Xem co chia het cho 2 khong, neu khong thi la so le
                                Begin
                                        Tong:= Tong + So;
                                End;
                End;
        Writeln('Tong cac so le = ', Tong);     //Xuat ra man hinh gia tri tinh duoc
        Readln;
        Readln;
End.
P/S: Tớ xài Free Pascal.
__________________
Phương pháp tăng giảm khối lượng trong giải toán Hóa Học
http://diendan.hocmai.vn/showthread.php?t=36193
VietRenamer - Đổi tên tập tin thật chuyên nghiệp
http://sites.google.com/site/x5254725site/phan-mem/vietrenamer
Trả Lời Với Trích Dẫn
Có 2 thành viên đã gửi lời cảm ơn đến peonimusha với bài viết này:
  #6  
Cũ 17-02-2011
levy123's Avatar
levy123 levy123 đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 27-02-2008
Bài viết: 45
Đã cảm ơn: 6
Được cảm ơn 13 lần
Theo như mình thấy cách làm của mấy bạn quá dài dòng mình xin trình bay cách ngắn gọn hơn
đoạn code:
uses crt;
var i,N,S: integer;
begin
write('Nhap so N:'); readln(N);
S:=0;
for i:=1 to N do
begin
if i mod 2<>0 then S:=S+i;
end;
write('Tong cua',N,'so le tu nhien dau tien la:',S);
end.
P/s : mình xài turbo pascal
__________________
Bino chào bà con
Trả Lời Với Trích Dẫn
  #7  
Cũ 18-03-2013
nghiahung2000 nghiahung2000 đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 18-03-2013
Bài viết: 11
Đã cảm ơn: 11
Đuợc cảm ơn 1 lần với 1 bài viết
Trích:
Nguyên văn bởi levy123 Xem Bài viết
Theo như mình thấy cách làm của mấy bạn quá dài dòng mình xin trình bay cách ngắn gọn hơn
đoạn code:
uses crt;
var i,N,S: integer;
begin
write('Nhap so N:'); readln(N);
S:=0;
for i:=1 to N do
begin
if i mod 2<>0 then S:=S+i;
end;
write('Tong cua',N,'so le tu nhien dau tien la:',S);
end.
P/s : mình xài turbo pascal
tính tổng n số lẻ chư ko phải n số tự nhiên đầu tiên đâu
Trả Lời Với Trích Dẫn
  #8  
Cũ 24-03-2013
11thanhkhoeo's Avatar
11thanhkhoeo 11thanhkhoeo đang ngoại tuyến
Thành viên
Mr Favourite 2012
Lớp trưởng
 
Tham gia : 02-10-2010
Đến từ: Thanh Hóa
Bài viết: 1,284
Điểm học tập:189
Đã cảm ơn: 681
Được cảm ơn 1,321 lần
tổng của n số lẻ bằng vô cực vì n là vô hạn hihi

bạn này dường như không hiêu đề bài

à mà đào mộ quá nhỉ
__________________
Không có gì là không thể
Trả Lời Với Trích Dẫn
  #9  
Cũ 01-10-2013
beconngusay's Avatar
beconngusay beconngusay đang ngoại tuyến
Thành viên
Thành viên của lớp
 
Tham gia : 20-10-2011
Bài viết: 37
Đã cảm ơn: 5
Được cảm ơn 2 lần
program bt1;

uses crt;

var n,i,s:integer;

begin

clrscr;
writeln('nhap n');read(n);
s:=0;
i:=0;
for i:=i+1 to n do
begin
If i mod 2<>0 then s:=s+i;
end;
writeln('tong cac so le la ',s);
readln;
end.
__________________
[Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.]
ERROR: If you can see this, then [Hãy đăng kí thành viên hay đăng nhập để xem liên kết này.] is down or you don't have Flash installed.




cầu phật cho con vào trường THPT tốt nào đó
Trả Lời Với Trích Dẫn
Trả lời

Chia sẻ/đánh dấu bài viết


Ðiều chỉnh Tìm trong bài viết
Tìm trong bài viết:

Tìm chi tiết
Xếp bài

Quyền hạn của bạn
Bạn không thể tạo chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể đăng tập đính kèm
Bạn không thể sửa bài của mình

BB codeMở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

 
Bài giảng mới
Toán 11 - Thầy Nguyễn Thanh Tùng : Bài 01. Đại cương về phương trình đường thẳng và mặt phẳng
Toán 11 - Thầy Nguyễn Thanh Tùng : Bài 01. Đại cương về phương trình đường thẳng và mặt phẳng
Toán nâng cao lớp 7 : Bài 4. Bài tập chứa nhiều dấu giá trị tuyệt đối (tiết 2)
Toán nâng cao lớp 7 : Bài 4. Bài tập chứa nhiều dấu giá trị tuyệt đối (tiết 2)
Toán nâng cao lớp 7 : Bài 3. Bài tập chứa nhiều dấu giá trị tuyệt đối (tiết 1)
Toán nâng cao lớp 7 : Bài 3. Bài tập chứa nhiều dấu giá trị tuyệt đối (tiết 1)
Toán nâng cao lớp 7 : Bài 2. Giá trị tuyệt đối (tiết 2)
Toán nâng cao lớp 7 : Bài 2. Giá trị tuyệt đối (tiết 2)
Một số chuyên đề Ngữ văn 12 - Cô Nguyễn Thị Thanh Thuỷ (2014-2015) : Bài 2: Các kĩ năng làm văn nghị luận (Phần 2) (Năm học 2014 - 2015)
Một số chuyên đề Ngữ văn 12 - Cô Nguyễn Thị Thanh Thuỷ (2014-2015) : Bài 2: Các kĩ năng làm văn nghị luận (Phần 2) (Năm học 2014 - 2015)
Toán nâng cao lớp 7 : Bài 1. Giá trị tuyệt đối (tiết 1)
Toán nâng cao lớp 7 : Bài 1. Giá trị tuyệt đối (tiết 1)
Toán - Lớp 12 - Thầy Lê Bá Trần Phương (2014-2015) : Bài 10. Phương trình Logarit (Phần 02)
Toán - Lớp 12 - Thầy Lê Bá Trần Phương (2014-2015) : Bài 10. Phương trình Logarit (Phần 02)
Ôn luyện Vật lí lớp 8 : Bài 3. Chuyển động đều , chuyển động không đều
Ôn luyện Vật lí lớp 8 : Bài 3. Chuyển động đều , chuyển động không đều
Luyện thi đại học KIT-1: Môn Ngữ văn (Cô Trịnh Thu Tuyết) : Giới thiệu khoá học
Luyện thi đại học KIT-1: Môn Ngữ văn (Cô Trịnh Thu Tuyết) : Giới thiệu khoá học
Luyện thi đại học KIT-1: Môn Hoá học (Thầy Phạm Ngọc Sơn) :  Bài 15. Một số dạng câu hỏi lý thuyết về dung dịch và chất điện li
Luyện thi đại học KIT-1: Môn Hoá học (Thầy Phạm Ngọc Sơn) : Bài 15. Một số dạng câu hỏi lý thuyết về dung dịch và chất điện li

Đề thi mới
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Pronunciation test
Tiếng Anh 10 - cô Nguyễn Thị Phương 10 : Pronunciation test
Internal Test 9 : Hocmai.vn contest 2 2014.08
Internal Test 9 : Hocmai.vn contest 2 2014.08
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 04 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 04 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 05 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 05 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 03 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 03 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 02 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 02 (Đề Online)
Ngữ văn 6 :  Kiểm tra trắc nghiệm tổng hợp Tuần 1
Ngữ văn 6 : Kiểm tra trắc nghiệm tổng hợp Tuần 1
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 01 (Đề Online)
Luyện thi đại học KIT-3: Môn Tiếng Anh (Cô Nguyễn Ngọc An) 12 : Đề thi tự luyện số 01 (Đề Online)
Thi thử đại học 2014 12 : Đề thi thử đại học môn Vật lí tháng 6/2014
Thi thử đại học 2014 12 : Đề thi thử đại học môn Vật lí tháng 6/2014
Thi thử đại học 2014 12 : Đề thi thử đại học môn Tiếng Anh tháng 6/2014
Thi thử đại học 2014 12 : Đề thi thử đại học môn Tiếng Anh tháng 6/2014




Múi giờ GMT +7. Hiện tại là 11:23.
Powered by: vBulletin v3.x.x Copyright ©2000-2014, Jelsoft Enterprises Ltd.
Advertisement System V2.4 By   Branden

Giấy phép cung cấp dịch vụ mạng xã hội trực tuyến số 196/GXN-TTĐT Cục Quản lý PTTH&TTĐT cấp ngày 11/11/2011.