Giáo Trinh Lý Thuyết & Bài Tập Pascal
lượt xem 157
download
Giáo Trinh Lý Thuyết & Bài Tập Pascal
Bình luận(0) Đăng nhập để gửi bình luận!
Nội dung Text: Giáo Trinh Lý Thuyết & Bài Tập Pascal
- GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL-CHUONG 1 Dang Thanh Tuan(15/3/2004) **********0101********** Program PTB2; Var a,b,c:Integer; delta,x1,x2:Real; Begin Writeln('GIAI PHUONG TRINH BAC HAI'); Writeln(' --------------'); Repeat Write('-Nhap he so a= '); Readln(a); Until a 0; Write('-Nhap he so b= '); Readln(b); Write('-Nhap he so c= '); Readln(c); delta:=b*b-4*a*c; If delta < 0 Then Writeln('*Phuong trinh vo nghiem') Else If delta = 0 Then Writeln('*Phuong trinh co 2 nghiem bang nhau X= ',-b/2*a:6:2) Else Begin x1:=(-b-sqrt(delta))/2*a; x2:=(-b+sqrt(delta))/2*a; Writeln('*Nghiem thu nhat X1= ',x1:6:2); Writeln('*Nghiem thu hai X2= ',x2:6:2); End; readln End. **********0102********** Program Ao_thu; Begin Writeln(' BAI THO AO THU'); Writeln('Ao thu lanh leo nuoc trong veo'); Writeln('Mot chiec thuyen cau be teo teo'); Writeln('Song biec theo lan hoi gon ty'); Writeln('La vang truoc gio se dua veo'); Writeln(' NGUYEN KHUYEN'); Readln End. **********0103********** Program So_hoc; Var so1,so2,tong,hieu,tich:Integer; thuong:Real; Begin Write('-Nhap so thu nhat = '); Readln(so1); Write('-Nhap so thu hai = '); Readln(so2); tong := so1 + so2; hieu := so1 - so2; tich := so1 * so2;
- thuong := so1 / so2; Writeln('*Tong cua hai so ',so1,' va ',so2,' = ',tong); Writeln('*Hieu cua hai so ',so1,' va ',so2,' = ',hieu); Writeln('*Tich cua hai so ',so1,' va ',so2,' = ',tich); Writeln('*Thuong cua hai so ',so1,' va ',so2,' = ',thuong:6:2); Readln End. **********0104********** Program Pithagore; Var a,b :Integer; c:Real; Begin Writeln(' CHUONG TRINH TINH CANH HUYEN TAM GIAC VUONG'); Writeln(' theo dinh ly Pithagore'); Write('-Nhap canh a = '); Readln(a); Write('-Nhap canh b = '); Readln(b); c := Sqrt((a*a) + (b*b)); Writeln('*Canh huyen = ',c:6:2); Readln End. **********0105********** Program Phep_Cong; Var so1,so2,so3,tong :Integer; Begin Writeln(' CHUONG TRINH THUC HIEN PHEP CONG SO HOC'); Writeln(' co toi da 4 ky so'); Write('-Nhap so thu nhat = '); Readln(so1); Write('-Nhap so thu hai = '); Readln(so2); Write('-Nhap so thu ba = '); Readln(so3); tong:= so1+so2+so3; Writeln; Writeln; Writeln('-------------------------------'); Writeln; Writeln(' ',so1:4); Writeln(' + ',so2:4); Writeln(' ',so3:4); Writeln(' -----'); Writeln(' = ',tong:5); Readln End. **********0106********** Program Lenh_Write; Begin Write('Nam '); Write('Quoc '); Write('Son '); Write('Ha '); Write('Nam ');
- Write('De '); Write('Cu '); Readln End. **********0107 Program Lenh_Writeln; Begin Writeln('Nam '); Writeln('Quoc '); Writeln('Son '); Writeln('Ha '); Writeln('Nam '); Writeln('De '); Writeln('Cu '); Readln End. *********0108********* Program Tam_giac_Pascal; Begin Writeln(' 1'); Writeln(' 1 1'); Writeln(' 1 2 1'); Writeln(' 1 3 3 1'); Writeln('1 4 6 4 1'); Readln End. *********0109********* Program Hinh_tron; Var r:Integer; s:Real; Begin Writeln('CHUONG TRINH TINH DIEN TICH HINH TRON'); Write('-Cho biet ban kinh = '); Readln(r); s:=3.1416 * r * r; Writeln('*Dien tich hinh tron = ',s:6:2,' met vuong'); Readln End. *********0110********** Program Khuon_dang; Var ky_tu :Char; chuoi :string[24]; so_nguyen:Integer; so_thuc:Real; Begin Writeln('CHUONG TRINH XUAT DU LIEU THEO KHUON DANG'); Write('-Nhap mot ky tu = '); Readln(ky_tu); Write('-Nhap ho ten = '); Readln(chuoi); Write('-Nhap mot so nguyen = '); Readln(so_nguyen); Write('-Nhap mot so thuc = '); Readln(so_thuc); Writln;
- Writeln('------------------------------'); Writeln('XUAT DU LIEU RA MAN HINH'); Writeln(ky_tu); Writeln(chuoi); Writeln(so_nguyen); Writeln(so_thuc); Readln End.
CÓ THỂ BẠN MUỐN DOWNLOAD
-
Giáo trình Lý thuyết và bài tập Pascal - NXB Thống kê
356 p | 1145 | 512
-
Lý thuyết và bài tập Pascal nâng cao part 1
44 p | 1185 | 426
-
Giáo trình Lý thuyết và bài tập Pascal nâng cao - NXB Thống kê
436 p | 1381 | 335
-
Giáo trình Lý thuyết và bài tập Pascal (Dành cho học sinh phổ thông cơ sở) - KS. Đinh Xuân Lâm
356 p | 660 | 307
-
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 1
20 p | 742 | 219
-
Lý thuyết và bài tập Pascal nâng cao part 2
44 p | 614 | 215
-
Lý thuyết và bài tập Pascal nâng cao part 3
44 p | 464 | 188
-
Lý thuyết và bài tập Pascal nâng cao part 4
44 p | 430 | 172
-
Lý thuyết và bài tập Pascal nâng cao part 5
44 p | 387 | 152
-
Lý thuyết và bài tập Pascal nâng cao part 6
44 p | 294 | 136
-
Lý thuyết và bài tập Pascal nâng cao part 10
40 p | 323 | 128
-
Lý thuyết và bài tập Pascal nâng cao part 8
44 p | 367 | 128
-
Lý thuyết và bài tập Pascal nâng cao part 7
44 p | 304 | 126
-
Lý thuyết và bài tập Pascal nâng cao part 9
44 p | 318 | 121
-
Giáo trình Lý thuyết và bài tập Pascal (Tập 2): Phần 1
366 p | 309 | 81
-
Giáo trình Lý thuyết và bài tập Pascal (Tập 2): Phần 2
278 p | 163 | 54
-
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải: Phần 1
86 p | 15 | 6
Chịu trách nhiệm nội dung:
Nguyễn Công Hà - Giám đốc Công ty TNHH TÀI LIỆU TRỰC TUYẾN VI NA
LIÊN HỆ
Địa chỉ: P402, 54A Nơ Trang Long, Phường 14, Q.Bình Thạnh, TP.HCM
Hotline: 093 303 0098
Email: support@tailieu.vn