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.

10 tháng 7 2017

a) Program chuvi_duongtron;

b) const pi = 3.14;

c) readln(r);

d) Thiếu End.

31 tháng 10 2017

a) uses crt;

b) var dt, r: real;

c) Thiếu Begin

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

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.

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);

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)

6 tháng 5 2020

Bn sửa giúp mình luôn dc kh... Cảm ơn bn

\n

Lỗi 1: Sai từ khóa(Programe)

Lỗi 2: Dùng cú pháp hằng mà lại dùng từ khóa khai báo biến(Var a=real;)

Lỗi 3: Dùng sai từ đọc dữ liệu(Realn)

Lỗi 4: Thiếu dấu : ở cú pháp gán

Lỗi 5: End là từ khóa để kết thúc bài mà lại có dấu;

Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên

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