//
you're reading...
00 - Chủ đề chung, Dùng cho cấp THCS, Dùng cho cấp THPT

Bài 5: Nhập, xuất dữ liệu.

Program Ca_dao;
{Bai tap 01.01}
Begin
Writeln(‘Trong dam gi dep bang sen,’);
Writeln(‘La xanh bong trang lai chen nhi vang,’);
Writeln(‘Nhi vang bong trang la xanh.’);
Writeln(‘Gan bun ma chang hoi tanh mui bun’);
Readln
End.

Program Phep_Tru;
{Bai tap 01.03}
Var
so1,so2,hieu :Integer;

Begin
Writeln(‘ CHUONG TRINH THUC HIEN PHEP TRU SO HOC’);
Writeln(‘         co toi da 4 ky so’);
Write(‘-Nhap so thu nhat = ‘);
Readln(so1);
Write(‘-Nhap so thu hai  = ‘);
Readln(so2);
hieu:= so1-so2;
Writeln;
Writeln;
Writeln(‘——————————-‘);
Writeln;
Writeln(‘     ‘,so1:4);
Writeln(‘  –  ‘,so2:4);
Writeln(‘    —–‘);
Writeln(‘  = ‘,hieu:5);
Readln
End.

Program Cuu_chuong_1;
Var
so :Integer;

Begin
Write(‘-Bang cuu chuong so may ?: ‘);
Readln(so);
Writeln;
Writeln;
Writeln(‘ CHUONG TRINH BANG CUU CHUONG’);
Writeln(‘——————————-‘);
Writeln;
Writeln(so:2,’ lan  1  = ‘,so*1:3);
Writeln(so:2,’ lan  2  = ‘,so*2:3);
Writeln(so:2,’ lan  3  = ‘,so*3:3);
Writeln(so:2,’ lan  4  = ‘,so*4:3);
Writeln(so:2,’ lan  5  = ‘,so*5:3);
Writeln(so:2,’ lan  6  = ‘,so*6:3);
Writeln(so:2,’ lan  7  = ‘,so*7:3);
Writeln(so:2,’ lan  8  = ‘,so*8:3);
Writeln(so:2,’ lan  9  = ‘,so*9:3);
Writeln(so:2,’ lan 10  = ‘,so*10:3);
Readln
End.

Program Hinh_thang;
Var
a,b,h:Integer;
S:Real;
Begin
Writeln(‘CHUONG TRINH TINH DIEN TICH HINH THANG’);
Write(‘-Cho biet day ngan = ‘);
Readln(a);
Write(‘-Cho biet day dai = ‘);
Readln(b);
Write(‘-Cho biet chieu cao = ‘);
Readln(h);
S := 0.5 * (a + b) * h;
Writeln(‘+Dien tich hinh thang = ‘,s:6:2,’ met vuong’);
Readln
End.

Program Tam_Giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln(‘CHUONG TRINH TINH DIEN TICH TAM GIAC’);
Write(‘-Cho biet canh thu nhat = ‘);
Readln(a);
Write(‘-Cho biet canh thu hai  = ‘);
Readln(b);
Write(‘-Cho biet canh thu ba   = ‘);
Readln(c);
p := 0.5 * (a + b + c);
s := sqrt(p*(p-a)*(p-c)*(p-c));
Writeln(‘+Dien tich hinh tam giac = ‘,s:6:2,’ met vuong’);
Readln
End.

Program Hinh_cau;
Var
s:integer;
r,v:Real;
Begin
Writeln(‘CHUONG TRINH TINH THE TICH HINH CAU’);
Writeln(‘———————————‘);
Write(‘Cho biet dien tich hinh tron = ‘);
Readln(s);
r:=Sqrt(s/4*3.1416);
v:=4/3 * 3.1416 *r*r*r;
Writeln(‘*The tich hinh cau la : ‘,V:6:2,’ met khoi’);
Readln
End.

Program Luc_hut;
CONST
g=6.672E-8;
Var
m1,m2,d,f:Real;
Begin
Writeln(‘CHUONG TRINH TINH LUC HUT GIUA 2 VAT’);
Write(‘-Khoi luong m1 (gam) = ‘);
Readln(m1);
Write(‘-Khoi luong m2  (gam) = ‘);
Readln(m2);
Write(‘-Khoang cac giua 2 vat (Cm) = ‘);
Readln(d);
f := g * m1 * m2 / sqr(d);
Writeln(‘+Luc hut giua 2 vat = ‘,f:6:2);
Readln
End.

Program Pignet;
Var
Ten:String;
Tuoi:Integer;
lon,nho,tb,tl,cao,pig:Real;
Begin
Writeln(‘CHUONG TRINH TINH PIGNET’);
Writeln(‘————————‘);
Write(‘-Cho biet ho ten : ‘);
Readln(ten);
Write(‘-Cho biet tuoi   : ‘);
Readln(tuoi);
Write(‘-Cho biet chieu cao : ‘);
Readln(cao);
Write(‘-Cho biet trong luong : ‘);
Readln(tl);
Write(‘-So do vong nguc luc hit vao = ‘);
Readln(lon);
Write(‘-So do vong nguc luc tho ra  = ‘);
Readln(nho);
tb := 0.5 * (lon-nho);
pig := cao – (tb + tl);
Writeln;
Write(‘+Ong (Ba) : ‘,ten:24);
Writeln(‘ , ‘,tuoi,’ tuoi’);
Writeln(‘+Co so do Pignet = ‘,pig:6:2);
Readln
End.

Program Tinh_luong;
Var
Ten:String;
nc,pc,tam:Integer;
bl,hs,tt,cl:Real;
Begin
Writeln(‘CHUONG TRINH TINH LUONG’);
Writeln(‘————————‘);
Write(‘-Cho biet ho ten : ‘);
Readln(ten);
Write(‘-Cho biet bac luong   : ‘);
Readln(bl);
Write(‘-Cho biet ngay cong : ‘);
Readln(nc);
Write(‘-Cho biet he so trach nhiem : ‘);
Readln(hs);
Write(‘-Cho biet phu cap khu vuc = ‘);
Readln(pc);
Write(‘-Cho biet so tien da tam ung ky 1 = ‘);
Readln(tam);
tt := ((bl/30 * nc * hs)+pc);
cl := tt – tam;
Writeln;
Writeln(‘+Ong (Ba) : ‘,ten:24);
Writeln(‘+Tien luong trong thang = ‘,tt:10:2,’ dong’);
Writeln(‘+So tien con linh = ‘,cl:10:2,’ dong’);
Writeln(‘   Bam phim <Enter> de ket thuc’);
Readln
End.

Program Tinh_dien_tich;
Var
cv,canh,s:Real;
Begin
Writeln(‘TINH DIEN TICH LON NHAT CUA HINH CHU NHAT’);
Writeln(‘—————————————–‘);
Write(‘-Cho biet chu vi chu nhat : ‘);
Readln(cv);
canh:=cv / 4;
s:=canh * canh;
Writeln(‘-Chu vi hinh chu nhat = ‘,cv:10:2,’ met’);
Writeln(‘-Dien tich lon nhat se= ‘,s:10:2,’ met vuong’ );
Writeln(‘   Bam phim <Enter> de ket thuc’);
Readln
End.

Program Tam_thuc;
Var
a,b,c,x,p:Integer;
Begin
Writeln(‘TINH TAM THUC’);
Writeln(‘————-‘);
Write(‘-Nhap a= ‘);
Readln(a);
Write(‘-Nhap b= ‘);
Readln(b);
Write(‘-Nhap c= ‘);
Readln(c);
Write(‘-Nhap x= ‘);
Readln(x);
p:=((a*(x*x)) + (b*x) + c);
Writeln(‘*Tri cua tam thuc = ‘,p);
Writeln(‘Bam phim <Enter> de ket thuc’);
Readln
End.

Program Tinh_do_dai_vec_to;
Var
x,y,z:Integer;
l:Real;
Begin
Writeln(‘TINH CHIEU DAI VECTO’);
Writeln(‘———————‘);
Writeln;
Write(‘-Cho biet toa do X : ‘);
Readln(x);
Write(‘-Cho biet toa do Y : ‘);
Readln(y);
Write(‘-Cho biet toa do Z : ‘);
Readln(z);
l:= Sqrt(Sqr(x) + Sqr(y) + Sqr(z));
Writeln(‘+Chieu dai cua vecto = ‘,l:10:2);
Writeln(‘    Bam phim <Enter> de ket thuc’);
Readln
End.

Program Tinh_Z;
Var
x,z:Real;
Begin
Writeln(‘TINH GIA TRI Z QUA SO THUC X’);
Writeln(‘—————————-‘);
Write(‘-Nhap tri x = ‘);
Readln(x);
z:=ln(x + abs(sin(2 * x)));
Writeln(‘*Gia tri cua Z = ‘,z:10:2);
Writeln(‘ Bam phim <Enter> de ket thuc’);
Readln
End.

Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười 2014
H B T N S B C
« Th11   Th11 »
 12345
6789101112
13141516171819
20212223242526
2728293031  

NCT Computer

Flickr Photos

Thống kê

  • 150,179 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: