Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Thu Hiền
Xem chi tiết
Buddy
17 tháng 9 2021 lúc 22:53

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

 
Nguyễn Kim Thơ
Xem chi tiết
Minh Lệ
Xem chi tiết
Anh Lê Quốc Trần
6 tháng 8 2023 lúc 21:28

C:=3.14*2*R;

S:=3.14*R*R;

hà nội 123
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

1:

function dt(r:real):real;

begin

dt:=sqr(r)*pi;

end;

Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

2:

function dt(a,b:real):real;

begin

dt:=1/2*a*b;

end;

Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:59

3:

function dt(a,b,c:real):real;

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

dt:=s;

end;

Quyen Duong
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:56

Program HOC24;

var r,s: real;

begin

write('Nhap ban kinh: '); readln(r);

writeln('Dien tich la: ',r*r*3.14:6:2);

write('Chu vi la: ',r*2*3.14:6:2);

readln

end.

Biển Tomm
Xem chi tiết
Biển Tomm
8 tháng 1 2022 lúc 15:35

cứu mình với

 

Biển Tomm
8 tháng 1 2022 lúc 16:54

chỉ mình với ạ

Biển Tomm
8 tháng 1 2022 lúc 19:44

ai biết làm chỉ mình với ạ

 

Thanh Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2020 lúc 0:02

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

Hồ Nguyên
Xem chi tiết
Gen Z Khoa
Xem chi tiết
Lily Nguyễn
29 tháng 11 2021 lúc 15:39

program chuvi_dientich_hinhtron;

uses crt;

const pi = 3.14;

var R: integer;

cv, dt: real;

begin

clrscr;

writeln; { xuong dong }

readln ( R );

cv:= 2*R*pi;

writeln ( ' chu vi = ' , cv : 8:2 );

dt:=R*R*pi;

writeln ( 'dien tich = ', dt :8:2 );

readln;

end.

Chúc bạn học tốtok