- Code:
Code:
Var a, b, c, x1, x2: real;
Procedure Nhapabc(var aa,bb,cc: real);
Begin
Write('a='); Readln(aa);
Write('b='); Readln(bb);
Write('c='); Readln(cc);
End;
Procedure GPTB2;
Var Delta: real;
Begin
Delta:=sqr(b)-4*a*c;
If Delta<0 then Writeln('Phuong trinh vo nghiem.')
Else
If Delta=0 then
Begin
Write('Phuong trinh co nghiem kep : ');
Write('x1,2=',-b/(2*a):8:2);
End
Else
Begin
x1:=(-b+sqrt(Delta))/(2*a);
x2:=(-b-sqrt(Delta))/(2*a);
Writeln('Phuong trinh co 2 nghiem phan biet la :');
Writeln('X1=',x1:8:2,', X2=',x2:8:2);
End;
End;
BEGIN
Writeln(' Giai Phuong Trinh Bac Hai Voi Cac He So :');
Nhapabc(a,b,c);
If a<>0 then GPTB2
Else Writeln(' Khong phai phuong trinh bac hai ');
Readln ;
END .
code Giải phương trình bậc 2 bằng pascal
Giới tính :
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
Giới tính :
Tuổi : 28
Đến từ : Bà Rịa-Vũng Tàu
Ngày Tham gia : 24/10/2011
Tổng số bài gửi : 16
- Code:
program PTB2;
uses crt;
var a,b,c,D: real;
x1, x2 : real;
begin
clrscr;
write('a= '); readln(a);
write('b= '); readln(b);
write('c= '); readln(c);
D:= sqr(b)-4*a*c;
if D<0 then writeln('Phuong trinh vo nghiem');
else
begin
if D=0 then
begin
writeln('Phuong trinh co nghiem kep')
x1:= -b/(2*a);
writeln('x1=x2= ',x1:1:3);
end;
if D>0 then
begin
writeln('Phuong trinh co hai nghiem phan biet');
x1:= (-b-sqrt(D))/(2*a);
writeln('x1= ',x1:1:3);
x2:= (-b+sqrt(D))/(2*a);
writeln('x2= ',x2:1:3);
end;
end;
readln
end.
Giới tính :
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
nhitran đã viết:Mình mới học được tí Pascal, bạn chỉ chổ sai cho mình nha
- Code:
program PTB2;
uses crt;
var a,b,c,D: real;
x1, x2 : real;
begin
clrscr;
write('a= '); readln(a);
write('b= '); readln(b);
write('c= '); readln(c);
D:= sqr(b)-4*a*c;
if D<0 then writeln('Phuong trinh vo nghiem');
else
begin
if D=0 then
begin
writeln('Phuong trinh co nghiem kep')
x1:= -b/(2*a);
writeln('x1=x2= ',x1:1:3);
end;
if D>0 then
begin
writeln('Phuong trinh co hai nghiem phan biet');
x1:= (-b-sqrt(D))/(2*a);
writeln('x1= ',x1:1:3);
x2:= (-b+sqrt(D))/(2*a);
writeln('x2= ',x2:1:3);
end;
end;
readln
end.
xem so thi y tuong dung rui.e da test chua. test chay ok la dc.
nhung xai procedure no hay hon.tien cho cac ct dai
Giới tính :
Tuổi : 30
Đến từ : Ha Noi
Ngày Tham gia : 15/10/2011
Tổng số bài gửi : 138
Giới tính :
Tuổi : 28
Đến từ : Bà Rịa-Vũng Tàu
Ngày Tham gia : 24/10/2011
Tổng số bài gửi : 16
Giới tính :
Tuổi : 30
Đến từ : Ha Noi
Ngày Tham gia : 15/10/2011
Tổng số bài gửi : 138
Giới tính :
Tuổi : 28
Đến từ : Bà Rịa-Vũng Tàu
Ngày Tham gia : 24/10/2011
Tổng số bài gửi : 16
- Code:
program S_C_HT;
uses crt;
[b]var r, S, C: real;
const pi=3.14;[/b]
begin
....
chổ in đậm là chổ e sai nhưng e Ctrl + F9 trong Pascal vẫn chạy đc mà, các anh giúp dùm thanks trước
Giới tính :
Tuổi : 30
Đến từ : Ha Noi
Ngày Tham gia : 15/10/2011
Tổng số bài gửi : 138
Giới tính :
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
code hoàn chỉnh nè
- Code:
Var
A, B, C, Delta, X1, X2 : Real;
Begin
Repeat
Write( ' Nhap he so A khac khong :');
Readln(A);
Until A<>0;
Write( ' Nhap cac he so B, C: ');
Readln(B, C);
Delta:=B*B - 4*A* C;
If Delta < 0 then Writeln( ' Phuong trinh vo nghiem ! ');
If Delta = 0 then
begin
X1:=-B/(2*A);
Writeln(' Phuong trinh co nghiem kep X1=X2 = ' , X1:8:2);
end;
If Delta > 0 then
begin
X1 := (-B+ Sqrt(Delta) ) / (2*A);
X2 := (-B - Sqrt(Delta) ) / (2*A);
Writeln('Phuong trinh co hai nghiem :');
Writeln('X1= ' , X1:8:2);
Writeln('X2= ' , X2:8:2);
end;
write(' Chuong trinh duoc viet boi Admin - Nhan phim Enter de thoat chuong trinh...');
Readln;
End.
Giới tính :
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
nói vậy chứ kung biết chứ e.a viết được trò games xếp hình bang pascal nữa đó.hj.và phần mềm đặt hình nền cho ổ đĩa hay thư mục nữa đó.phuonghuupha_211 đã viết:pascal thi cu hoi anh nha nhitran ko can phai hoi admin dau admin lau khong dung roi con j
Giới tính :
Tuổi : 30
Đến từ : Ha Noi
Ngày Tham gia : 15/10/2011
Tổng số bài gửi : 138
Admin đã viết:
code hoàn chỉnh nè
- Code:
Var
A, B, C, Delta, X1, X2 : Real;
Begin
Repeat
Write( ' Nhap he so A khac khong :');
Readln(A);
Until A<>0;
Write( ' Nhap cac he so B, C: ');
Readln(B, C);
Delta:=B*B - 4*A* C;
If Delta < 0 then Writeln( ' Phuong trinh vo nghiem ! ');
If Delta = 0 then
begin
X1:=-B/(2*A);
Writeln(' Phuong trinh co nghiem kep X1=X2 = ' , X1:8:2);
end;
If Delta > 0 then
begin
X1 := (-B+ Sqrt(Delta) ) / (2*A);
X2 := (-B - Sqrt(Delta) ) / (2*A);
Writeln('Phuong trinh co hai nghiem :');
Writeln('X1= ' , X1:8:2);
Writeln('X2= ' , X2:8:2);
end;
write(' Chuong trinh duoc viet boi Admin - Nhan phim Enter de thoat chuong trinh...');
Readln;
End.
lam the nao de dc nhu vay ha admin
Giới tính :
Tuổi : 30
Đến từ : Ha Noi
Ngày Tham gia : 15/10/2011
Tổng số bài gửi : 138
Giới tính :
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
Giới tính :
Tuổi : 28
Đến từ : Bà Rịa-Vũng Tàu
Ngày Tham gia : 24/10/2011
Tổng số bài gửi : 16
Được sửa bởi nhitran ngày Thu Nov 24, 2011 7:44 pm; sửa lần 1.
Giới tính :
Tuổi : 30
Đến từ : Ha Noi
Ngày Tham gia : 15/10/2011
Tổng số bài gửi : 138
ac ac cha hieu y em j ca
Giới tính :
Đến từ : TPHCM
Ngày Tham gia : 03/04/2011
Tổng số bài gửi : 2292
phuonghuupha_211 đã viết:em bao lam the nao de dua cho code len chu khopng phai cach lam bai ay
ac ac cha hieu y em j ca
copy paste là xong chứ gì e.
mã như bên dưới
- Code:
[code] nội dung [/code]
|
|