Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

Mọi người giúp giùm bài này với >_<

3 posters

Go down

Mọi người giúp giùm bài này với >_< Empty Mọi người giúp giùm bài này với >_<

Bài gửi by sad_may 18/2/2011, 10:43 pm

Viết chương trình nhập n số nguyên, tìm và in ra các số lẻ < A (A là số nguyên nhập từ bàn phím) dùng mảng và cấu trúc lặp
hix, mình làm quài mà ko được, cứ có lỗi sai hoài ')" target="_blank" rel="nofollow">pale
sad_may
sad_may
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 25/05/1994
Tuổi : 29
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty Re: Mọi người giúp giùm bài này với >_<

Bài gửi by nbni 19/2/2011, 10:13 pm

var n,a,i:integer;
s:array[1..100] of integer;
begin
write('nhap a='); readln(a);
write('nhap n='); readln(n);
for i:=1 to n do readln(s[i]);
for i:=1 to n do
if (s[i]0) then
writeln(s[i]);
readln
end.
nbni
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty gui ban sad_may

Bài gửi by tieuquaitu 19/2/2011, 10:37 pm

var s:array[1..100] of word;
n,i,a:word;
begin
write('nhap n:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu:',i);
readln(s[i]);
end;
writeln('nhap a:');
readln(a);
writeln('cac so muon tim la');
for i:=1 to n do
begin
(if s[i]end;
readln
end;
tieuquaitu
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty gui ban nbni

Bài gửi by tieuquaitu 19/2/2011, 10:40 pm

t khong hjeu ban muon lam gj ca.ban khong nhap so lieu thj lam gj co gj de ma xu lj.neu chj dua ra cac so khac 0 thj baj nay qua de.
tieuquaitu
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty hjhjhjhjhj

Bài gửi by tieuquaitu 19/2/2011, 10:41 pm

lol! lol! lol! lol! lol!
tieuquaitu
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty Re: Mọi người giúp giùm bài này với >_<

Bài gửi by sad_may 20/2/2011, 1:13 pm

tieuquaitu đã viết:
writeln('cac so muon tim la');
for i:=1 to n do
begin
(if s[i]
end;
readln
end;
Đoạn này mình chưa hiểu lắm bạn viết rõ hơn được không ? >_<
Đoạn trên lúc đầu viết giống bn nhưng mà sao nó cứ báo lỗi Syntax error: expected but BEGIN found T_T
sad_may
sad_may
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 25/05/1994
Tuổi : 29
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty Re: Mọi người giúp giùm bài này với >_<

Bài gửi by nbni 20/2/2011, 1:57 pm

sorry nha,luc minh test trên pascal thì đúng nhưng khi post lên thi mình đánh bị thiếu,minh sửa rùi nè,bạn chạy thử nhé,co gj thì cho mình biết...

var n,a,i:integer;
s:array[1..100] of integer;
begin
write('nhap a='); readln(a);
write('nhap n='); readln(n);
for i:=1 to n do readln(s[i]);
for i:=1 to n do
if (s[i] mod 2<>0)
and
(s[i] writeln(s[i]);
readln
end.
cái chổ and đó bạn,bạn thêm vô là (s[i]
nbni
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty Re: Mọi người giúp giùm bài này với >_<

Bài gửi by nbni 20/2/2011, 1:57 pm

s[i] nhỏ hơn a dùm mình,không hiểu sao khi post lên diễn đàn nó không hiển thị
nbni
nbni
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty Re: Mọi người giúp giùm bài này với >_<

Bài gửi by sad_may 20/2/2011, 8:44 pm

uhm, chạy òi ^^, thanks 2 bạn nbni vs tieuquaitu nhìu nhaz Very Happy
sad_may
sad_may
Thành viên mới
Thành viên mới

Nữ Ngày sinh : 25/05/1994
Tuổi : 29
Ngày đăng ký : 18/02/2011

Về Đầu Trang Go down

Mọi người giúp giùm bài này với >_< Empty Re: Mọi người giúp giùm bài này với >_<

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết