BÀI 12. KIỂU XÂU(CHUỖI) CÓ PHÂN BIỆT CHỮ HOA VÀ CHỮ THƯỜNGVÍ DỤ1
9./ S1:=’Hoc’; S2:=’Sinh’; S3:=’Gioi’;
a) uyenV
b) yen
c) enVan
d)V
Phần 2: (5đ) Học sinh đọc kỹ đề bài. Chỉ viết một chương trình
a) Nhập vào mảng một chiều B kiểu số thực gồm n phần tử (n <= 90).
b) Đếm các phần tử B[i] dương. Xuất kết quả tính được ra màn hình.
c) Tăng giá trị mỗi phần tử B[i] của mảng B lên 7 lần. Xuất kết quả của mảng sau khi tăng lên 7 lần
d) Tính tổng bình phương các phần tử B[i] âm.Xuất kết quả tính được ra màn hình.
Var B:array[1..90] of Real;
i,n,dem: integer;
S:Real;
Begin
Write('Nhap N='); Readln(n);
For i:=1 to n do
Begin
Write('B[',i,']=');
Readln(B[i]);
End;
if (B[i] > 0) then
dem := dem+1;
Writeln('Co',dem,'phan tu duong’);
For i:=1 to n do
B[i]:=B[i]*7;
Writeln('mang tang gap 7 la:');
Write(B[i],’ ’);
For i:=1 to n do
If (B[i] < 0) Then
S:=S+B[i]*B[i];
Writeln(’tong bp cac phan tu am= ’ , S);
Readln;
End.