Giúp e làm mấy bài pascal này đi

[voduc_phu]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1. Nhập xâu S tùy ý. Tạo xâu mới S1 sau khi đổi hoa tất cả các ký tự xâu s. Đếm xem xâu S1 có bao nhiêu ký tự chữ cái.
2. Nhập mảng 10 số nguyên. Nhập số nguyên M đếm xem trong mảng có bao nhiêu phần tử nhỏ hơn M. Tìm phần tử có giá trị lớn nhất trong mảng
3. Nhập xâu tùy ý. Xuất xâu vừa nhập. tính xem trong xâu có bao nhiêu kí tự trống. Xuất xâu đảo ngược.
4. Nhập mảng 10 số nguyên. Xuất phần tử đẩu và cuối. nhập số nguyên k tùy ý. Đếm xem k xuất hiện bao nhiêu lần trong mảng.
5. Nhập 2 xâu. Xuất độ dài mỗi xâu. So sánh và cho biết kí tự đầu tiên của 2 xâu giống hay khác nhau. Xuất xâu đã đổi hoa tất cả các kí tự.
6. Nhập mảng 10 số nguyên xuât số luợng các số duơng trong mảng. so sánh tổng các số chẵn với tổng các số lẻ.
7.Nhập xâu thứ nhất xuất độ dài của xâu. Nhập xâu thứ 2 xuất xâu đaỏ nguợc. So sánh và thông báo xâu nào có độ dài ngắn nhất.
8. Nhập mảng 10 số nguyên. Xuất ra phần tử lớn nhất của mảng. Xuất ra mảng đảo ngược xuất tổng các giá trị các phần tử mảng
9.Nhập mảng 10 số nguyên Xuất ra các phần tử ở vị trí lẻ. Sắp xếp và xuất mảng giảm dần.

 

[harry9xsakura]

1

program xau;
uses crt;
var s:string;i,n,d:longint;
begin clrscr;
writeln('nhap xau s');
readln(s);
n:=length(s);
for i:=1 to n do upcase(s(i));
writeln('xau s1 la ',s);
for i:=1 to n do
if s(i) in ['A'..'Z'] then inc(d);
writeln('co so ki tu chu la ',d);
readln;
end.

 

[huutoan00]

2

uses crt;
var a:array [1..10] of longint;
      b,c:longint;
begin
  clrscr;
  for i:=1 to 10 do
   begin
    write('a[',i,']=');readln(a[i]);
    if a[i]>m then m:=a[i];
   end;
  write('c=');readln(c);
  for i:=1 to 10 do if a[i]<c then inc(b);
  write(b);
  write(m);
end.

 

[huutoan00]

3

uses crt;
var s:string;
      i,a:longint;
begin
  write('Nhap xau: ');readln(s);
  for i:=1 to length(s) do if s[i]=#32 then inc(a);
  writeln('So ki tu trong:'a);
  for i:= length(s) downto 1 do write(s[i]);
end.

 

[huutoan00]

4

uses crt;
var a:array [1..10] of longint;
      k,b,i:longint;
begin
  clrscr;
  for i:=1 to 10 do
   begin
    write('a[',i,']=');readln(a[i]);
   end;
  write(a[1],';',a[10]);
  write('k=');readln(k);
  for i:=1 to 10 do if a[i]=k then inc(b);
 writeln('Co ',b,' so k trong mang.');
 end.

 

[huutoan00]

5

uses crt;
var s: array [1..2] of string;
      i,j:longint;
begin 
	clrscr; 
	for i:=1 to 2  do 
	begin 
	  write('nhap xau ',i,':');readln(s[i]);
	end;
	for i:=1 to 2 do write('Do dai xau ',i,' la:',length(s[i]));
	if s[1][1]=s[2][1] then write('hai ky tu dau tien giong nhau') else write('Hai ky tu dau tien khac nhau');
        for i:=1 to 2 do 
         begin
         for j:=1 to length(s[i]) do write(upcase(s[i][j]));
        writeln
         end;
end.

 

[huutoan00]

6

uses crt;
var a: array [1..10] longint;
      b,c,d,i:longint;
begin
  for i:=1 to 10 do
   begin
    write('a[',i,']=');readln(a[i]);
    if a[i]>0 then inc(b); 
    if a[i] mod 2 <>0 then c:=c+c else d:=d+d;
   end;
  writeln('So luong cac so duong trong mang la ',b);
  if c>d then writeln('tong cac so le > tong cac so chan') else
  if c=d then writeln('tong cac so le = tong cac so chan') else
                    writeln('tong cac so le < tong cac so chan');
end.

 

[huutoan00]

7

uses crt;
var s1,s2:string;
      i:longint;
begin 
  write('Nhap xau 1: ');readln(s1);
  writeln('do dai cua xau s1 la:',length(s1));
  write('nhap xau s2: ');readln(s2);
  for i:=length(s2) downto 1 do write(s2[i]);
  writeln;
  if length(s1)>length(s2) then write('xau 1 dai hon xau 2') else
  if length(s1)=length(s2) then write('xau 1 dai bang xau 2') else
                                                 write('xau 1 ngan hon xau 2');

 

[huutoan00]

8

uses crt;
var a: array [1..10] of longint;
      b,c,i:longint;
begin
  for i:= 1 to 10 do
   begin
    write('a[',i,']=');readln(a[i]);
    if a[i]> b then b:=a[i];
    c:=c+a[i];
   end;
  writeln('Pt lon nhat la',b);
  for i:= 10 downto 1 do writeln(a[i]);
  write('tong cac pt cua mang la ',c

 

[huutoan00]

9

uses crt;
var a:array[1..10] of longint;
      i,j:integer;
begin
  for i:=1 to 10 do 
   begin
    write('a[',i,']=');readln(a[i]);
   end;
  for i:=1 to 10 do if a[i] mod 2 <>0 then write(a[i]:2);
  for i:=1 to 5 do 
   begin 
    j:=a[i];
    a[i] :=a[10-i];
    a[10-i]:=j;
    write(a[i]:2);
   end;
end.

 

[huutoan00]

program xau;
uses crt;
var s:string;i,n,d:longint;
begin clrscr;
writeln('nhap xau s');
readln(s);
n:=length(s);
for i:=1 to n do upcase(s(i));
writeln('xau s1 la ',s);
for i:=1 to n do
if s(i) in ['A'..'Z'] then inc(d);
writeln('co so ki tu chu la ',d);
readln;
end.

không phải là s(i) nhé, mà là s .
hơn nữa upcase là hàm, không phải thủ tục, nên dùng trong lệnh write(upcase(n));