BÀI 6: Phép toán, biểu thức và câu lệnh gán

[Tadpole Tran]

Hãy biểu diễn 2 nghiệm x1 và x2 của phương trình bậc 2 khi Delta >0 -
phương trình có 2 nghiệm phân biệ. Biểu diễn trong ngôn ngữ lập trình
pasca.

[Tadpole Tran]

Toán hay mà.... hjhj, kon ghét thì để bạn khác làm.

[Khoi Nguyen]

const
fi='phuongtrinhbac2.inp';
fo='phuongtrinhbac2.out';

var
nghiem:boolean;
x1,x2:real;
a,b,c:integer;
f:text;

procedure init;
begin
nghiem:=true;
x1:=0;x2:=0;
end;

procedure input;
begin
assign(f,fi);
reset(f);
read(f,a,b,c);{voi a,b,c la a*sqr(x)+b*x+c=0}
close(f);
end;

procedure solve;
var
delta,stdelta:real;
begin
if (a+b+c)=0 then
begin
x1:=1;x2:=(c/a);
exit;
end;
if (a-b+c)=0 then
begin
x1:=-1;x2:=(-c/a);
exit;
end;
delta:=(sqr(b)-4*a*c);
if delta < 0 then
begin
nghiem:=false;
end
else
begin
if delta>0 then
begin
stdelta:=sqrt(delta);
x1:=(-b+stdelta)/(2*a);
x2:=(-b-stdelta)/(2*a);
exit;
end;
if delta=0 then
begin
x1:=(-b)/(2*a);
x2:=x1;
end;
end;
end;

procedure output;
begin
assign(f,fo);
rewrite(f);
if nghiem then
write(f,'x1= ',x1:1:3,' ','x2= ',x2:1:3)
else
write(f,'pt vo nghiem');
close(f);
end;

begin
input;
init;
solve;
output;
end.

{bài đã test}{chỉ áp dụng khi nó là 1 phương trình có dạng bậc 2
(không phải dạng bậc 2, không thể giải do sẽ thiếu trường hợp}

[Khoi Nguyen]

bạn àh ;)) toán là nền tản của tin học đó bạn. toán tạo ra tin học và
tin học là để kiểm nghiệm lại toán học ở bài như "số học số lớn" vậy
đó ;)) khi mà con số nằm ngoài sự kiểm soát của con người ( là khi làm
những bài toán cao cấp thì lời giải sẽ trở nên dài hơn khi đó tỉ lệ %
sai sẽ tăng lên) nếu chỉ là con người kiểm nghiệm với nhau thì nguy cơ
sai sẽ tăng cao khi đó có thể sẽ có bước ngoặc sai lầm cho nhân loại.
lấy ví dụ: số nguyên tố Mersenne thứ 45 (hay 46 nếu tính cả số 1) với
12,978,189 chữ số : 2^(43,112,609) − 1 thì nó là số nguyên tố chỉ khi
người ta dùng rất nhiều máy tính hợp sức lại để tìm ra nó còn việc làm
sao để kiểm tra thì mình không biết, theo mình nghĩ thì có thể nó sẽ
kiểm tra bằng cách kết hợp thuật toán số học số lớn và thuật tìm số
nguyên tố, nhưng cũng có thể là những thủ thuật khác cao hơn. những
thủ thuật hay chương trình thì chỉ dựa vào toán học mà ra. máy tính
chỉ là công cụ của "những người lười biếng" kiểm tra lại thôi (lười +
thông minh ấy, vì chỉ có "lười" mới sáng tạo ra công nghệ cao để làm
cho lẹ thoi ;)) ). còn việc tìm ra số nguyên tố lớn nhất thì chắc ai
cũng làm được nhưng chỉ là không có điều kiện thoi :)). rất đơn giản
nó chỉ là 1 công thức nhỏ nhưng chưa ai tìm đc nó là đúng hay sai :
với 1 số nguyên tố "p" khi ta lấy [2^( p)]-1 thì ta được số nguyên tố
mới nhưng quan trọng là phải có 1 cái gì đó để chứng minh là nó đúng.
nhưng hiện h công thức còn chưa cm đc thì đành phải kiểm tra bằng thực
nghiệm bằng thuật toán kt số nguyên tố thôi!
tất cả vòng vòng quanh cái máy tính thì chỉ có thuật toán => máy tính
là công cụ áp dụng thuật toán => đụng máy tính là đụng tới thuật toán
=> phải làm toán :)) (ngay cả chơi game cũng phải đụng tới thuật
toán! ;)) không có thuật toán thì đâu có trò chơi và các thứ như quy
luật của trò chơi ;)) )

thuật toán pascal thì mới đầu thấy rất chán nhưng nó rất dễ, sau này
học lên như thầy hoặc lên hơn nữa là các nhà lập trình viên thì mới
thấy được cái khó và cái thú vị của nó ;))

On 29 Tháng Chín, 10:53, Yên Phạm <1t6.phamthi...@gmail.com> wrote:
> Ghét toán >"< Sao th cho toàn toán k thế :(

[Tadpole Tran]

Bài này em tự viết hả? đây chỉ mới là trường hợp a khác 0. Nhìn chung
th thấy kỹ thuật lập trình rất tốt, nếu em tự viết thì wa ok luôn. Th
mong là sau khi học xong passcal chung ta sẽ có dc 1/2 ki năng này là
quá đạt rồi. (^-^)

[Khoi Nguyen]

dạ đây là bài e tự viết ạh, mà thầy ơi, 1/2 kỹ năng còn lại là gì vậy
thầy :D