Ôn thị HK I thôi các bạn ơi !!!

Tiêu đề: Ôn thị HK I thôi các bạn ơi !!! Mon Nov 22, 2010 1:34 pm

Đây là đáp án 2 bài của lớp A4. Các bạn A4 và A5 cũng như các lớp khác hãy tham khảo.

Bài 1
Nhập vào số nguyên dương N (N <= 12). Tính và in ra màn hình giá trị của N! (4đ)

Code:: USES crt;
VAR
n,i:byte;
gt:longint;
BEGIN
clrscr;
gt:=1;
write('Nhap n (n<=12) : ');
readln(n);
if n>12 then
writeln('n khong duoc lon hon 12')
else
begin
for i:=1 to n do
gt:=gt*i;
writeln(n,'! = ', gt);
end;
readln;
END.

Bài 2
Viết chương trình nhập vào mảng 1 chiều gồm các số nguyên.
a/ Nhập và xuất mảng ra màn hinh (2đ)
b/ Tính trung bình cộng của các phần tử lẻ (2đ)
c/ Sắp xếp theo chiều không giảm và đưa ra màn hình mảng sau khi đã sắp xếp (2đ)

Code:: USES crt;
const
max=100;
VAR
a:array[1..max] of integer;
n,i,j,t,dem:integer;
tbc,sum:real;
BEGIN
clrscr;
textmode(c80);
writeln('Cau a/');
write('Nhap so phan tu cua mang : ');
readln(n);
for i:=1 to n do
begin
write('Nhap phan tu a[',i,'] = ');
readln(a[i]);
end;
writeln('Xuat Mang : ');
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;

writeln('Cau b/');
sum:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2 = 1 then
begin
sum:=sum+a[i];
dem:=dem+1;
end;
tbc:=sum/dem;
writeln('Trung binh cong cac phan tu le cua mang la : ',tbc:0:2);
writeln;

writeln('Cau c/');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
writeln('Mang sau khi duoc sap xep theo chieu khong giam la : ');
for i:=1 to n do
write(a[i]:5);
readln;
END.

Còn một số đề nữa nè sensei giải dùm lun nha, đề thi HKI lun đó

Bài 1: Viết chương trình mảng 2 chiều nhập (n dòng, n cột n<=10) gồm các số nguyên dương
a/ Xuất mảng vừa nhập
b/ Tính tổng các phần tử trên đường chéo chính
c/ Tính tích các phần tử ở hàng lẽ, cột chẵn

Bài 2: Viết chương trình tính X^N (X thuộc R, N thuộc Z)

Và nhờ Sensei hướng dẫn thuật toán để tính tổng phần tử là bội số của một số nguyên k cho trước

Thanks sensei nhìu nha

Trả lời :

Trích dẫn :: Bài 1: Viết chương trình mảng 2 chiều nhập (n dòng, n cột n<=10) gồm các số nguyên dương
a/ Xuất mảng vừa nhập
b/ Tính tổng các phần tử trên đường chéo chính
c/ Tính tích các phần tử ở hàng lẽ, cột chẵn

Đáp án :

Code:: USES crt;
CONST
max=100;
VAR
a:array[1..max,1..max] of integer;
n,i,j:integer;
s,p:longint;
BEGIN
clrscr;
randomize;
writeln('Cau a/ ');
write('Nhap n = ');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10);

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;

writeln('Cau b/');
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('Sum = ',s);
writeln;

writeln('Cau c/');
p:=1;
for i:=1 to n do
if i mod 2 = 0 then
for j:=1 to n do
if j mod 2 = 1 then
p:=p*a[i,j];
writeln('P = ',p);
writeln;
readln;
END.

Trích dẫn :: Bài 2: Viết chương trình tính X^N (X thuộc R, N thuộc Z)

Đáp án :

Code:: USES crt;
VAR
x:real;
n,i:integer;
kq:real;
BEGIN
clrscr;
kq:=1;
write('Nhap x = '); readln(x);
write('Nhap n = '); readln(n);
for i:=1 to n do
kq:=kq*x;
writeln('x^n = ',kq:0:2);
readln;
END.

Típ nè

