THử sức pascal cùng a4k49 ( 20 kí tự)

[sasuke_kool]

First topic message reminder :

Nói thế nào bây giờ
Đơn giản là
Mọi người đố các bài tập pascal nếu tui(chùng thôi trải lời đc thì người đó pahir ấn nút thanks) còn ko thì ngược lại (sau 3 ngyaf nếu ko giải đc

[Thần Thoại]

bạn sakuke k giải đc bài của tôi mà chưa ấn phím thank nhé!

[sasuke_kool]

đâu định thanks nhưng nó ghi chữ already oy`

[K+1]

Không dùng vòng lăpj? mấy ông admin bắt nạt em nó vừa thôi,!

Em sasuke gì đó ơi, goto vẫn được tính là vòng lặp. nếu em xem giáo trình pascal thì sẽ biết câu lệnh goto vẫn được coi là 1 trong những câu lệnh lặp cùng repeat, for do, while do vân vân..
Ai giỏi làm thử bài của thằng em tớ ở đề thi Tin Học Trẻ năm ngoái

Một xưởng sản xuất đồ gia dụng, lãi suất là S tính bằng công thức a* x^3+b* x^2+ c*x+d (a,b,c,d là số thực). Với x là khối lượng hàng hoá tính theo kg. Mỗi tháng sản xuất được ít nhất m kg hàng hoá và nhiều nhất n kg hàng hoá (tất nhiên m và n cũng là số thực). Viết chương trình giúp xưởng đó tính được khối lượng hàng hoá cần sản xuất để đươc lãi suất cao nhất. (các tham số a,b,c,d,m,n do người dùng nhập, viết chương trình bằng pascal hoặc Java)

[sasuke_kool]

khó thía

[Bạch Dương]

Bài của anh Kiên K+1 này (không biết có sai chính tả không)
program ducanh;
uses crt;
var
m,n,a,b,c,d,k,kq: integer ;
function tinh(n:integer):integer;
begin
tinh:=k*(a*n*n*n+b*n*n+c*n+d) ;
end;
function sosanh(a1,b1:integer):integer;
begin
if a1<=b1 then sosanh:=a1 else sosanh:=b1;
end;
Begin
Writeln("Nhap he so");
readln(k);
Writeln("Nhap m,n");
readln(m,n);
a:=3*a;b:=b*2;
if b*b - 4*a*c>=0 then kq : = sosanh (sosanh(tinh(( - b + sqrt(b*b-4*a*c)/2* a),tinh((-b+sqrt(b*b-4*a*c)/2*a)),
sosanh (tinh(m),tinh(n))) ;
writeln("ket qua", kq);
readln
end.

Bài của Thần Thoại

program bacduyenha;
var n, kq: integer;
function tinh(var k,n: integer)
begin
k:=k+n*n*n;
if n<1 then tinh:=k else tinh:=k+tinh(n-1); end;
begin
Writeln("Nhập số n");
readln(n); kq:=0;
Writeln("Kết quả là có", tinh(kq,n), "hình lập phương");
end.

Bài hình vuông của trantiendat
Phân tích Giải thuật: tính tổng diện tích 3 hình (=S), kiểm tra xem có phải là số chính phương không, nếu không thì kết luận là thất bại còn nếu có thì tiếp tục kiểm tra xem có thể chia Hình vuông S ấy thành 3 hình chữ nhật ban đầu không. Điều kiện để đi đến thành công:
- 3 chiều dài bằng nhau --> ghép được và xuất ra kết quả
- 1 chiều dài bằng căn bậc hai của S (sqrt S) gọi là a[i] và một cạnh của hình chữ nhật khác = sqrt S - a[i] --> ghép được và xuất ra kết quả
Nghe có vẻ sẽ phải dùng nhiều câu lệnh điều kiện phức tạp nhưng có thể đơn giản hóa chương trình bằng cách dùng 3 biến Boolean để kiểm tra điều kiện (true false), cấp phát 1 mảng 2 chiều với A[i] là chiều dài và A[7-i] là chiều rộng để có được mối liên hệ cd và cr trong cùng một HCN
Nếu S không phải là số chính phương thì chương trình sẽ nhảy trực tiếp đến câu lệnh kết luận thất bại luôn


program HCN;
label ok;
var a=array [1..6] of byte;
i, j: byte; s: integer; dk1, dk2, dk3: boolean;
begin
for i:=1 to 3 do
begin
writeln("Nhập chiều dài và chiều rộng hình chữ nhật thứ",i);
readln(a[i],a[7-i]);
end;
dk1:=false;dk2:=false;dk3:=false;
s:=a[1]*a[6]+a[2]*a[5]+a[3]*a[4];

{kiểm tra S có phải số chính phương không nếu không thì nhảy đến bước kết luận luôn}
for i:=1 to S div 2 do if i*i=S then begin dk3:=true; break; end;
if dk3=false then goto ok;

{kiểm tra 3 chiều dài néu bằng nhau thì bài toán đã xong}
if a[1]=a[3] and a[3]=a[5] and a[1]=Sqrt(S) then writeln("Thành công, ghép thành hinh vuông có diện tích", S) else
begin

{kiểm tra đk2}
while i<7 do begin
if a[i] = Sqrt(S) then dk2 := true;
i=i+2; end;


{kiểm tra đk3}
for j:=1 to 6 do if j<>i and j<>7-i and a[j]=Sqrt(S) - a[j] then dk3=true;


{kết luận}
if dk3=true and dk32=true then writeln("Thành công, ghép thành hinh vuông có diện tích", S) else writeln("Thất bại");

{kết luận của trường hợp đk1 không thỏa mãn}
ok:
if dk3=false then writeln("thất bại");
readln
end.

Cảm ơn đa cho cơ hội ôn tập mấy Kiến thức năm ngoái
http://www.bacduyenha.org/t1728-topic

[thangsautroimua]

bạn nào giải dùm mình bài này với:
nhập 1 dãy n số thực,xét xem dãy có đối xứng không,nếu không xét xem có thể cắt thành 2 đoạn đối xứng không.

[sasuke_kool]

Cái này chẳng phải giống trong hết trong sách giáo khoa sao chỉ khác là trong sgk là xâu, còn đây là sô thực thì chuyển số thành xâu và làm như sgk thui
Chuyển số thành xâu ta có hàm str(biến số thực đó,biến xâu cần lưu);

[Sponsored content]