Bài tập về nhà môn tin học

Mình xin post bài làm 3.36 của mình lên đây. Các bạn xem và bình luận nhé.

program VLBai336;
uses crt;
var k: byte;
A,B,C:real;
begin
clrscr;
A:=1;
B:=1;
C:=0;
writeln(A:0:0);
writeln(B:0:0);
for k:=1 to 44 do
begin
C:=A+B;
A:=B;
B:=C;
writeln(C:0:0);
end;
readln;
end.

Đây là bài 3.37. Mình đã làm. test thử. Nhưng đây ko phải là cách ngắn nhất.

program Bai337;
uses crt;
var i,N,K:byte;
y,x:real;
begin
clrscr;
write('Nhap so la quoc ky duoc may: '); readln(N);
write('Nhap so K: '); readln(K);
write('Chieu rong y cua la quoc ky thu ',K,' la: '); readln(y);
for i:=K to N do begin x:=y;
y:=x*(sqrt(5)-1)/2;
end;
writeln('Chieu dai la quoc ky nho nhat: ',x:0:2);
writeln('Chieu rong la quoc ky nho nhat: ',y:0:2);
for i:=N downto 1 do begin y:=x;
x:=y*2/(sqrt(5)-1);
end;
writeln('Chieu dai la quoc ky lon nhat: ',x:0:2);
writeln('Chieu rong la quoc ky lon nhat: ',y:0:2);
readln;
end.

Bài 3.38 đây Lưu ý: Đừng nhập A>11

program Bai338;
uses crt;
var A,B:real;
i:word;
begin
clrscr;
write('Nhap so thuc A: '); readln(A);
B:=0;
i:=1;
while A>B do
begin
B:=B+1/i;
i:=i+1;
end;
writeln('So N can tim la: ',i);
readln;
end.

Cảm ơn Ad nha =)
(mặc dù tớ làm từ lâu rồi)

Cảm ơn ad.
Nhưng tớ nghĩ cậu nếu muốn giúp mọi người hiểu tốt thì chỉ nên post giải thuật lên thôi, còn viết chương trình thì nên để các bạn tự viết, như thế mới thực sự hiểu bài

Fandiesakara đã viết:Cảm ơn ad.
Nhưng tớ nghĩ cậu nếu muốn giúp mọi người hiểu tốt thì chỉ nên post giải thuật lên thôi, còn viết chương trình thì nên để các bạn tự viết, như thế mới thực sự hiểu bài

Cảm ơn bạn đã góp ý . Như vậy là tốt cho các bạn đó. Tuy nhiên, có một số bạn (có cùng ý tưởng với mình) cũng làm chương trình ra rồi. Nhưng dài hơn (hoặc nắn hơn) mình, nên post lên để các bạn khác tham khảo, rút kinh nghiệm để viết chương trình ngắn gọn, hay hơn.
Thân.

Bài số chính phương mình làm vậy được ko? Ngắn lẳm rồi đó )
program VD;
uses crt;
var
a,b:longint;
begin
clrscr;
write('Nhap a: ');readln(a);
b:=round(sqrt(a));
if a=b*b then writeln(a,' la so chinh phuong!!!')
else writeln(a,' ko phai la so chinh phuong!!!');
readln;
end.

var n:integer;
begin
repeat
writeln('nhap n>=0');
readln(n);
until n>=0;

if trunc (sqrt(n)) = sqrt(n) then
writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');

readln;
end.


Như vậy mình không cần dùng thêm một biến thứ hai nào cả. Không biết có đúng không hả ad???

Nhân tiện cho tớ hỏi giải thuật bài Số đối xứng luôn nha Long???

May ban dung may ham la qua chua hoc toi, sao minh ko dung cai minh da hoc di!!!!!
Day la bai lam cua minh, chac chan la chi dung nhung cai da hoc, minh cun kiem nghiem ;thu roi, dung lun nhung hoi dai. Cac ban tham khao cho y kien nhe:
uses crt;
var a,f,n,i: longint;
k: integer;
begin
clrscr;
Repeat
Writeln('nhap so n:');Readln(n);
until (n>0);
a:=0;
f:=0
If n=1 then Writeln('n ko phai so chinh phuong')
else
begin
For i:=2 to (n-1) do
begin
k:= sqr(i) - n;
if k=0 then a:=a+1
else f:=f+1;
end;
end;
if a=0 then Writeln('n ko phai so chinh phuong')
else Writeln('n la so chinh phuong');
Readln;
End.

Mấy hàm của tao hôm bữa thầy Mi có dạy hết rồi mà. Tại mày lo bắn CS nên không để ý thôi

program Bai332;
uses crt;
var p,q,n,k:integer;
a:longint;
begin
clrscr;
writeln('Nhap n: '); readln(n);
writeln('Nhap p, q: '); readln(p,q);
if n mod 2 = 0 then
begin
a:=p;
k:=2;
while k<=n do
begin a:=a+p;
k:=k+2;
end;
end
else
begin
a:=q;
k:=3;
while k<=n do
begin a:=a+q;
k:=k+2;
end;
end;
writeln(a);
readln;
end.

)

BAI KT 1 TIET CUA A4
uses crt;
var
begin
clrscr;
writeln('Nhap so n:');Readln(n);
S:=0; i:=0; k:=n; a:=1;
WHile (k>0) do
begin
i:=i+1;
k:=k div 10;
end;
Writeln('so chu so cua n la: ',i);
b:=n;
While(b>0) do
begin
c:=b mod 10;
for d:=1 to i do a:=a*c;
S:=S+a;
b:=b div 10;
a:=1;
end;
Writeln('Tong can tim la: ',S);
WRiteln('Cac uoc cua n la:');
For e:=1 to n do
begin
f:= n mod e;
if f=0 then Write(e,' ');
end;
Readln;
End.

Fandiesakara đã viết:var n:integer;
begin
repeat
writeln('nhap n>=0');
readln(n);
until n>=0;

if trunc (sqrt(n)) = sqrt(n) then
writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');

readln;
end.


Như vậy mình không cần dùng thêm một biến thứ hai nào cả. Không biết có đúng không hả ad???

Cũng đúng Nhưng mà cao siêu quá
Số đối xứng NHP biết thì phải... tui chưa làm )

Bài Số hoàn chỉnh... Bài này ko phải là xét số đó có phải là số hoàn chỉnh không. Mà là liệt kê các sô HC nhỏ hơn hoặc bằng số mình nhập

Uses crt;
var S,i,b,n,a,k:longint;
begin
clrscr;
Writeln('nhap so n:');readln(n);
Writeln('Cac so hoan chinh nho hon n la:');
For i:=2 to n do
begin
S:=0;
For b:=1 to (i-1) do
begin
k:= i mod b;
if k=0 then S:=S+b;
end;
a:=S - 2n;
if a:=0 then WRiteln(a);
end;
Readln;
end.