Bài tập tin học lớp 11

[letuhai]

Chào mọi người. Mình có một số bài tập tin học lớp 11 mong được mọi người giúp đỡ cho gần kiểm tra rồi mà mình thì lại "ngu" về môn này quá.
Chân thành cảm ơn mọi người:

1. Viết chương trình nhập vào xâu kí tự thường hay hoa và in ra màn hình xâu đó bằng các kí tự hoa.
2. Viết chương trình nhập vào một xâu. Đếm xem có bao nhiêu chữ cái tiếng anh trong xâu (không phân biệt hoa hay thường).
3. Viết chương trình nhập vào một xâu và kiểm tra xem xâu đó có phải là xâu đối xứng không.
4. Viết chương trình nhập từ bàn phím xâu kí tự S. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. thông báo kết quả ra màn hình
5. Viết chương trình tạo xâu mới gồm tất cả các chữ số trong xâu ban đầu.
6. Viết chương trình nhập vào họ tên sau đó in phần tên ra màn hình
7. Viết chương trình nhập vào họ tên sau đó in phần họ ra màn hình
8. Viết chương trình nhập vào họ tên sau đó in phần chữ lót ra màn hình.
9. Viết chương trình đếm số từ trong một câu.
10. Viết chương trình chuẩn hóa xâu (loại bỏ các khoảng trắng thừa ở đầu câu giữa câu và cuối câu). Đưa ra màn hình xâu ban đầu và xâu sau khi được chuẩn hóa. 11. Viết chương trình nhập vào một dãy số và một số nguyên k, đưa ra màn hình các phần tử của mảng có giá trị lớn hơn k
12. Viết chương trình nhập vào một dãy số kiểm tra xem dãy đó có phải là cấp số cộng không và thông báo kết quả ra màn hình
13. Viết chương trình nhập vào một dãy số đếm xem có bao nhiêu số chẵn và tính tổng bình phương các số chẵn đó. 14. Viết chương trình tìm phần tử có giá trị lớn nhất của dãy số nguyên
15. Viết chương trình tìm phần tử có giá trị nhỏ nhất của dãy số nguyên
16. Viết chương trình sắp xếp dãy số nguyên thành dãy không giảm:
17. Viết chương trình sắp xếp dãy số nguyên thành dãy giảm dần
18. Viết chương trình nhập vào một dãy số và một số nguyên k, đưa ra màn hình các phần tử của mảng có giá trị nhỏ hơn k 19. Viết chương trình nhập vào một dãy số. đếm xem có bao nhiêu số có chỉ số lẻ bản thân chẳn.
20. Viết chương trình nhập vào một dãy số đếm xem có bao nhiêu số lẻ và tính tổng bình phương các số lẻ đó

 

[Trung Kiên]

1

