Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
Chào mừng bạn đến với nơi trao đổi thông tin 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 !
Nơi trao đổi thông tin Văn Lang
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Nơi trao đổi thông tin Văn Lang

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ínhTìm kiếmLatest imagesĐăng kýĐăng Nhập

 

 Cấp trường 2

Go down 
2 posters
Tác giảThông điệp
pqtoan
Admin



Posts : 76
Danh tiếng : 3
Join date : 10/11/2014

Cấp trường 2 Empty
Bài gửiTiêu đề: Cấp trường 2   Cấp trường 2 Icon_minitime1/10/2015, 14:05

Bài 1 : Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số nguyên gồm N phần tử.
Bài 2 : Viết chương trình tính tổng bình phương của các số âm trong một mảng gồm N phần tử.
Bài 3 : Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình.
Bài 4 : Cho một mảng 2 chiều A cấp mxn gồm các số nguyên và một số nguyên x. Viết chương trình thực hiện các công việc sau:
a/ Đếm số lần xuất hiện của x trong A và vị trí của chúng.
b/ Tính tổng các phần tử lớn nhất của mỗi dòng.
Bài 5 : Viết chương trình nhập vào một xâu ký tự từ bàn phím. Đổi xâu ký tự đó sang chữ in hoa rồi in kết quả ra màn hình.
Bài 6 : Viết chương trình đếm số ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím.
Bài 7 : Viết chương trình nhập một xâu từ bàn phím. In ra xâu đó sau khi xóa hết các ký tự trắng thừa trong xâu. (Ký tự trắng thừa là các ký tự trắng đầu xâu, cuối xâu và nếu ở giữa xâu có 2 ký tự trắng liên tiếp nhau thì có 1 ký tự trắng thừa).
Bài 8 : Viết chương trình để mã hoá và giải mã một xâu ký tự bằng cách đảo ngược các bit của từng ký tự trong xâu.
Về Đầu Trang Go down
toxic321




Posts : 15
Danh tiếng : 2
Join date : 21/08/2019

Cấp trường 2 Empty
Bài gửiTiêu đề: Re: Cấp trường 2   Cấp trường 2 Icon_minitime27/8/2019, 21:50

Uses crt;
Var n:integer;
k:real;
Begin
clrscr;
Write('Nhap n: ');readln(n);
If (n-5) mod 3 <> 0 then
Writeln('Khong')
Else
Begin
k:=0;
k:=(n-5)/3;
Writeln('k =',k:5:2);
End;
Readln;
End.
Về Đầu Trang Go down
 
Cấp trường 2
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» cấp trường 1
» Cấp trường 3
» Cấp trường 4
» cấp trường đề số 5
» cấp trường đề số 6

Permissions in this forum:Bạn không có quyền trả lời bài viết
Nơi trao đổi thông tin Văn Lang  :: Các bộ đề thi-
Chuyển đến