Giúp gùm em giải bài Pascal này - VN-Zoom forum

quoccanh2009 · 14-04-2008, 20:11

cho mảng B gồm 10 phần tử, nhập một giá trị X có tồn tại trong mảng B, xác định vị trí của X trên mảng B. In kết quả ra màng hình??

blackmousewhite · 14-04-2008, 20:39

for i:=1 to 10 do
if (x=b[i]) then
writeln(i);
phần khai báo, nhập số x,bạn tự túc OK(thực ra mình quên rồi)

thangk5h · 20-04-2008, 00:40

program giai_jup;
use crt;
var i,n,x:integer;
a:array[1..10]of integer;
begin
clrscr;
write('nhap vao gia tri cua n=');readln(n);
for i:=0 to n do
begin
writeln('nhap vao gia tri cua ',a'[',i,']=');readln(a[i]);
writeln('nhap vao gia tri cua x=');readln(x);
end;
for i:=0 to n do
begin
if x=a[i] then writeln('vi tri cua x trong day la : ',i);
end;
readln.
end.

Mjnh_Nha^t. · 20-04-2008, 00:42

sai hêt cả rồi mấy ông tướng ạ

thangk5h · 20-04-2008, 00:42

cám ơn anh đi nha! nghĩ mãi mới ra đóa hihi

thangk5h · 20-04-2008, 00:43

eeeeeeee, sai cái j đấy???

giangmeo · 20-04-2008, 16:23

Trích:

thangk5h

program giai_jup;
use crt;
var i,n,x:integer;
a:array[1..10]of integer;
begin
clrscr;
write('nhap vao gia tri cua n=');readln(n);
for i:=0 to n do
begin
writeln('nhap vao gia tri cua ',a'[',i,']=');readln(a[i]);
writeln('nhap vao gia tri cua x=');readln(x);
end;
for i:=0 to n do
begin
if x=a[i] then writeln('vi tri cua x trong day la : ',i);
end;
readln.
end.

làm gì mà nhập đến n+1 giá trị của X thế mà for i:=1 to n chứ

hoang773 · 04-05-2008, 20:04

cái câu lệnh gán mảng cho biến a hơi vớ vẩn,như câu lệnh thì cần quái chi n nữa.Như thế này mới đúng A:array[1..N] of integer

Mr_Dolphin · 04-05-2008, 20:31

Trích:

for i:=0 to n do
begin
writeln('nhap vao gia tri cua ',a'[',i,']=');readln(a[i]);
writeln('nhap vao gia tri cua x=');readln(x);
end;

các bác đọc đoạn trên có thấy buồn cười không, đến 2 lỗi luôn bạn ạ.
- Cho chay từ 0 vậy đến n+1 phần tử
- Bạn nhập n+1 phần tử vào mảng, tiện tay nhập luôn n+1 cái x

(bó tay)

so_0_lanh_lung · 05-05-2008, 03:28

bài này đơn giản thôi
nhập mảng và khai báo thì bạn tự khai báo nhé

Code:

write( 'nhap x '); readln(x);

for i:=1 to 10 do { cho chạy từ 1 - 10}
  if x = a[i] then write(i) { kiểm tra xem phần tử nào = x nếu bằng thì viết i là vị trí }
readln;
end.

so_0_lanh_lung · 05-05-2008, 03:29

có thêm bớt gì cho đẹp thì tự thêm bớt nhé

14-04-2008, 20:11	#1
quoccanh2009 Gà Con Tham gia: Apr 2008 Bài: 5 VZD: 261 Điểm: 0/0 bài viết	Giúp gùm em giải bài Pascal này cho mảng B gồm 10 phần tử, nhập một giá trị X có tồn tại trong mảng B, xác định vị trí của X trên mảng B. In kết quả ra màng hình??

05-05-2008, 03:28	#10
so_0_lanh_lung Búa Đá Tham gia: Mar 2008 Đến từ: Huế Bài: 67 VZD: 1.120 Điểm: 2/2 bài viết	bài này đơn giản thôi nhập mảng và khai báo thì bạn tự khai báo nhé Code: write( 'nhap x '); readln(x); for i:=1 to 10 do { cho chạy từ 1 - 10} if x = a[i] then write(i) { kiểm tra xem phần tử nào = x nếu bằng thì viết i là vị trí } readln; end.

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

14-04-2008, 20:39	#2
blackmousewhite Gà Con Tham gia: Apr 2008 Bài: 6 VZD: 175 Điểm: 1/1 bài viết	for i:=1 to 10 do if (x=b[i]) then writeln(i); phần khai báo, nhập số x,bạn tự túc OK(thực ra mình quên rồi)

20-04-2008, 00:40	#3
thangk5h Gà Con Tham gia: Apr 2008 Bài: 3 VZD: 144 Điểm: 1/1 bài viết	program giai_jup; use crt; var i,n,x:integer; a:array[1..10]of integer; begin clrscr; write('nhap vao gia tri cua n=');readln(n); for i:=0 to n do begin writeln('nhap vao gia tri cua ',a'[',i,']=');readln(a[i]); writeln('nhap vao gia tri cua x=');readln(x); end; for i:=0 to n do begin if x=a[i] then writeln('vi tri cua x trong day la : ',i); end; readln. end.

20-04-2008, 00:42	#4
Mjnh_Nha^t. Búa Đá Tham gia: Mar 2008 Bài: 40 VZD: 709 Điểm: 7/7 bài viết	sai hêt cả rồi mấy ông tướng ạ

20-04-2008, 00:43	#6
thangk5h Gà Con Tham gia: Apr 2008 Bài: 3 VZD: 144 Điểm: 1/1 bài viết	eeeeeeee, sai cái j đấy???

04-05-2008, 20:04	#8
hoang773 Gà Con Tham gia: Jan 2008 Bài: 3 VZD: 270 Điểm: 0/0 bài viết	cái câu lệnh gán mảng cho biến a hơi vớ vẩn,như câu lệnh thì cần quái chi n nữa.Như thế này mới đúng A:array[1..N] of integer

05-05-2008, 03:29	#11
so_0_lanh_lung Búa Đá Tham gia: Mar 2008 Đến từ: Huế Bài: 67 VZD: 1.120 Điểm: 2/2 bài viết	có thêm bớt gì cho đẹp thì tự thêm bớt nhé