function s1(s:string):string;
var d,i:integer;
s2:string;
begin
d:=length(s);
s2:=#32;
for i:=d downto 1 do
s2:=s2+s[i];
s1:=s2;
end;
Viết hàm để tính sô lần của xâu S1 xuất hiện trong xâu S2 .
2. Sử dụng hàm và thủ tục để viết chương trình tính tổng các số chẵn, lẻ trong xâu
Viết chương trình nhập vào bàn phím 2 xâu bất kì so sánh độ dài 2 xâu đưa ra màn hình xâu ngắn hơn sau đó chuyển xâu ngắn hơn sang dạng chữ hoa
Câu 1 .Viết chương trình sử dụng chương trình con xác định tham số có trong chương trình con X Câu 2 lập trình nhập 2 xâu không quá 100 và so sánh 2 xâu
Nhập Vào 1 xâu f1. Đưa ra xâu f2 các số xhia hết cho 5
Giả sử trong ổ đĩa E có một tệp tên DKT, bên trong tệp DKT chứa một dãy ký tự chữ hoa. Các bạn hãy viết chương trình đưa ra màn hình xâu ký tự đó với chữ thường.
Viết hàm để kiểm tra 3 số a,b,c có phải là 3 cạnh của tam giác ABC hay không ?
1- Viết chương trình con tính diện tích hình tròn bán kính R ( sử dụng thủ tục hoặc hàm)
2- Viết chương trình con tính diện tích tam giác khi biết đáy và chiều cao nhập từ bàn phím.( sử dụng 1 thủ tục hoặc hàm để tính diện tích)
3- Viết chương trình con tính diện tích tam giác với độ dài các cạnh nhập từ bàn phím.(sử dụng 1 thủ tục hoặc hàm )
Viết hàm để kiểm tra một số nguyên N có phải là số chính phương hay không ?
