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 » Tin học trong nhà trường » 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 603 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 61 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 603 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 61 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: 10
Đã 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,279
Điểm học tập:189
Đã cảm ơn: 680
Được cảm ơn 1,316 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: 3
Đượ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.
__________________
Hocmai.vn - YouTube Video
ERROR: If you can see this, then YouTube 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
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá :  Bài 1. Bài giảng (Phần 1)
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá : Bài 1. Bài giảng (Phần 1)
Toán 10 - Thầy Lưu Huy Thưởng : Bài 22. Một số bài toán liên quan đến tứ giác (Phần 05)
Toán 10 - Thầy Lưu Huy Thưởng : Bài 22. Một số bài toán liên quan đến tứ giác (Phần 05)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 3. Bài giảng (Phần 3)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 3. Bài giảng (Phần 3)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 2. Bài giảng (Phần 2)
PEN-I: môn Toán - Thầy Lê Anh Tuấn : Bài 2. Bài giảng (Phần 2)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 4. Nhận dạng và sắp xếp các bài toán cơ qui luật
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 4. Nhận dạng và sắp xếp các bài toán cơ qui luật
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : Bài 1 Bài giảng (Phần 1)
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng : Bài 1 Bài giảng (Phần 1)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 3: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 3)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 3: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 3)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải :  Bài 1: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 1)
Luyện đề thi vào lớp 6 môn Toán - thầy Trần Hải : Bài 1: Phương pháp nhận dạng giải nhanh tính tổng dãy số (phần 1)
Luyện thi quốc gia PEN-C: Môn Toán (Thầy Phan Huy Khải) : Bài 09. Các bái toán về hình vuông
Luyện thi quốc gia PEN-C: Môn Toán (Thầy Phan Huy Khải) : Bài 09. Các bái toán về hình vuông
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi :  Bài 4. Bài giảng (Phần 4)
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi : Bài 4. Bài giảng (Phần 4)

Đề thi mới
PEN-I: môn Vật lí - thầy Bùi Gia Nội (Khá - Giỏi) 12 : Đề số 3
PEN-I: môn Vật lí - thầy Bùi Gia Nội (Khá - Giỏi) 12 : Đề số 3
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá 12 : Đề 01 - 2015
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-TB -TB Khá 12 : Đề 01 - 2015
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng 12 : Đề số 3
PEN-I: môn Vật lí - thầy Đỗ Ngọc Hà, thầy Phạm Văn Tùng 12 : Đề số 3
Thi thử đại học 12 : Đề thi thử Đại học 2014- 2015
Thi thử đại học 12 : Đề thi thử Đại học 2014- 2015
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 03
PEN-I: môn Hoá học - thầy Phạm Ngọc Sơn 12 : Đề số 03
PEN-I: môn Sinh học - thầy Nguyễn Thành Công 12 : Đề thi tự luyện số 03
PEN-I: môn Sinh học - thầy Nguyễn Thành Công 12 : Đề thi tự luyện số 03
PEN-I: môn Tiếng Anh - cô Nguyệt Ca 12 : Đề thi tự luyện số 02 (Đề Online)
PEN-I: môn Tiếng Anh - cô Nguyệt Ca 12 : Đề thi tự luyện số 02 (Đề Online)
PEN-I: môn Vật lí - thầy Bùi Gia Nội (TB - TB Khá) 12 : Đề số 4
PEN-I: môn Vật lí - thầy Bùi Gia Nội (TB - TB Khá) 12 : Đề số 4
Thi thử đại học 12 : Đề tự luyện miễn phí
Thi thử đại học 12 : Đề tự luyện miễn phí
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi 12 : Đề thi tự luyện số 01
PEN-I: môn Hoá học - thầy Vũ Khắc Ngọc-Khá-Giỏi 12 : Đề thi tự luyện số 01




Múi giờ GMT +7. Hiện tại là 13:10.
Powered by: vBulletin v3.x.x Copyright ©2000-2014, Jelsoft Enterprises Ltd.

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.