Chào mừng bạn đến diến đàn KTAK6.1 !

Username:   Password:
Add Reply
bài pascal tham khao
Topic Started: Thu 18 Feb 2010 20:41:17 (429 Views)
dinhhoach
No Avatar

program Tong_chan;
uses
WinCrt;

var amn,n,m,s_am,s_duong,i:integer;

begin
{nhap bien}
writeln('Nhap n=');
readln(n);
writeln('Nhap m=');
readln(m);

{tinh tong duong}

s_duong:=0;
for i:=0 to m-1 do
If i mod 2 = 0 then s_duong:=s_duong+i;

{tinh tong am}

amn:=0-n;
for i:=-1 downto amn+1 do
If i mod 2 = 0 then s_am:=s_am+i;

{in ket qua}

writeln('Tong cac so chan duong trong khoang [-',n,',',m,'] la: ',s_duong);
writeln('Tong cac so chan am trong khoang [-',n,',',m,'] la: ',s_am);
readln;
End.




có gì sai hay sửa chữa gì các bạn xem hộ rồi cho ý kiến nhá.
Offline Profile Quote Post Goto Top
 
eddiesawa
Member Avatar
Administrator
program Tong_chan;
uses crt;


var amn,n,m,s_am,s_duong,i:integer;

begin
{nhap bien}
writeln('Nhap n=');
readln(n);
writeln('Nhap m=');
readln(m);

{tinh tong duong}

s_duong:=0;
for i:=0 to m-1 do
If i mod 2 = 0 then s_duong:=s_duong+i;

{tinh tong am}

amn:=0;
for i:=-1 downto amn+1 do
If i mod 2 = 0 then s_am:=s_am+i;

{in ket qua}

writeln('Tong cac so chan duong trong khoang [0,',m,'] la: ',s_duong);
writeln('Tong cac so chan am trong khoang [-',n,',0] la: ',s_am);
readln;
End.
Offline Profile Quote Post Goto Top
 
eddiesawa
Member Avatar
Administrator
lâu rồi ko động tới pascal.sai thì tcam nhé. hix. bài viết này mấy ngày nữa tớ chuyển sang mục khác cho đúng ndung nhé
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · TOP 5 VIP HỌC TẬP · Next Topic »
Add Reply

Innovation created by Lydia of ZetaBoards Theme Zone