Bài viết đã được chỉnh sửa nội dung bởi nghethuat102: 28-07-2014 - 15:51
#41
Đã gửi 28-07-2014 - 14:17
- uyennhi yêu thích
#42
Đã gửi 29-07-2014 - 10:38
Hai đoạn dưới thấy hơi giống mà k bik sửa thế nào, nếu làm đc hoặc hay hơn thì bạn hãy sáng tạo đi!!
Cho số nguyên N gồm M chữ số
Y/c: Xóa đi K chữ số trong N để được số nhỏ nhất
Bạn xem Code mình như này có hợp lí không nha?
Mình chưa tìm được Test sai!
#43
Đã gửi 29-07-2014 - 12:27
Bạn đưa mình test sai xem mình test có sai dau nhi?
câu lệnh nhập Read(s,k); bạn nhập xâu s và cách ra nhập k
#44
Đã gửi 29-07-2014 - 13:49
1-1 , 2-1, ...
#45
Đã gửi 29-07-2014 - 21:16
:v đề ,dịch k ra?
TẬP PHẦN TỬ TRÙNG TẬP CHỈ SỐ
viết chuơng trình nhập từ bàn phím số nguyên dương N(n<=15), tiếp theo nhập vào dãy số nguyên A=a1,...,an. hãy tièm tập hợp nhiều nhất các phần tử của A thỏa mãn điều kiện: tập hợp giá trị các phần tử thuộc tập hợp đó trùng với tập chỉ số của các phần tử thuộc tập hợp đó. thông báo ra màn hình số lượng phần tử và tập chỉ số(tăng dần) của tập hợp tìm được.
VD: N=5, A=1 4 1 5 2
thì số lượng phần tử là 4
tập chỉ số tìm được là :1 2 4 5
n=2, A= 2 4 => không có tập nào
Bài viết đã được chỉnh sửa nội dung bởi hocpascal: 29-07-2014 - 21:23
#46
Đã gửi 29-07-2014 - 23:20
TẬP PHẦN TỬ TRÙNG TẬP CHỈ SỐ
viết chuơng trình nhập từ bàn phím số nguyên dương N(n<=15), tiếp theo nhập vào dãy số nguyên A=a1,...,an. hãy tièm tập hợp nhiều nhất các phần tử của A thỏa mãn điều kiện: tập hợp giá trị các phần tử thuộc tập hợp đó trùng với tập chỉ số của các phần tử thuộc tập hợp đó. thông báo ra màn hình số lượng phần tử và tập chỉ số(tăng dần) của tập hợp tìm được.
VD: N=5, A=1 4 1 5 2
thì số lượng phần tử là 4
tập chỉ số tìm được là :1 2 4 5
n=2, A= 2 4 => không có tập nào
Thử code này xem đúng không
var n,i,j:shortint; A: array[1..15] of Byte; SetA, SetB: Set of Byte; begin Write('Nhap so tu nhien n (n<16), n='); Readln(n); SetA:=[]; SetB:=[]; j:=0; Write('Nhap ',n, ' so nguyen duong moi so cach nhau mot dau cach: '); For i:=1 to n do begin read(A[i]); if not(A[i] in SetA) then begin SetA:= SetA +[A[i]]; SetB:= SetB +[i]; inc(j) end; end; if SetB<=SetA then begin Writeln('So luong phan tu la: ', j); Write('Tap chi so la '); for i:=1 to 127 do if i in SetB then write(i,' ') end else Write('Khong co tap thoa man'); Readln; Readln; end.
#47
Đã gửi 30-07-2014 - 12:22
Tks, thầy, h em mới biết câu: SetA, SetB: Set of Byte;
bạn ơi mình hỏi tí nha
vd: xâu s='02'
val(s,so); làm sao để số đó =02 nhỉ nó ra so=2 ko a`?
#48
Đã gửi 30-07-2014 - 13:38
bạn ơi mình hỏi tí nha
vd: xâu s='02'
val(s,so); làm sao để số đó =02 nhỉ nó ra so=2 ko a`?
Thi neu co truong hop do ban writeln('0',s); la dc roi!
#49
Đã gửi 30-07-2014 - 17:17
Thi neu co truong hop do ban writeln('0',s); la dc roi!
Bạn xem đề này câu a thì OK rồi còn câu b tui không hiểu nếu bạn hiểu giải thích hộ cái nha
Viết các số tự nhiên từ 1 tới 2009 theo một vòng tròn cùng chiều quay kim đồng hồ.
Cũng theo chiều đó, bắt đầu từ số 1, cư đếm từ 1 đến 612 thì xóa số đó đi.
Lại bắt đầu từ số còn lại đứng sau số vùa bị xóa,lặp lại quá trình đến khi còn 1 số thì dừng lại.
a) Hỏi số còn lại là số nào?
b) Muốn số còn lại là số thứ L( 0<L<2010); thì bắt đầu bằng số nào
Dữ liệu vào nhập từ bàn phím số L;
#50
Đã gửi 31-07-2014 - 14:16
bạn chưa xem hộ tui à, máy bữa nay nghĩ mãi mà vẫn chưa ra
Câu a số cần tìm là 104 à?
#51
Đã gửi 31-07-2014 - 22:54
ngày mai nhất định sẻ làm đc câu b,sao nó khó thế hè?
câu a số cần tìm là 80 bạn a`
#52
Đã gửi 31-07-2014 - 23:18
ngày mai nhất định sẻ làm đc câu b,sao nó khó thế hè?
bạn xem code câu b mình viết có sai không nha
#53
Đã gửi 01-08-2014 - 00:23
câu a số cần tìm là 80 bạn a`
câu a không phải b
#54
Đã gửi 01-08-2014 - 10:38
câu a không phải b
#55
Đã gửi 01-08-2014 - 11:16
câu a không phải b
#56
Đã gửi 03-08-2014 - 08:21
var a:array[1..2009] of integer;i,j,n,d,l:integer;beginfor i:=1 to 2009 doa[i]:=i;n:=2009;i:=1;while (n>1) dobegini:=i+611;while i>n do i:=i-n;for j:=i to n-1 doa[j]:=a[j+1];n:=n-1;end;writeln(a[1]);writeln('_________');repeatwrite('l=');readln(l);until (1<=l)and(l<=2009);d:=1;if l>80 then d:=l-79;if l<80 then d:=2009-80+l;writeln(d);readln;end.Còn đây là cách của mình, câu a sẻ thấy nhanh hơn nhiều !
bạn giải thích hộ tớ tại sao d:=1;
#57
Đã gửi 03-08-2014 - 08:29
bạn giải thích hộ tớ tại sao d:=1;
if l>80 then d:=l-79;if l<80 then d:=2009-80+l; ma lại tìm được số đầu tiên nha
bạn cứ làm lệch đi của vị trí bắt đầu bao nhiêu đơn vị thì số cuối cùng cũng lệch đi mấy nhiêu đơn vị thôi! cái này giống cái đồng hồ đó thôi, vầy nên lấy vị trí bắt đầu là 1 làm mốc thì cho ta số cuối cùng là 80, nếu tăng vị trí bắt đầu là 2 thì số cuối chắc hẳn 81 ...
#58
Đã gửi 03-08-2014 - 08:40
bạn giải thích hộ tớ tại sao d:=1;
if l>80 then d:=l-79;if l<80 then d:=2009-80+l; ma lại tìm được số đầu tiên nha
Bài toán: Cho bốn số tự nhiên. hãy đặt các dấu (+ , -) vào các số sao cho tổng chia hết cho 10
#59
Đã gửi 03-08-2014 - 09:48
Bài toán: Cho bốn số tự nhiên. hãy đặt các dấu (+ , -) vào các số sao cho tổng chia hết cho 10
- hxthanh yêu thích
#60
Đã gửi 03-08-2014 - 15:45
Chương trình trên vẫn có hạn chế cho một số th!! cái đó chưa nghĩ ra cách sửa!!
Chương trình hay đấy chứ em!
Em thử nói điều hạn chế mà em thấy cần khắc phục xem mọi người có giúp gì được không?
Được gắn nhãn với một hoặc nhiều trong số những từ khóa sau: pascal
Toán thi Học sinh giỏi và Olympic →
Hình học →
Chứng minh rằng O,I,P thẳng hàng.Bắt đầu bởi quochuy50618, 17-11-2021 pascal |
|
|||
Vấn đề chung của Diễn đàn →
Góp ý cho diễn đàn →
Nên thêm mục Tin họcBắt đầu bởi michealdzung, 21-10-2017 tin học, pascal, lập trình và . |
|
|||
Cửa sổ Diễn Đàn Toán Học →
Câu lạc bộ ngoại khóa →
Góc Tin học →
PASCAL: in ra màn hình nghịch thế của hoán vị và tìm số (Cần giúp)Bắt đầu bởi Higo Akira, 16-03-2017 pascal, tinhoc |
|
|||
Cửa sổ Diễn Đàn Toán Học →
Câu lạc bộ ngoại khóa →
Góc Tin học →
Chuỗi gần đúngBắt đầu bởi The Dark Hunter, 13-08-2016 pascal |
|
|||
Cửa sổ Diễn Đàn Toán Học →
Câu lạc bộ ngoại khóa →
Góc Tin học →
bài tập pascal toán học mong các bạn giúp đỡBắt đầu bởi vansonqtqb, 27-07-2016 pascal |
|
2 người đang xem chủ đề
0 thành viên, 2 khách, 0 thành viên ẩn danh