Bài 3. Chương trình máy tính và dữ liệu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tôn Nữ Tuyết Nhi

Giải giúp mik 2 bài tập cuối vs ạ

nguyễn an phát
7 tháng 8 2021 lúc 13:55

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.


Các câu hỏi tương tự
Tôn Nữ Tuyết Nhi
Xem chi tiết
Trâm
Xem chi tiết
Trần Thụy Trà My
Xem chi tiết
Dung Nguyễn
Xem chi tiết
Khánh Thy
Xem chi tiết
Violet Evergarden
Xem chi tiết
yin :3
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết