Question

Câu 1 : viết chương trình nhập học và tên của một học sinh , hãy hiển thị kí tự thứ 5 của họ tên học sinh đó , cho biết kí tự đầu tiên đã viết hoa hay chưa ?

Câu 2: Viết chương trình tính diện tích của một hình chữ nhật với 2 cạnh được nhập từ bàn phím , trong chương trình có dùng chương trình con lập hàm tính diện tích hình chữ nhật ?

Câu 3: Viết chương trình đếm số kí tự chữ số trong một xâu kí tự được nhập từ bàn phím ?

Answer 1

Câu 1:

uses crt;
var ten:string;
kt:integer;
begin
clrscr;
write('Nhap ho va ten cua hoc sinh:'); readln(ten);
writeln('Ki tu thu 5 la: ',ten[5]);
kt:=0;
if ten[1] in ['A'..'Z'] then kt:=1;
if kt=0 then writeln('Ki tu dau tien chua viet hoa')
else writeln('Ki tu dau tien da viet hoa');
readln;
end.

Câu 2:

uses crt;
var d,r:real;
{-------------------------chuong-trinh-con----------------------------}
function dientich(x,y:real):real;
begin
dientich:=x*y;
end;
{-------------------------chuong-trinh-chinh---------------------------}
begin
clrscr;
repeat
write('Nhap chieu dai:'); readln(d);
write('Nhap chieu rong:'); readln(r);
until (d>0) and (r>0) and (d>=r);
writeln('Dien tich cua hinh chu nhat la: ',dientich(d,r):4:2);
readln;
end.

Câu 3:

uses crt;
var st:string;
dem,d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
dem:=0;
d:=length(st);
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln('So ki tu chu so la: ',dem);
readln;
end.