[COLOR=#000000][FONT=tahoma]Uses Crt;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]Var  St:String;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]        n,d,i:Byte;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]Begin[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    Write(‘Nhap xau St: ‘); Readln(St);[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    For i:=1 to length(St) do St[i]:=Upcase(St[i]);[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    Write(‘Xau ket qua: ‘, St);[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    Readln;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]End.[/FONT][/COLOR]

 

[Trung Kiên]

2.

[COLOR=#000000][FONT=tahoma]Uses Crt;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]Var  St:String;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]        i,d:Byte;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]Begin[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    Write(‘Nhap xau St: ‘); Readln(St);[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    For i:=1 to length(St) do[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]        If St[i] IN [‘0’..’9’] Then d:=d+1;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    Write(‘So ky tu chu so trong xau: ‘, d);[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]    Readln;[/FONT][/COLOR]
[COLOR=#000000][FONT=tahoma]End.[/FONT][/COLOR]

 

[Trung Kiên]

3.

Var i,x: Byte; a, p: string;
Begin 
	write('Nhap xau'); readln(a); x:= length(a);
	p:='';
	for k:= x to 1 do p:=p+a[i];
	if a = p then writeln('Xau doi xung') else writeln('Khong doi xung');
	readln;
end.

 

[Trung Kiên]

4.

uses crt;
var dem,i:byte;
	s:string[100];
begin
	clrscr;
	writeln('S='); read(s);
	for i:=1 to length(s) do
	if (s[i]>='0'and(s[i]<='9') then dem:= dem+1;
	write('Trong sau co ',dem,' chu so.');
	readln;
end.

 

[letuhai]

Sao không thấy nút "thanhks". Cảm ơn bạn nhiều. Mong được giúp các bài còn lại.

 

[Trung Kiên]

12.

program cap_so_cong;
uses crt;
var a: array[1..100] of integer;
	i, n, k: integer; {i la bien dem, k de luu cap so}
begin
	clrscr;
	write('N= '); readln(n);
	for i:=1 to n do
		begin
			write('A(',i,')= '); readln(a[i]);
		end;
	{Bat dau phan kiem tra}
	k:=a[2]-a[1];
	i:=2;
	repeat
		i:= i+1;
	until (a[i]<>a[i-1]+k) or (i>n);
	if i>n then write('Day A la mot cap so cong') else write('Day A khong phai la mot cap so cong');
	readln
end.

 

[Trung Kiên]

14.15 ( mình gộp 2 bài. Đưa ra max min và vị trí của nó. Nếu bạn ko thích đưa ra vị trí. có thể xóa bớt 2 cái writeln vị trí max và vị trí min)

uses crt;
var a,vt,vtm: array [1..50] of integer;
	n,i,j,k,max,min: integer;


begin
	clrscr;
	write('Nhap so phan tu cua day so, N= ');
	readln(n);
	for i:=1 to n do
		begin
			write('Phan tu thu ',i,' = ');
			readln(a[i]);
		end;
	max:=a[1];
	vt[1]:=1;
	min:=a[1];
	vtm[1]:=1;
	k:=1;
	for i:=2 to n do
		begin
			if max=a[i] then
				begin
					inc(j);
					vt[j]:=i;
				end;
			if max<a[i] then
				begin
					max:=a[i];
					j:=1;
					vt[j]:=i;
				end;


			if min=a[i] then
				begin
					inc(k);
					vtm[k]:=i;
				end;
			if min>a[i] then
				begin
					min:=a[i];
					k:=1;
					vtm[k]:=i;
				end;
		end;
	writeln('Max la: ',max);
	writeln('Nam o vi tri: ');
	for i:=1 to j do
	write(vt[i],' ');
	writeln;
	writeln('Min la: ',min);
	writeln('Nam o vi tri: ');
	for i:=1 to k do
	write(vtm[i],' ');
	readln;
end.

 

[letuhai]

ok bạn. Khi làm mình sẽ tách ra.

 

[Trung Kiên]

16.

uses crt;
var n,tg,i,j:integer;
	a: array[1..100] of integer;
begin


	write('nhap n= ');
	readln(n);
	for i:=1 to n do
		begin
			write('nhap a[',i,']= ');
			readln(a[i]);
		end;


	for i:=1 to n-1 do
		for j:=i+1 to n do
			if a[i]<a[j] then 
				begin
					tg:=a[i];
					a[i]:=a[j];
					a[j]:=tg;
				end;
	for i:=1 to n do write(a[i]:3,' ');
end.

 

[Trung Kiên]

17.

uses crt;
var n,tg,i,j:integer;
	a: array[1..100] of integer;
begin


	write('nhap n= ');
	readln(n);
	for i:=1 to n do
		begin
			write('nhap a[',i,']= ');
			readln(a[i]);
		end;


	for i:=1 to n-1 do
		for j:=i+1 to n do
			if a[i]>a[j] then 
				begin
					tg:=a[i];
					a[i]:=a[j];
					a[j]:=tg;
				end;
	for i:=1 to n do write(a[i]:3,' ');
end.

 

[letuhai]

Còn bài 5,6,7,8,9,10,11,13,18,19,20.
Mọi người giúp với ạ sắp tới ktr rồi/

 

[letuhai]

Up lên mọi người giúp đỡ với !!

 

[letuhai]

Giúp với mọi người ơi thứ 4 mình kt rồi