Chủ đề này có 1 trả lời

[hqquan21]

Bài 1: Viết chương trình nhập vào từ bàn phím một xâu S có độ dài không quá 250 kí tự. Hãy cho biết trong xâu S có '112211' không?

Bài 2: Viết chương trình nhập vào từ bàn phím mảng 1 chiều A gồm n (n $\leq$ 200) phần tử nguyên dương. Đếm xem trong mảng A có bao nhiêu số chẵn. Thông báo ra màn hình kết quả tìm được. (Sử dụng chương trình con kiểm tra chẵn lẻ để viết).

[Zz NTL zZ]

Bài 1: Viết chương trình nhập vào từ bàn phím một xâu S có độ dài không quá 250 kí tự. Hãy cho biết trong xâu S có '112211' không?

Bài 2: Viết chương trình nhập vào từ bàn phím mảng 1 chiều A gồm n (n $\leq$ 200) phần tử nguyên dương. Đếm xem trong mảng A có bao nhiêu số chẵn. Thông báo ra màn hình kết quả tìm được. (Sử dụng chương trình con kiểm tra chẵn lẻ để viết).

Mình chỉ cung cấp cho bạn đoạn chính thôi ,còn mấy cái khai báo ,nhập ,... thì bạn tự viết nhé

Bài 1:

k:='112211';

kt:=false;

For i:=1 to length(s) do

Begin

t:='';

for j:=i to i+5 do t:=t+s[j];

if t=k then 

begin

kt:=true;

break;

end;

end;

If kt=true then write('Co') else write('khong');

Bài 2:

Sử dụng chương trình con kiểm tra chẵn lẻ: ta dùng hàm kiểm tra !

Function chanle(n:word):boolean;

var kt:boolean;

begin

kt:=false;

if n mod 2=0 then kt:=true else kt:=false;

chanle:=kt;

end;

Chương trình chính :

Begin

clrscr;

----- nhập mảng -----

d:=0;

for i:=1 to n do

if chanle(a[i]) then d:=d+1;

writeln('Co ',d,' so chan');

end.

P/s: Có gì không hiểu cứ hỏi nhiệt tình

Bài viết đã được chỉnh sửa nội dung bởi Zz NTL zZ: 26-05-2016 - 21:25