View Single Post
Old 26-03-2009, 07:00 PM   #10
Hồ sơ
duyhung123abc
Senior Member
 
duyhung123abc's Avatar
 
Tham gia ngày: Jun 2008
Số bài viết: 206
Tiền: 25
Thanks: 10
Thanked 45 Times in 40 Posts
duyhung123abc is on a distinguished road
Default Ðề: Bác nào có đề Tin học trẻ năm cũ post hộ em!

Bài số 3 dễ bị nhầm vì các tính chất đã cho ko có tính giao hoán.
VD
3*2 = 36
2*3 = 64
Đây là code bài số 3 của anh

Dùng cho free pascal
Code:
var
  i,j:int64;
(****************************)
function tinh(x,y:int64):int64;
begin
  if (y=1) then exit(x*2);
  exit(tinh(x,y-1)*(2*x));
end;
(******************************)
begin
  writeln('Nhap i,j: '); read(i,j);
  writeln('KQ: ',tinh(i,j));
end.
Dùng cho turbo pascal
Code:
var
  i,j:longint;
(****************************)
function tinh(x,y:longint):longint;
begin
  if (y=1) then tinh:=x*2
  else tinh:=tinh(x,y-1)*(2*x);
end;
(******************************)
begin
  writeln('Nhap i,j: '); read(i,j);
  writeln('KQ: ',tinh(i,j));
end.

thay đổi nội dung bởi: duyhung123abc, 26-03-2009 lúc 07:15 PM.
duyhung123abc is offline   Trả Lời Với Trích Dẫn