đọc đoạn chương trình sau đây và thực hiện yêu cầu:program tim_dien_tich;uses crt;var a1,a2,b1,b2,x1,x2,i,dem:longint;dtnn,dt1,dt2,dt3,dt4,dt5,dt6:real;x3:array[1..1000]of longint;dt:array[1..1000]of real;begin clrscr; write('nhap chieu dai va chieu rong:');readln(a1,b1); a2:=a1;b2:=b1;dt1:=a1*b1;dt2:=dt1/2; x1:=0;i:=0;dem:=0; writeln(dt2:5:1); writeln(x1); while x1<b1 do begin dt3:=a2*x1/2; dt4:=(b2-x1)*x1/2; dt5:=b2*(a2-x1)/2; dt6:=dt1-dt3-dt4-dt5; ...
Đọc tiếp
đọc đoạn chương trình sau đây và thực hiện yêu cầu:
program tim_dien_tich;
uses crt;
var a1,a2,b1,b2,x1,x2,i,dem:longint;
dtnn,dt1,dt2,dt3,dt4,dt5,dt6:real;
x3:array[1..1000]of longint;
dt:array[1..1000]of real;
begin
clrscr;
write('nhap chieu dai va chieu rong:');readln(a1,b1);
a2:=a1;b2:=b1;dt1:=a1*b1;dt2:=dt1/2;
x1:=0;i:=0;dem:=0;
writeln(dt2:5:1);
writeln(x1);
while x1<b1 do
begin
dt3:=a2*x1/2;
dt4:=(b2-x1)*x1/2;
dt5:=b2*(a2-x1)/2;
dt6:=dt1-dt3-dt4-dt5;
dt[i]:=dt6;x3[i]:=x1;
x1:=x1+1;i:=i+1;dem:=dem+1;
end;
dtnn:=dt[1];
for i:=1 to dem do
begin
if (dtnn>dt[i])and(dt[i]<>0) then dtnn:=dt[i];
end;
writeln(dtnn:5:1);
for i:=1 to dem do
if dtnn=dt[i] then writeln(x3[i]);
readln;
end.
đoạn chương trình trên thực hiện phần in dữ liệu còn phần ghi dữ liệu vào tệp xin mọi người giúp giùm!
cho một hình chữ nhật ABCD,cạnh AB bằng a,cạnh BC=b.a,b là các số nguyên dương trong khoảng từ 1 đến 100.
một điểm M chạy trong đoạn BC với BM=X. X là số nguyên dương trong khoảng từ 0 đến b . Điểm N chạy trong đoạn CD với CN=x
tính giá trị lớn nhất và nhỏ nhất của diện tích tam giác AMN và X khi M,N lưu động
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAVoAAADbCAYAAAAsylm/AAAXxklEQVR4Ae2dDXLjIAxGe64cKOfpaXqZHsYbZ0sjq7INMT8CXmZ2DDII6Ql/9Tpp+rHwggAEIACBogQ+inrHOQQgAAEILAgtmwACEIBAYQIIbWHAuIcABCCA0LIHIAABCBQmgNAWBox7CEAAAggtewACEIBAYQIIbWHAuIcABCCA0LIHIAABCBQmgNAWBox7CEAAAggtewACEIBAYQIIbWHAuIcABCCA0LIHIAABCBQmgNAWBox7CEAAAggtewACEIBAYQIIbWHAuIcABAwCX/fl4+Mj6t/t89tw0JepndB+fy63B+j7V1/AiBYCEMhIYCO49+UlB1/LXQrx7XPpWW6bCe335+3/TzOUNuOuxRUEOiOwK7SPPH5uxsKdb89S0Uho5U+r2zLA/ww6292ECwEnBI6E9nEP+3l7PV7o+RFCG6HdwP1YegboZLsSBgT6JLDRAvno4JEOd7RXarr+lLot9/vPo4PncxgF+Ip75kIAAv0Q2BPagUR2LUb9O9oV4PPBtnx8wJti/VwZRAqBjAQ2Qvt6TBCey350/iZYIFVdaL/uL1Fd26MBDWA5QgACEQQ2Qiv/Z7u9Efv4kOci/DobUlloV3gC2AYyb4o52xuEA4HyBDYaILThubIS244/dlBVaNePdG3f+BrnXcXyO5IVIDAggUOhXZbN/3rlTVpnKCoK7VZUfx8ZyA8ldwyys7oTLgR8EJBCazyP/f28fedvmtcT2hWodes/2LuLPnYvUUCgEwKHQqtuziz96CTNSkL7H9gep81/D4yfap2wJEwIQCCVgBTazf9olchuzqUu0n58FaH9L6QHb3apu9rtc9z2kIgAAhDITGAjsOLTR5tHif/tezdomSMq6q640MpfoXs+l93cseqfWgL4ZlxRBjiHAAQgUJRAcaEtGj3OIQABCHRAAKHtoEiECAEI9E2gC6G1PwomHjMYz3WYAx/2QF97oG8pPY4eoUWkX78GDQtYNNwDx1LV91mEtuHG4o6rrzsu6lW2Xn1L6XH0CC1Cy10ce8DFHjiWqr7PIrRcZC4uMu4Wy94t9sC3byk9jh6h3RHaY2ychQAErhCwhP+KP+9zEdodobU2wmrjBQEIXCdgXV/Xvfr10IVyWEXxZvNbYiKDgD8C1vXrL8p8EXUrtCsCq1jaFlBpe41+WJsjBCCwJWBdf9sRY/W6FtpQCqto0hbGWUc5rlbbigMbBGYiYF1rI+c/hNCuBbIKp22xhdTzavVj42McBHonYF1Tved0FP8wQhuStAoobWHcO0fpp2b7nViZAwHPBKzrx3O8V2MbTmhXIFYRte0qODlf+67VlzHQhkBPBKxrpKf4U2MdUmgDBKuY0hbGlTrKtWq2S+WDXwjkImBdD7l8e/QztNCuwK2Calvtwuj1a/Vr58l6ENgjYO35vbEj2IcX2rVIVlG1zUMxdUw1+h7yJob5CFh7e2QKUwhtKKBVXG0LYz0ddYw1+p7yJ5bxCFh7eLwsXxlNJbRr2laBte2Fx29Lx1yr75cIkfVEwNqvPcWfGut0QhsAWYWWtjCut6PMoWa7N07E25aAtTfbRlR29WmFdsVqFVvbyuKv513nVatfL0NW6omAtf96ij811qmFNsCyii5tYdyIR5lnzfaILMkpnoC11+Jn9zcSof2pmVV4beuvvO9HrHOv1X8/Ymb2RMDaTz3FnxorQquIWRtA2tTw6bqSRa32dJAnSNjaOzFpf3/e1CO/+/KpbPevGE91xyC0Bm9rE2ibMW1qk+ZToz818M6Tt/ZHbEobsb19Lt/rxK/78hHasY4qjkNod2BbG0HbdqZi/iGgedXqUwD/BKy9kBL11/31N9buX1/L/eO+OLyR/U0Jof1FYTesDaFt9kysewQ0v1r9vXiw1ydg1Twpiu/P5Sb+DJXHxwUyH4RW0thpW5tC23amYk4goJnW6ieEyNBMBKzaprre3tWmzq47HqFN4G1tDmlLcMXQBAKScc12QogMTSRg1THRxbLIu1rHz2fXvBDaxOpaG0TbEl0y/E0Cmnut/pvhMk0QsGolTkc1N2+KPR4jeH58gNBGlfTvIGujSNvfGVhqEZB1qNWuldso61h1ScotfMqgk7tahDaputvB1mbRtu0Mei0J6NrU6LfM1/PaFvvoeJ/iels+n5/rWp8giM/WOr2tRWijq7s/0No00rY/kzOtCcg61Wy3zrv1+hbrmJjkG2Afj4906V9WePp1KLYIbUx1I8ZYG0fbItwwxAkBXbtafSfpFw/D4ll80YYLILQZ4VubR9syLoerBgR0PWv1G6RadEmLW9EFGztHaAsUwNpE2lZgWVw2JKDrW6vfMOVLS1t8Ljl0PhmhLVQgayNpW6GlceuIgK55rb4jBGYoFgdz4CBGhLZwIa0NJW2Fl8e9UwJyD9Rqe0Jh5ewpvtyxILS5iRr+rE2lbcY0TBMS0PuiRr8FZiuvFnHUWhOhrUX6sY61uaStYigs1REBuUdqtksisvIouV5r3wht5QpYG0zbKofEcp0S0PumVj8HLivWHH69+kBoG1XG2mjS1igslh2AgNxHNdsp6Ky4Uub3NhahbVgxa7NpW8PwWHowAnpv1epbGK21rXGj2BDaxpW0Npy2NQ6R5QcnoPdbq/7ImBFaJ9WN2dxOQiWMSQjE7MmcY0bGitA6qm7MpnUULqFMSiBmn747ZlSkCK3Dyp5tUochE9LkBM72bOz5M4ybr0QMfzPs6K8ryO+rDeMfx1v4jsWzBTOdR2gzgcztJmZj5l4TfxDITSBmH8sxcet/L5+311/BXefvfTPi9msVH3OORDlu8bdGIbRvYas3SW5Cq10vElaCQB4C1j5ebSmvPwJqKu36Z8hvy/0uvhgcod3HbBVmf/R4Z6z8tW28rMloVAJ674Z+Sr5fd/2l3/flSztY/9zNQ4A3jxsQWk3p1Q+FkMfX2XlaMn+rPQ8JMu2VgLVvgy0lp1Vov9TzV/3cdb3rXW90EdpIsqEQ8hg5dbhhksFee7ikSWgYAnt7drWnvJ5C+5iweYSwuVtdHxv8v8tFaCPJWsWJnDrkMIuHtg2ZOEl1TUDvUd1PSS4I7UNpxZc1vf5g49P+89wWoY0kqwuy9nmdfxsYnNglnghY17G0pcT6K7SL+gTCj7iGxwarT4Q2kqwsRmhHTh1+WOBxdBweAgl2QeBoj67nUl4voVVC+nxc8HhsIB4jILSRZK0CRU6dZpjFSNqmAUGiLgnIvbjXTglcCu3jSe3jeezrc7W3223zCwkIbSRZqzCRU6caZnHStqmAkKwbAnofWv2UYLdCq94Ue3x2Vv7iF0IbSfZqUSKXGWaYxUvahkmURLogIPfeUTslGS20jwexyy3c1YrHBqtPhDaSrFWcyKnTDrOYadu0cEi8KgG97/b68UGtb4DpX1B4vSn2837Yr7v9j4D9DineSHsCXTwcewGrMPZIrJqAxU7a9Hj6EMhNQO63o3bMupu70/UOVt69Pj/qJQR489Gv1zPcNQb9yw0xa18Zg9BeodfJ3KPNHc51kgphdkYg7K+YY2epJYWL0Cbh6nfw7Bu938r1Hbm179aM9ux9Z7sfPUK7z2bIM9YG17YhEyep6gT0vgr9NZDQlsfqAVZcEKGtCNvLUnJz77W9xEoc/RKw9lbI5uhcGDPSEaEdqZqJuVibXdoS3TEcAhsCci+FdhgQ+vIYzo14RGhHrGpCTnKj77UT3DEUAk8CZ3vJOj8yOoR25Oom5GZtfGlLcMVQCJw+g5V7K7RHxobQjlzdxNzChj86Jrpk+IQE9vaPRGGNkedHayO0o1U0Qz7WRSBtGZbAxcAE5F4JbZ1usMujHjNSH6EdqZoZc5EXwF4743K4GoiAtV90ejFj9Jye+whtz9UrHLt1MWhb4RBw3xkBvT9CX6cR7PKox4zUR2hHqmahXOTFsNcutDRuOyNg7Q8rhdhx1twebQhtj1VrELN1YWhbg7BY0hEBvR9C3woxnJNHa9woNoR2lEpWykNeGFa7Uhgs45BAyn5IGesw1eSQENpkZEywLhJtg9JcBHT9Q3+PQjgvj3tjR7AjtCNUsVEO8iKx2o3CYtkGBKz6r7a9lzV+b+wI9n0SjrKbrSiO0J+GYtVG206dMKB7Arrma//olTr+yFcP545pOMlgtqI4wZ4UhlUjaUtyxuCuCMg6y/ZREnJcaB+N7/0cQtt7BR3FHy6Yo6OjcAklEwGr3meu35lz5tPzeYTWc3U6jM26gLStw7QIeYeArm3o7wz/NYdx8vh7csAGQjtgUT2kJC+gvbaHOInhGoF3a2vNuxaJ79kIre/6dB2ddTFpW9cJEvzp1yHuIdL7YO2P/Ooiu9mKMtqGs+onbaPlO0s+soayHZO/HB/aMfN6HYPQ9lq5zuIOF9PRsbOUpg/XqmUslCtzY9fwNA6h9VSNCWKxLjBpmwDBECnKmsl2bHJyTmjHzu1xHELbY9U6jzlcWEfHzlMcPnyrdilJX52fspaHsQithypMGoN1sUnbpFi6SFvWKbRTAg9z5DFlfm9jEdreKjZYvPJC22sPlnL36eSok+WjezAHCSC0B3A4VYeAddFpW51IWCWGgK7N2k995fCRumbL8emEGkQ7W1EaIHaxpFVnbXMR6MRB6HqEfiqSME8eU330NB6h7alaE8QqL7y99gQY3KZo1eSdYHP5eWftFnMQ2hbUWfOUgHUhStupAwYUISBrENrvLBTmyuM7fnqZg9D2UqkJ45QX4V57QizNUs5ZA8tXs8QqLIzQVoDMEtcIWBeltF3zzuxYApJ5aMfO1ePCfHnUY0bqI7QjVXPgXOQFudceOP3mqeVmbvlrnmTBABDagnBxnZ+AdYFKW/4V8bgSkIxD+wqZ4EMer/jzPheh9V4h4vtDQF6ce+0/kzBcImBxvuIwt78rsdSYi9DWoMwa2QlYF6q2ZV90Uoeaa+hfwRF8yOMVf97nIrTeK0R8hwTkhbrXPnTAyVMCFtfTSScDSvg8WbLpaYS2KX4Wz0HAumi1Lcc6M/rQHEP/KovgRx6v+vQ8H6H1XB1iSyIgL1qrneSMwU8CpTiW8uu1bAit18oQ11sErAtY295yPOkkzW7t53iV8psjthI+8lArEZnwOVtRROo03yRg7Rlpe9PtVNMkL9nOAUH6C+0cfr36QGi9Voa4LhMIF/DR8fIiAzuwuOVKt6TvXDHm9IPQ5qSJL5cErIta2lwG3TgoyUe2c4UlfYZ2Lt8e/SC0HqtCTNkJhIv56Jh90Y4dWpxyplPaf85Yc/hCaHNQxEcXBKyLW9u6SKRCkJrL2s/5Ku0/Z6w5fOWllyMiw8dsRTEQYMpIwNpP2pZxue5caRahnzOR4FMec/r35guh9VYR4qlCQF7ge+0qgThcxOKRO8waa+SO+Yo/hPYKPeZ2T8C64KWt+wQTE5C5y3aim9Ph0ndon07qeABC23HxCD0PgXChHx3zrOTfi8WgRNS11ikR+zs+Edp3qDFnSALWxS9tQyatkpL5hrYakqUbfMtjFsdOnSC0TgtDWG0IyAt/r90msvKr1szXWqt8hu1WQGjbsWdlxwQsIZA2x6G/HZrML7TfdnYyMfiXx5MpXZ9GaLsuH8GXJCBFYK9dcv2avmvnZ61XM9/aayG0tYmzXlcELEHQtq4S2glW57T2S75qr1cylxjfZWnGRBAxZraiRCBhSGUC1h7UtsohZV1O57L2S75qr1cylxjfZWnGRBAxZraiRCBhSAMC1j7UtgZhXV5S5xD6lx0fOAhryOPB8O5PIbTdl5AEahOQ4mC1a8dzdb0WObRY8yqnK/MR2iv0mDstAUsotK0HODrm0C8de1hHHkuv2dI/QtuSPmt3T0AKhdX2nmCrmFut26oeCG0r8qw7DAFLNLTNa7I6zrVf49Vq3Rq5WWvUoWqtnGCbrSgJaBjqhIC1R7XNSai/Yej4Qv93QMFGWEseCy7X3DVC27wEBDASASkce20v+Vrx1Yqt5dq1cpTrILSSBm0IZCBgiYi2ZVjmkgsdT+hfcpowOawnjwnTuxuK0HZXMgLuhYAUkb12q1yseGrG0nr9mrmuayG0tYmz3lQELEHRttpA9PqhXzOOsKY81ly/9loIbW3irDclASkoVrsmFGv91VbzZcVQc/3aa9Wl+2Z2sxXlTUxMc07A2sfaViMFvebar/3yEEPNnOsTfiO72YryBiKmdETA2s/SVjIVuY5sl1zT8i3XDm1r3Cg2hHaUSpJHVwSCuBwdSyRkrVdinTOfXuI4izPXeYQ2F0n8QCCRgCU22pbo8nC49h36h5MKnQxry2OhpVy4RWhdlIEgZiYgxWavnYNPSd+p8VmxpProaTxC21O1iHVYApbwaNvV5LW/td/q5SmWGgzakU7IbraiJKBh6GAErL2ube+krH2E/ju+cswJ68tjDr9efSC0XitDXNMSkOKz106FY/lJ9ZFzvLd4cuZm+UJoLSrYIOCAgCVG0hYbopwj27HzS4yTcYR2iXW8+ERovVSCOCBgEAgidHQ0pm1M1tzNgAYdjzGVxIDQlqSLbwhkImAJk7QdLSPHhfbR+BrnQhzyWGPdVmsgtK3Isy4EEglIUdpra5ex4/S80n0rrtJrtvSP0Lakz9oQSCRgCZS2SZf63Nr38PIaVyk2PqifZDdbUU5wcBoCi3VNxNo84LNi9RBXqRguC+3X/SOi6Pfl60IGsxXlAiqmTkTAui7ObF7wWHF6ia1EHJeFNgS1Edz7S1a/P28vIb59Lt9hQsJxtqIkoGEoBF7X1+OxgHWtSJsXXDKm0PYSW4k4igvtGvRVsQ2FkMcSMPAJgV4JyGvjqO0lPyvG6Ni+7sYPlNvy+XMX93W/9j/o6DgSBlYR2uXx4OAuftreApHIQK2iYDu/e4ERjHraA6dy8P253H515CWs/+dJjZlWaB9SK5/lJj5C6GmzECvixh54bw8cCu1GZPeF9L/O7J8/XKPgyUp3tOrxwYf+aXScIRv3vY0LN7j1tAf2VUDerX4s4i0gY8o6FqH9ebaC0PZ0ARArgl1jDxiq+TRt3uOJENGJn9FyR1tjo7IGgtjzHrCF9nv5vIm6Ht/O2i4cWLt4dOCAEyFAAAJNCGwfG3wgtMc/da68GdakviwKAQg4IIDQboqwEdI/P3W2sFI/3rVZiA4EIDARga12fCR+YskLqDqPDuQHjDsF5aVgxAGB2QhsbuIi3gzzyKeM0EoxRWQ91p2YINAPgc1naM8+3uUzrctCu/1pI57T/v4Gx2rz97k2n+UgKghAwCKw+YiXvJHTg9cbuz+PLvWg+v3LQls/ZFaEAARmJLARW+Pm7XnTdyTCDaEhtA3hszQEIJBOYO9/0Q5vZH+TQ2h/UdCAwBgEtnd+P4/zju701DPQ8EsPfDoo335AaPOxxBMEHBFQv1H1eM9k747vzx3ikSg7yrCnUBDanqpFrBBIIPBHQE2lXT+nelvu9+tf0J8Q2nRDEdrpSk7CsxBYv1zlU/6FE+MNpMf3lz7fpd88buCONvsWQWizI8UhBHwQeH6LlXr+qp+7rne9640uQlu2ZghtWb54h0AzAuHrAjePEDZ3q+tjg/+fcUdoy5YJoS3LF+8QaEYgCO3z8cDvLxCJ74IWH+5HaMuWCaEtyxfvEGhG4FdoH3972vpO1/DYYA0QoS1bJoS2LF+8Q6AZgZfQKiF9Pi54PDYQjxEQ2rJlQmjL8sU7BJoRkEL75y9R326LfGMMoS1bJoS2LF+8Q6AZga3Qqr9Erf5AKkJbtkwIbVm+eIdAMwJaaB8PYpdbeFNMPDZYA0Roy5YJoS3LF+8QaERgfQNMfz3p600x/Uti+x8BaxT+YMsitIMVlHQgsLk7Xe9g5d3r84v4hQA/+/b3SMtnuFC9RgChvcaP2RCAAAROCSC0p4gYAAEIQOAaAYT2Gj9mQwACEDglgNCeImIABCAAgWsEENpr/JgNAQhA4JQAQnuKiAEQgAAErhFAaK/xYzYEIACBUwII7SkiBkAAAhC4RgChvcaP2RCAAAROCSC0p4gYAAEIQOAaAYT2Gj9mQwACEDglgNCeImIABCAAgWsEENpr/JgNAQhA4JQAQnuKiAEQgAAErhFAaK/xYzYEIACBUwII7SkiBkAAAhC4RuAf8pKcdtWIvUEAAAAASUVORK5CYII=)
dòng đầu là diện tích lớn nhất của tam giác AMN
dòng 2 là giá trị của x khi đó
dòng 3 là diện tích bé nhất của tam giác AMN
dòng 4 là giá trị của x khi đó
vd:
nhập:10 6
in ra: 30.0
0
17.5
5