Tin học Bài tập pascal

[ahihiiloveyou]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Bài 1
Viết chương trình nhập chiều dài , chiều rộng của hình chữ nhật là số nguyên , tính và xuất ra màn hình chu vi và diện tích hcn

Bài 2 : viết chương trình nhập bán kính hình tròn R là số nguyên và xuất ra màn hình

 

[Anhnguyen252003]

1,program b1;{FPC}
var a,b:real;
function dt(a,b:real):real;
begin
dt:=a*b;
end;
{-----------------------------}
function cv(a,b:real):real;
begin
cv:=(a+b)*2;
end;
{----------------------------}
procedure process;
begin
repeat
write('Nhap do dai canh a=');readln(a);
write('Nhap do dai canh b=');readln(b);
until(a>0)and(b>0);
writeln('Dien tich=',dt(a,b):10:5);
writeln('Chu vi=',cv(a,b):10:5);
readln;
end;
{----------------------}
begin{main}
process;
end.
2,

 

[ahihiiloveyou]

Viết bằng pascal bạn ơi !!

 

[Quang Trungg]

Viết bằng pascal bạn ơi !!

Bài1
VAR a,b:INTEGER;
C,S:REAL;
BEGIN
Writeln('Nhap vao chieu dai hinh chu nhat:');
Readln(a);
Writeln('Nhap vao chieu rong hinh chu nhat:');
REadln(b);

IF (a<>b) AND (a>0) AND (b>0) THEN
BEGIN
C:=(a+b)*2;
S:=a*b;
Writeln('chu vi hinh chu nhat la:',c:5:2);
Writeln('dien tich hinh chu nhat la:',s:5:2);
END
ELSE
IF a=b THEN writeln('chieu dai phai khac chieu rong!')
ELSE writeln('khong co hinh chu nhat này!');
readln;
END.
Bài2.Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Const pi=3.14;
Begin

Clrscr;
Writeln('TINH DIEN TICH & CHU VI HINH TRON:');
Writeln('------------------------------------------------------');
Write ('Nhap ban kinh R=');readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln('Dien tich hinh tron la:',dt:6:2);
Writeln('Chu vi hinh tron la:',cv:6:2);
Readln;

End.
Nguồn:Sưu tầm

 

[Vuio Dev]

Viết bằng pascal bạn ơi !!

Bài trên viết bằng pascal mà