Giúp em viết CT này cái đ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.

 

[thienluan14211]

Code in Turbo Pascal 7.0


Bài 1

PROGRAM bai_1;
USES crt;
VAR S,S1:STRING;
    i,j,dem: INTEGER;
BEGIN
    clrscr;
    write('Nhap xau S: ');
    readln(s);
    FOR i:=1 TO length(S) DO s1:=s1+upCase(S[i]);                    
    dem:=0;
    FOR i:=1 TO length(s1) DO IF s1[i] IN['A'..'Z'] THEN dem:= dem+1;   
    writeln(S1);
    writeln('Chuoi S1 co ',dem,' ki tu chu cai.');
    readln;
END.

 

[thienluan14211]

Code in Turbo Pascal 7.0​

Bài 2

PROGRAM Bai_2;
USES crt;
VAR A:ARRAY[1..10] OF INTEGER;
    m,dem,i,vitri,max:INTEGER;
BEGIN
    clrscr;
    writeln('Nhap 10 gia tri cua mang: ');
    FOR i:=1 TO 10 DO BEGIN
    write('A[',i,']= ');
    readln(a[i]);    
    END;
    dem:=0;                            
    write('Nhap m= ');
    readln(m);    
    FOR i:=1 TO 10 DO IF a[i] < m THEN dem:=dem+1;
    max:=a[1];
    FOR i:= 2 TO 10 DO IF a[i]> max THEN
    BEGIN
        max:=a[i];
        vitri:=i;
    END;
    writeln('Day co ',dem,' phan tu nho hon ',m);
    writeln('Phan tu thu ',vitri, ' lon nhat.');
    readln
END.