4) Xâu đối xứng Tên tập tin chương trình SYMMETRY.??? Một xâu ký tự X được gọi là xâu đối xứng nếu viết X theo thứ tự ngược lại ta cũng nhận được xâu X. Yêu cầu: kiểm tra các xâu ký tự có phải là xâu đối xứng không. Dữ liệu vào từ

nguyenduyenn2807

2 năm trước

4) Xâu đối xứng Tên tập tin chương trình SYMMETRY.??? Một xâu ký tự X được gọi là xâu đối xứng nếu viết X theo thứ tự ngược lại ta cũng nhận được xâu X. Yêu cầu: kiểm tra các xâu ký tự có phải là xâu đối xứng không. Dữ liệu vào từ tập tin văn bản SYMMETRY.INP gồm: - Dòng 1 chứa số nguyên dương N, N < 1000. - N dòng tiếp theo, dòng thứ i chứa xâu ký tự Xi có không quá 250 ký tự. Kết quả: Đưa ra tập tin văn bản SYMMETRY.OUT là xâu ký tự S có N ký tự, trong đó ký tự thứ i của S là 1 nếu xâu Xi là xâu đối xứng, là 0 nếu xâu Xi không là xâu đối xứng. Làm bằng pascal nha

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

Ngocmy1210

program doi_xung;

var f,g:text;

x:string;

n,i:integer;

{---Ham-doi-xung---}

function ktdx(s:string):boolean;

var j:byte;

st:string;

begin

st:='';

for j:=length(s) downto 1 do

st:=st+s[i];

if s=st then exit(true) else exit(false);

end;

{---Chuong-trinh-chinh---}

BEGIN

Assign(f,'SYMMETRY.INP'); reset(f);

Assign(g,'SYMMETRY.OUT'); rewrite(g);

readln(f,n);

for i:=1 to n do

begin

readln(f,x);

if ktdx(x) then writeln(g,1) else writeln(g,0);

end;

close(f); close(f);

end.

Vote (0) Phản hồi (0) 2 năm trước

anhphuongpretty

var f1, f2: text;

i, n: word;

s: string;

Function kt(a: string): boolean;

Var j: byte;

Begin

For j:=1 to (length(a) div 2) do

If a[j]<>a[length(a)-j+1]

Then exit(false);

Exit(true);

End;

Begin

Assign(f1, 'symmetry.inp'); reset(f1);

Assign(f2, 'symmetry.out'); rewrite(f2);

Readln(f1, n);

For i:=1 to n do

Begin

Readln(f1, s);

If kt(s)=true then writeln(f2, 1)

Else writeln(f2, 0);

End;

Close(f1); close(f2);

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

có 3 gen là gen a, genb, gen c đều có chiều dài bằng nhau và bằng 1020 angtorong và cả 3 gen đều trải qua các quá trình tự sao với thời gian như nhau gen b có chu kì tự sao bằng 1/2 so với chu kì của gen c và bằng 1/3 so với chu kì gen a , trong quá trình tự sao của 3 gen nói trên cần môi trường nội bào cung cấp48 600 nucleotit tự do . số lần tự sao của 3 gen nói trên

H=10/56+10/140+10/260+...+10/1400

Việc đậu mầm P/s : Who wants to be my wife? please 😂

IV. 1. pho is the (delicious) ..................food I've ever tasted. 2. ho chi minh city is (busy) ....................... than ha noi. 3.vatican is (small) .................country in the world. 4. I think Bangkok is (modern).............. than Manila. 5. Is tokyo one of the (expensive).......................... cities in the world. 6. the population of Landon is( big)................ than that of paris. 7. it's the (good)................... service we've ever hadin New York 8. the weather in cairo is (bad)............................than that in berlin. 9.shanghai is one of the (noisy)................... cities in the world. 10. many people say that Hue is the (historic) ..................... cities in viet nam Thank you

Phân biệt giữa thanh trùng và tiệt trùng

10 câu nêu cảm nhận của em về hình ảnh ông đồ trong hiện tại và sự đồng cảm của nhà thơ trong khổ thơ 3

cho phân số 73/98 lấy phân số đã cho trừ cho một số mà kết quả của phép tính đấy rút gọn đi là 1/6. tính phân số đó.

cho tam giác ABC vuông tại A, AB=6cm, AC=8cm a) tính độ dài BC B) gọi m là trung điểm của AC. Vẽ Cx vuông góc AC tại C, tia Cx cắt tia BM tại D. C/m tam giác AMB= tam giác CMD c) so sánh 4.BM2 vơi 4.AB2+AC2, giải thích

JsjsjjzjsjsjndndnxjzjxjJnsbwhjwkxjzn

Vẽ anime đang ngồi bên cửa sổ kiểu đang nhớ ai đó nha. Lưu ý: Đẹp, có line, màu hay ko tùy, ko app

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến