đọ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

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

a)AM≥AH vì AM là đường xiên

AM≤AB vì hình chiếu của AM ≤ hình chiếu của AB

b)vị trí của AM để đạt giá trị nhỏ nhất: trùng với điểm H vì đường vuông góc là đường ngắn nhất,để đạt giá trị lon nhất:trùng với điểm C hoặc B vì HB và HC là 2 hình chiếu lớn nhất

A=x²+y²-2xy-x²+y²+2xy

=x²-x²+y²+y²+2xy-2xy

=y⁴

^{vậy da thức A sau khithu gọn là:} y⁴

hình bạn vẽ sai rồi! vì dòng điện sẽ đi từ cực dương đến D1,từ D1 sang D2 và từ D2 đến cực âm của nguồn điện nên đèn vẫn sẽ sáng dù khóa có mở hay không

chiều của mạch điện bạn tự thêm vào nhé!

program tim_chu_so;

uses crt;

var i,n,csln:longint;

k:integer;

a:array[1..1000]of longint;

st:string;

begin

clrscr;

write('nhap so n:');readln(n);

str(n,st);

val(st,a[i]);

csln:=a[1];

for i:=1 to length(st) do

if csln<a[i] then csln:=a[i];

writeln('chu so lon nhat cua so ',n,' la:',csln);

readln;

end.

cu Tí thường xuyên tham gia thi lập trình trên mạng.Vì  đạt thành tích cao nên  cu Tí được gửi tặng một phần mền diệt viruts.Nhà sản xuất cung cấp cho Tí một mã số là một số nguyên dương n không quá 255 chữ số .Đễ cài đặc phần mềm ,Tí phải nhập vào mật mã của phần mền,mật mã là số nguyên dương M được tạo bằng cách tính tổng các chữ số của số nguyên N.

Yêu cầu :hãy tìm số nguyên dương M

Dữ liệu vào: cho trong file văn bản MK.INP có cấu trúc như sau:

Dòng 1: Ghi số nguyên dương N

Dữ liệu ra: Ghi trong file văn bản MK.OUT theo cấu trúc như sau:

Dòng 1:Ghi số nguyên dương M tìm được

Vd:

MK.INP                                                                                                            MK.OUT

84915388247                                                                                                59

a)

program tinh_tong;

uses crt;

var n,i:integer;

tong:longint;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0

while i<n do

begin

if i mod 2=1 then tong:=tong+i

else i:=i+1;

end;

tong:=tong+2*n;

writeln('tong la:',tong);

readln;

end.

b)

program tinh_tong;

uses crt;

var n,i:integer;

tong:longint;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0

while i<n do

begin

if i mod 2=0 then tong:=tong+i

else i:=i+1;

end;

tong:=tong+(2*n-1);

writeln('tong la:',tong);

readln;

end.

program tim_tong_va_tich;

uses crt;

var n,i:integer;

tong,tich:longint;

a:array[1..100]of integer;

begin

write('nhap so n:');readln(n);

i:=1;tich:=1;tong:=0;

while i<=n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

tong:=tong+a[i];tich:=tich+a[i];

i:=i+1;

end;

writeln('tong cua cac so tren la:',tong);

writeln('tich cua cac so tren la:',tich);

readln;

end.

program tinh_quang_duong;

uses crt;

var t:integer;

function qd:longint;

begin

qd:=40*t;

end;

begin

clrscr;

write('nhap thoi gian:');readln(t);

write('quang duong oto di duoc sau ',t,' gio la: ',qd);

readln;

end.