Với bài tính tổng BSC nhỏ nhất của 1 số nguyên k cho trước thì trước hết mình phải có cái "TẬP HỢP" số nào đó (vd : mảng 1 chiều gồm 100 fần tử or mảng 2 chiều n x m fần tử) rùi mình mới xét trong tập hợp đó, số nào chia hết cho số k thì ok, cộng số đó vào Tổng.

Đây là đoạn mã giả để tính tổng BSC nhỏ nhất của 1 mảng 1 chiều gồm n fần tử

Code:: for i:=1 to n do
if a[i] mod k = 0 then
s:=s+a[i];

Được sửa bởi kakashi ngày Tue Nov 23, 2010 8:12 pm; sửa lần 3.

Tiếp tục đêêêêê !!! Và sau đây là bài tập của lớp A5

Trích dẫn :: Bài 1 : Viết chương trìn thực hiện :
a/ Tính n! (n thuộc Z)
b/ Tính x^n (x thuoc R, n thuoc Z)
c/ Tìm Min(a,b,c)
d/ Tìm UCLN(a,b)

Code:: USES crt;
VAR
n,i,min,ucln,tam:integer;
a,b,c:integer;
gt:longint;
x,p:real;
BEGIN
clrscr;
{Tinh n!}
gt:=1;
writeln('Cau a/');
write('Nhap n : '); readln(n);
for i:=1 to n do
gt:=gt*i;
writeln(n,'! = ',gt);
writeln;

{Tinh x^n}
writeln('Cau b/');
p:=1;
write('Nhap x : '); readln(x);
write('Nhap n : '); readln(n);
for i:=1 to n do
p:=p*x;
writeln(x:0:2,'^',n,'=',p:0:2);
writeln;

{Tim Min (a,b,c)}
write('Nhap a,b,c : '); readln(a,b,c);
min:=a;
if b<min then
min:=b;
if c<min then
min:=c;
writeln('Min = ',min);
writeln;

{Tinh UCLN (a,b)}
write('Nhap 2 so a,b : '); readln(a,b);
while b <> 0 do
begin
tam:=a mod b;
a:=b;
b:=tam;
end;
ucln:=a;
writeln('UCLN = ',ucln);
readln;
END.

Trích dẫn :: Bài 2 : Nhập từ bàn phím mảng 1 chiều gồm các số nguyên (50 phần tử)
a/ Xuất mảng vừa nhập
b/ Xuất các phần tử theo yêu cầu (vd : các phần tử chẵn, các phần tử là bội số của 1 số nguyên k cho trước...)
c/Tính trung bình cộng các phần tử lẻ trong mảng
d/ Sắp xếp mảng theo chieu ko giam và đưa ra màn hình mảng sau khi được sắp xếp

Code:: USES crt;
CONST
max=50;
VAR
a:array[1..max] of integer;
n,i,j,k,t,sum,dem:integer;
tbc:real;
BEGIN
clrscr;
{Nhap Mang 1 chieu}
write('Nhap n : '); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,'] = ');
readln(a[i]);
end;

{Xuat mang 1 chieu vua nhap}
writeln('Cau a/');
for i:=1 to n do
write(a[i]:5);
writeln;

{Xuat cac phan tu theo yeu cau}
writeln('Cau b/');
write('Cac phan tu chan : ');
for i:=1 to n do
begin
if a[i] mod 2 =0 then {Xuat cac phan tu chan}
write(a[i]:5);
end;
writeln;
write('Nhap K : '); readln(k);
write('Cac phan tu la boi so cua 1 so nguyen K cho truoc : ');
for i:=1 to n do
begin
if a[i] mod k = 0 then
write(a[i]:5);
end;
writeln;

{Tinh tbc cac phan tu le trong mang}
writeln('Cau c/');
dem:=0;
sum:=0;
for i:=1 to n do
if a[i] mod 2 <>0 then
begin
sum:=sum+a[i];
dem:=dem+1;
end;
tbc:=sum/dem;
writeln('TBC = ',tbc);
writeln;

{Sap xep theo chieu ko giam}
writeln('Cau d/');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
writeln('Mang da duoc sap xep theo chieu khong giam la : ');
For i:=1 to n do
write(a[i]:5);
writeln;
readln;
END.

