TIN HỌC 11(các bạn lớp 11 vào đây để xem có BT mình định hỏi chưa nha )

[huysun]

Viết chương trình chơi đỗ xúc sắc( có 5 người chơi)

dùng đồ họa hay không?
nếu chỉ cần biết giá trị của xúc xắc thì đơn giản là gt:= random(5)+1; là xong.

[tinhyeudaukho]

ai giúp em mấy bài này với

Câu 1: Viết chương trình nhập vào 1 số nguyên N tính tổng S
• Nếu N lẻ thì : S + 1+3+5+….+N
• Nếu N chẵn thì : S = 2+4+….+N
Xuất kết quả S ra màn hình
Câu 2: Viết chương trình và nhập vào 2 số nguyên N, M tìm ước chung lớn nhất của N, M. Xuất kết quả ra màn hình và tính tổng các số tự nhien bé hơn hoặc bằng ước chung đó
Câu 3: Viết chương trình và nhập vào 2 số nguyên N, M. Tính tổng S.
• Nếu N>M và N – M là một số lẻ thì S = 1+ 1/2 + 1/3 + 1/4 +…….. + 1/(N – M)
• Nếu M > N và M - N là 1 số chẵn thì S = 1+ 1/2 + 1/3 + ……… + 1/(M – N)
• Còn lại S = 0
Xuất kết quả ra S ra màn hình.
Câu 4: Viết chương trình nhập vào số nguyên N, tính tổng S = 1 + 1/(1+1) + 1/(1+2) + 1/(1+3) + …. 1/(1+N) cho đến khi (1/(1+N)) < 10¬¬-6 . Xuất kết quả ra màn hình.
Câu 5: Viết chương trình , nhập số nguyên N. Xuất ra màn hình các ước dương của N mà vé hơn N
Hướng dẫn: Các ước dương của N mà bé hơn N thì luận nhỏ hơn hoặc bằng phần nguyên của N chia 2

[duyhien01]

Giải hộ mình bài này nhá ..
Nhập vào một mảng n*m .tìm các số nguyên tố trong mảng và cho biết vị trí của nó .
Thank nhìu ...

[blackcactus]

Giải hộ mình bài này nhá ..
Nhập vào một mảng n*m .tìm các số nguyên tố trong mảng và cho biết vị trí của nó .
Thank nhìu ...

Những bài này là bài đơn giản và đã có lời giải trên diễn đàn, bạn nên xem lại từ trang đầu của thread này. Nếu bạn nào có bài hay khi post lên cũng nên cho mọi người xem luôn hướng giải quyết (hay là code nếu có), như vậy thì mọi người đều có thể thảo luận được! Đừng post bài để hỏi những bài tập về nhà mà giáo viên các bạn cho, hãy suy nghĩ làm bài trước khi post lên diễn đàn. (Như vậy thì tư duy thuật toán và kỹ năng lập trình của các bạn sẽ tăng lên rất nhiều khi tham gia diễn đàn đó!!)

[huysun]

blackcactus nói rất hay, tui cũng chán làm mấy bài tập mà chả phải suy nghĩ gì cả rồi.

[hacu]

Mọi người ơi!!!Cứu chứ!!! Bi h tớ sắp thi học kì rồi mà ko bít j` về pascal cả.........Có 2 bài này thầy cho về nhà làm, nhưng cũng mù tịt, mọi người xem giúp tớ với.Tớ có bài kiểm tra học kì vào thứ 2 tuần tới rồi, năn nỉ đấy

Câu 1: Cho mảng 2 chiều kích thước n n với các phần tử là những số nguyên . Tìm trong mỗi hàng phần tử lớn nhất đổi chỗ nó với phần tử có chỉ số hàng bằng chỉ số cột. Chương trình sau đây giải bài toán trên:

Program diag;
Var
N, i, j, Max, Ind, Vsp: integer;
A: array [1..15, 1..15] of integer;
Begin
Write (‘nhap N nho hon 15: ‘); readln (N);
For i:=1 to N do
For j:=1 to N do
Begin
Write (‘A[‘, i, ‘,’ j, ‘]= ‘); readln (A[i;j]); end;
End;
For i:=1 to N do
Begin
Max: = A[i,j]; Ind:=j;
For j:= 2 to N do
If A[i,j] > Max then
Begin
Max: = A[i,j]; Ind:= j
end;
Vsp: = A[i,j]; A[i;j]:= Max; A[i,Ind] :=Vsp; end;
For i:=1 to N do
Begin
Writeln;
For j:=1 to N do write (A[i;j] : 3); end;
Writeln
End.

Hãy sửa lại chương trình trên khi thay yêu cầu tìm kiếm trong mỗi hàng bằng tìm kiếm trong mỗi cột.

Bài 2:Chương trình sau đây thực hiện những gì?

Program BT8;
Const NMax=50;
Type Mass = array[1..NMax, 0..Nmax-1] of real;
Var A: Mass;
i, j, N: byte; C: real;
Begin
Write (‘nhap N = ‘); readln(N);
For i:=1 to N do
For j:= 0 to N-1 do
Begin
Write (‘A[‘,i,’,’,j,’ ]= ‘); readln (A[i,j]); end;
For i:=1 to N do
For j:=0 to N-1 do
Begin
C:= A[i;j];
A[i,j]:= A[N-i+1,j];
A[N-i+1,j]:= C;
End;
For i:= 1 to N do
Begin
For j:=0 to N-1 do write (A[i;j]:5:2,’ ‘);
Writeln; end; readln
End.

[shinichi_wata]

giúp mình bài này với:
Nhập vào ngày tháng năm xuất ra nó là thứ mấy(kiểu bản ghi nha)
có ai có công thức ngắn gọn thì cho tui xin lun nha

[ghostknight]

Em nay nay học 11, ở quê em tới 11 mới học pascal cơ nên em còn gà lắm.Có mấy bài này mong các bác chỉ giúp:
1.Nhập vào 1 xâu
a.Xóa các ký tự trống chỉ chừa lại 1 ký tự trống giữa các từ
b.Đếm số loại chữ cái tiếng anh trong xâu
( tức là khi nhập vào 1 xâu như thế này:' asd 23g hj " thì máy sẽ cho ra xâu như thế này 'asd 23g hj' cùng với câu 'có 6 loại chữ cái')
2.Tạo mảng vuông số nguyên kích thước N
a.tính trung bình các phần tử chẵn
b.tính tổng các phần tử ở đường chéo chính, tam giác trên
c.tìm phần tử max
d.xắp xếp các phần tử theo chiều ko giảm
Mong mọi người chỉ giúp em,cặn kẽ 1 tí.Em cảm ơn trước

[Karenbi]

mấy u giúp mình với!!!
Viết công thức khai báo 1 mảng số nguyên dương gồm N phần tử (N<=10) sau đó thực hiện theo các yêu cầu sau:
1/ Nhập giá trị cho N phần tử trong mảng (giá trị <=10)
2/ Xuất ra màn hình các phần tử có giá trị bằng nhau nằm trên cùng 1 dòng.
VD: Với N=5 và dãy giá trị 2 1 2 3 1
kết quả: 1 1 hoặc 2 2

[Local321]

Lây cái topic này làm nơi lưu trữ đề đc đó, 1 đống bài + câu hỏi lạ lùng chưa ai giải ;