Đáp án câu 1 bài Kt 1 tiết ngày 26/2/2010

Được sửa bởi Admin ngày Fri Feb 26, 2010 7:05 pm; sửa lần 1.

Code:: { cau 1 tu luan de Kt1 tiet
author nguyen vu hoang 11a3 - 13
chu y su dung free pascal de bien dich thi kq dung hon Tubor pascal }

uses crt;
var s,s1,s2,kq,a:string;
i,x:integer;
begin
{ nhap xau 1 ,xau2}
write('s1 = '); readln(s1);
write('s2 = '); readln(s2);
s:=s1+s2; {tinh xau s}
{ lay do dai xau = x}
x:=length(s);
a:=''; {chu hoa cuoi cau }
for i:=2 to x do {for i:=1 to x-1 do}
a:=a+s[i]; {a:=a+s[i];}
kq:=upcase(s[1])+a; { kq:=a+upcase(a[x]);}
write(kq);
readln;
end.

kq:
hoang@hoang-desktop:~/Sources/free_pascal_BT$ ./abc
s1 = vu
s2 = hoang
ket qua:Vuhoang

Đề nghị mọi người sử dụng free Pascal
Download tại đây
Download mã nguồn đầy đủ
http://www.mediafire.com/?l1kyyikkzmn

Có thể viết thành thế này

Code:: { cau 1 tu luan de Kt1 tiet
author nguyen vu hoang 11a3 - 13
chu y su dung free pascal de bien dich thi kq dung hon Tubor pascal }

uses crt;
var s,s1,s2:string;
function proper (s:string):string;
var kq,a:string;
i,x:integer;
begin
x:=length(s);
a:='';
for i:=2 to x do
a:=a+s[i];
kq:=upcase(s[1])+a;
proper:=kq;
end;
begin
write('s1 = '); readln(s1);
write('s2 = '); readln(s2);
s:=s1+s2;
write('ket qua:',proper(s));
readln;
end.

có thể sử thành như sau để hàm chặt chẽ hơn Very Happy

Code:: { cau 1 tu luan de Kt1 tiet
author nguyen vu hoang 11a3 - 13
chu y su dung free pascal de bien dich thi kq dung hon Tubor pascal }

uses crt;
var s,s1,s2:string;
function proper (s:string):string;
var kq,a:string;
i,x:integer;
begin
if s then
begin
x:=length(s);
a:='';
for i:=2 to x do
a:=a+s[i];
kq:=upcase(s[1])+a;
proper:=kq;
end;
end;
begin
write('s1 = '); readln(s1);
write('s2 = '); readln(s2);
s:=s1+s2;
write('ket qua:',proper(s));
readln;
end.

Tiêu đề: Re: Đáp án câu 1 bài Kt 1 tiết ngày 26/2/2010

» nhật kí a3
» Ngày Xửa Ngày Xưa 19 - Phù Thủy Lắm Chiêu (2009)
» Hình tiết học cuối cùng của năm
» Ngày mới bất ngờ (Hai VL)
» ngay` buon`