Trích dẫn :: Bài 3 : Nhập từ bàn phím mảng 2 chiều các số nguyên gồm n dòng, n cột
a. Tính tổng các phần tử trên đường chéo chính
b. Tính tích các ohần tử ở hàng chẳn cột lẻ
c. Sắp xếp mảng sao cho các phần tử trên cùng 1 hàng theo thứ tự ko giảm
d. Hiện mảng đã sắp xấp ra màn hình.

Code:: USES crt;
CONST
max=100;
VAR
a:array[1..max,1..max] of integer;
n,i,j,k,t:integer;
s,p:integer;
BEGIN
clrscr;
write('Nhap n : '); readln(n);
{Phat sinh ngau nhien mang 2 chieu gom n dong, n cot}
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10)-random(10);
writeln;

{Xuat Mang vua nhap}
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;

{Tinh tong cac phan tu nam tren duong cheo chinh}
writeln('Cau a/');
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('S = ',s);
writeln;

{Tinh tich cac phan tu nam tren hang chan, cot le}
writeln('Cau b/');
p:=1;
for i:=1 to n do
if i mod 2 = 0 then
for j:=1 to n do
if j mod 2 = 1 then
p:=p*a[i,j];
writeln('P = ',p);
writeln;

{Sap xep mang <=> cac phan tu tren moi hang co thu tu khong giam}
for k:=1 to n do
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[k,i]>a[k,j] then
begin
t:=a[k,i];
a[k,i]:=a[k,j];
a[k,j]:=t;
end;
end;
writeln;
{Xuat mang vua sap xep}
writeln('Cau d/');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readln;
END.

NẾU CÓ THẮC MẮC THÌ CÁC BẠN HÃY HỎI Ở DƯỚI HOẶC QUA Y!M CỦA MÌNH : hoa.thuytien25

bao nhiu do' da~ du? chua zay????

thấy cấu trúc đề của a4 thì muốn....chết ghê
kì này vừa khóc vừa làm thui....
cố lên mọi người ơi....

ủa sao cái đường chéo chính ngắn wa' za m.con cai loi chay khong duoc ma hien len compilation aborted la gi za m trong free pascal do.

Đề:
Cho
F(1)=1
F(2)=2
tính F(N)
biết F(x)=F(x-1) F(x-2)

Code:: var F:array[1..100] of real;

i: integer;N:integer
begin
write('Nhap N');
readln(N);
F[1]=1;
F[2]=2;
for i:=3 to N do F[i]:=F[i-1]+F[i-2];
writeln(F[N]);
end.

Đã Fix bởi Kakashi

Được sửa bởi boypro_woody ngày Thu Nov 25, 2010 6:14 pm; sửa lần 4.

Đề:
Cho nhập a,b,c,d
tối giản phân số a/b+c/d

Code:: var a,b,c,d,i,Tu,Mau:integer;
begin
Readln(a,b,c,d);
Tu:=a*d+b*c; Mau:=b*d;
for i:=2 to Tu do if (Tu mod i = 0) and Mau (mod i = 0) then
begin
Tu:=Tu div i;
Mau:=Mau div i;
i:=2;
end; writeln(Tu,'/',Mau); end.

Bài tìm phân số tối giản của Đông Phương có lẽ đúng. Vì mình cũng chẳng hiểu bạn vik j`.

Mọi người thử xem thuật toán của mình. Đơn giản là lấy tử số và mẫu số chia cho UCLN (Tu so, mau so).

Code:: USES crt;
VAR
a,b,c,d:integer;
tam:integer;
t,m,ucln:integer;

BEGIN
clrscr;
write('Nhap a,b,c,d : ');
readln(a,b,c,d);

writeln('Cau a/');
t:=a*d+b*c;
m:=b*d;
writeln(a,'/',b,'+',c,'/',d,' = ',t,'/',m);
while m<>0 do
begin
tam:=t mod m;
t:=m;
m:=tam;
end;
ucln:=t;
t:=(a*d+b*c) div ucln;
m:=(b*d) div ucln;
writeln('Phan so sau khi rut gon la : ',t,'/',m);
writeln;
readln;
END.