Tin học pascal

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2
Thành viên
13 Tháng mười 2018
1,523
1,339
241
19
Quảng Trị
Trường TH&THCS Hải Ba
Để đọc số đó bạn
Vd:
Var
n:integer;
begin
readln(n);(hoặc read(n))
{Đọc vào một số n}
end.
 

ka1412

Học sinh chăm học
Thành viên
24 Tháng mười một 2017
874
730
121
Hà Nội
CNN | Life
Vậy bạn 'viết chương trình tính chu vi, diện tích hình tròn cho biết bán kính r' đi.
Mã:
var r:real;
begin
write('Nhap r:');readln(r);
write('Chu vi hinh tron:',2*3.14*r);
write('Dien tich hinh tron:',3.14*r*r);
readln
end.
Có vấn đề gì thì bạn cứ hỏi mình nhé =)))
 

Sư tử lạnh lùng

Học sinh chăm học
Thành viên
25 Tháng mười một 2017
733
207
116
Nghệ An
Không biết
Mã:
var r:real;
begin
write('Nhap r:');readln(r);
write('Chu vi hinh tron:',2*3.14*r);
write('Dien tich hinh tron:',3.14*r*r);
readln
end.
Có vấn đề gì thì bạn cứ hỏi mình nhé =)))
Làm như thế này được không?
program tinh_toan;
uses crt;
clrscr;
var bankinh, chuvi, dientich:integer;
const pi:=3,14;
begin
writeln('bankinh=');readln(bankinh);
chuvi:=2*pi*bankinh;
dientich:=bankinh*bankinh*pi;
readln;
end.
 
Top Bottom