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

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

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

Bài gửi by sad_may on 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
avatar
sad_may
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by nbni on 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.
avatar
nbni
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

gui ban sad_may

Bài gửi by tieuquaitu on 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;
avatar
tieuquaitu
Thành viên thường
Thành viên thường

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

Về Đầu Trang Go down

gui ban nbni

Bài gửi by tieuquaitu on 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.
avatar
tieuquaitu
Thành viên thường
Thành viên thường

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

Về Đầu Trang Go down

hjhjhjhjhj

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

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

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

Về Đầu Trang Go down

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

Bài gửi by sad_may on 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
avatar
sad_may
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by nbni on 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]
avatar
nbni
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by nbni on 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ị
avatar
nbni
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

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

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

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

Về Đầu Trang Go down

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

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