K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

21 tháng 8 2018

a) uses crt;

b) var dt, r: real;

c) Thiếu readln(r);

d) dt:= pi*sqr(r);

29 tháng 8 2023

Lỗi 1: Dòng uses : crt; - Lỗi cú pháp do dấu hai chấm : không cần thiết. Sửa lại thành uses crt;.

Lỗi 2: Dòng var dt, r = real; - Lỗi khai báo biến không đúng cú pháp. Sửa lại thành var dt, r: real;.

Lỗi 3: Dòng clrscr; - Lỗi cú pháp do sử dụng hàm clrscr trong môi trường không hỗ trợ. Nếu muốn xóa màn hình, có thể sử dụng clrscr trong IDE hoặc xóa dòng này nếu không cần thiết.

Lỗi 4: Dòng writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2); - Lỗi cú pháp do sử dụng sai định dạng khi in giá trị. Sửa lại thành writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2:2); để in diện tích với đúng định dạng số thập phân.

31 tháng 10 2017

a) uses crt;

b) var dt, r: real;

c) Thiếu Begin

d) dt:= pi*sqr(r);

10 tháng 7 2017

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) readln(r);

d) Thiếu End.

24 tháng 6 2018

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) write(‘nhap ban kinh r = ‘);

d) Thiếu End.

a) 

Tham số hình thức là biến được liệt kê trong danh sách tham số (thường nằm tại phần đầu của định nghĩa chương trình con)

Tham số thực sự là giá trị cụ thể của biến đó tại thời gian chạy.

15 tháng 4 2021

nói rõ hơn đc kh b

 

29 tháng 8 2023

PI = 3.14 R = float(input('Nhap ban kinh: ')) S = PI * R ** 2 print('Diện tích hình tròn bán kính', R, 'là:', S)
 

Các lỗi cú pháp đã được sửa:

Dòng thứ nhất: "PI= 3.14;" -> "PI = 3.14" (loại bỏ dấu chấm phẩy dư thừa)

Dòng thứ ba: "R=float(input('Nhap ban kinh: ')" -> "R = float(input('Nhap ban kinh: '))" (thiếu dấu đóng ngoặc ')' ở cuối dòng)

Dòng thứ ba: "S : PI*R**2" -> "S = PI * R ** 2" (thay dấu ':' bằng dấu '=' để gán giá trị của biểu thức)

Dòng thứ năm: "print('Diện tích hình tròn bán kính', r ' là: ',S)" -> "print('Diện tích hình tròn bán kính', R, 'là:', S)" (thay 'r' bằng 'R' để in giá trị của bán kính)

KTC_HK1;

S: real;

Writeln('Nhap a='); 

14 tháng 1 2022

- Program KTCHK1;

- Program KTC_HK1;

- Uses crt;

- Var a, S: Integer;

- Writeln('Nhap a = ');

- Writeln('S = ' , S);

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

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

1
11 tháng 4 2021

program bai_3;
uses crt;
var f,g:text;
a1,a2,b1,b2,x1,x2,i,dem,luu:longint;
dtnn,dt1,dt2,dt3,dt4,dt5,dt6:real;
x3:array[1..1000]of longint;
dt:array[1..1000]of real;
begin
  clrscr;
  assign(f,'CHUNHAT.inp');reset(f);
  readln(f,a1,b1);
  close(f);
  a2:=a1;b2:=b1;dt1:=a1*b1;dt2:=dt1/2;
  x1:=0;i:=0;dem:=0;
  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;
  x1:=0;
  for i:=1 to dem do
  if dtnn=dt[i] then luu:=i;
  assign(g,'CHUNHAT.out');rewrite(g);
  writeln(g,dt2:4:1);
  writeln(g,x1);
  writeln(g,dtnn:4:1);
  writeln(g,x3[luu]);
  close(g);
end.

26 tháng 4 2018

Đáp án đúng : B