Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 Cấp trường 4

Go down 
Tác giảThông điệp
nguyễn đắc thắng

avatar

Posts : 12
Danh tiếng : 0
Join date : 04/10/2015
Age : 15

Bài gửiTiêu đề: Cấp trường 4   4/10/2015, 13:01

Bài 1 : Viết chương trình nhập vào một dãy số nguyên có n phần tử.
a. Sắp xếp dãy theo thứ tự tăng dần và in kết quả ra màn hình.
b. Nhập vào một số x bất kì, đếm số lần xuất hiện của nó trong dãy trên.
c. In ra màn hình số phần tử nhỏ hơn hoặc bằng x.
d. In ra màn hình số phần tử lớn hơn x.
Bài 2 : Viết chương trình nhập vào một dãy số nguyên có n phần tử . Sắp xếp dãy số theo thứ tự giảm dần & tính giá trị trung bình của dãy.
Bài 3 : Viết chương trình nhập vào một ma trận vuông cấp n. a.
a. In ra tổng các phần tử trên đường chéo chính.
b. In ra màn hình tổng các phần tử trên đường chéo phụ.
Bài 4: Nhập vào 3 số nguyên dương ( kiểm tra điều kiện nhập). Tìm UCLN , BCNN của 3 số đó.
Bài 5 : Tính tổng sau : 1+3+5+.......+ n ( với n lẽ , kiểm tra điều kiện nhập)
Bài 6 : Viết chương trình nhập vào một ma trận. In ma trận chuyển vị của nó ra màn hình. Ma trận B là ma trận chuyển vị của ma trận A nếu các phần tử của chúng có quan hệ B[i, j] = A[j, i].
Bài 7 : Nhập vào 1 chuỗi gồm chữ và số. Hãy tách riêng các số. Chuyển thành số và tính tổng các chữ số đó.
Về Đầu Trang Go down
Xem lý lịch thành viên
toan92



Posts : 2
Danh tiếng : 0
Join date : 05/10/2015

Bài gửiTiêu đề: Re: Cấp trường 4   7/10/2015, 12:11

BT2 (4)
Uses Crt;
Var s,n,i,j,t:integer;
a:array[1..20] of integer;

Begin
Clrscr;
Writeln(‘SAP XEP DAY SO:’);
Write(‘Nhap so phan tu cua day n = ‘); Readln(n); For i:=1 to n do
Begin

Write(‘a[‘,i,’]= ‘);
Readln(a[i]);
End;
{sap xep day so giam dan} For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then
Begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;

End;
Writeln(' Day sau khi sap xep giam dan la:'); For i:=1 to n do
Write(a[i]:4); Readln;
{Tinh trung binh day}
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);

Readln;

End.
Về Đầu Trang Go down
Xem lý lịch thành viên
 
Cấp trường 4
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các bộ đề thi-
Chuyển đến