một số bài tập pascal

Bai tap Pascal co ban

Ngày tải lên : 24/06/2013, 01:28

... ba số thực Thông báo hình khối lợng M[J] cầu J Bài 29 Có N Bài với số hiệu 1, 2, , N, N

18
2.1K
12

60 bài tập Pascal cơ bản

Ngày tải lên : 26/07/2013, 01:27

... gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s:8:2); Readln; End Bài 18: Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang Var i,j,k:integer; ... n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm số đảo số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; ... Readln; End Bài 51: Viết chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử...

41
2K
19

bai tap pascal co ban.doc

Ngày tải lên : 26/08/2013, 00:10

... kiểm tra số nhập vào có phải số nguyên tố hay không Bài tập 3.23: Viết chương trình nhập vào số nguyên dương Hãy thông báo lên hình số có chữ số tổng chữ số số Gợi ý: 25 Giáo trình tập Pascal Dùng ... PHANTICH(n); Readln; End BÀI TẬP TỰ GIẢI Bài tập 4.7: Viết hàm tìm Max , số thực Bài tập 4.8: Viết hàm PERFECT(n:Word):Boolean; để kiểm tra số nguyên n có phải số hoàn thiện hay không? Bài tập 4.9: Viết ... tự ch Bài tập 4.10: Viết hàm tìm BSCNN số nguyên a,b khai báo sau: Function BSCNN (a,b:word ):word ; 36 Giáo trình tập Pascal Bài tập 4.11: Viết thủ tục để tối giản phân số a/b , với a, b số nguyên...

144
868
5

61 BÀI TẬP PASCAL CƠ BẢN

Ngày tải lên : 28/08/2013, 08:00

... gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s:8:2); Readln; End Bài 18: Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang Var i,j,k:integer; ... n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm số đảo số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; ... Readln; End Bài 51: Viết chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử...

41
1.5K
4

Bai tap Pascal cơ bản

Ngày tải lên : 10/10/2013, 04:11

... gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s:8:2); Readln; End Bài 18: Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang Var i,j,k:integer; ... n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm số đảo số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; ... Readln; End Bài 51: Viết chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử...

41
644
2

Bài tập pascal cơ bản

Ngày tải lên : 23/10/2013, 20:15

... writeln(n,'khong la so hoan hao'); readln END Bài 13: Số phương số có bậc số nguyên VD số số phương bậc Lập trình nhập số nguyên dương n từ bàn phím kiểm tra xem số có số phương không? Lời giải: uses crt; ... writeln(min); end; readln END Bài 25: Cho số tự nhiên n (khai bảo longint), cho biết: n có chữ số, tổng chữ số n số đảo ngược n VD: số 123 có chữ số, tổng chữ số 6, số đảo ngược 321 Lời giải: uses ... nguyen to'); end; readln END Bài 12: Số hoàn hảo số mà có tổng ước không kể nó VD: số 28 có ước là: 14 số có ước là: Lập trình nhập vào số nguyên dương n kiểm tra xem số có số hoàn hảo không? Lời giải:...

15
803
5

Bài tập Pascal cơ bản đến nâng cao theo chương trình tin học lớp 11 không phân ban

Ngày tải lên : 30/10/2013, 08:49

... c); Readln; END Bài tập : Số Hoàn Hảo số có tổng ước (trừ nó) Ví dụ : = + + a b Viết chương trình kiểm tra xem số có số hoàn hảo không Liệt kê tất số hoàn hảo từ 2000 đếm xem có số Program So_hoan_hao; ... Trang 35 Trần Văn Chung trường THPT Hoàng Văn Thụ Nha Trang Bài tập chương trình Bài tập Dùng thủ tục chuyển số tự nhiên n cho trước sang hệ số Procedure Change ( n : integer ; Var St : String ) ; ... thuc '); Readln; END Bài tập : Thông tin học sinh ghi gồm trường : Họđệm : xâu 25 kí tự Tên : xâu 10 kí tự Tuổi : số nguyên hai chữ số Lớp : xâu hai chữ số chữ viết hoa Một file ghi chứa danh...

45
14.4K
17

Bài soạn Những bài tập Pascal cơ bản

Ngày tải lên : 24/11/2013, 09:11

... gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s:8:2); Readln; End Bài 18: Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang Var i,j,k:integer; ... n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm số đảo số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; ... Readln; End Bài 51: Viết chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử...

41
1.4K
24

Bài tập Pascal cơ bản và hướng dẫn

Ngày tải lên : 26/12/2013, 20:00

... write(n[x],t[y],c[w],d[z]); readln; end 15.Viết chương trình điều chỉnh số nguyên bị nhập sai từ bàn phím Sau cho biết số nhập sai số sửa người sử dụng yêu cầu Ví dụ: số nhập sai là: 23hdj43jj, chương trình sửa lại ... nhập xâu ký tự có lẫn vào số có chữ số (vd: fffhgj234fgg)- có kiểm tra việc nhập sai (vd: jghjg45jk ggdg012gdg ggdgg34hjhh3…) cho phép nhập lại Kiểm tra cho biết số có phải số nguyên tố không? var ... begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end; for i:=1 to n writeln(a[i]); readln; end VCT đọc số có chữ số nhập vào từ bàn phím? uses crt; Var s:array[1 9] of string; a,b,c,n:integer; begin clrscr;...

14
1.4K
4

bài tập pascal có lời giải

Ngày tải lên : 15/04/2014, 15:14

... de ket thuc!'); Readln; END BÀI TẬP CƠ BẢN BÀI TẬP CƠ BẢN BÀI TẬP CHƯƠNG 3:CHƯƠNG TRÌNH CON Bài :Dùng thủ tục chuyển số tự nhiên n cho trước sang hệ số GIẢI Bài : Một file ghi chứa danh sách ... b, c); Trung_tuyen(a, b, c); Readln; END BÀI TẬP CƠ BẢN BÀI TẬP CƠ BẢN BÀI TẬP CHƯƠNG 7: KIỂU RECORD Bài :Giải phương trình x + y + z = 12 phạm vi số nguyên không âm với điều kiện x < GIẢI ... doi la: ', S); Readln; END BÀI TẬP CHƯƠNG 6: DỮ LIỆU KIỂU TẬP Bài : Bạn viết hàm Card(A) đếm số phần tử tập hợp A cho trước có kiểu Set Of 99 (* hàm đếm số phần tử tập hợp *) Uses Crt; Type Tap=set...

26
3.8K
4

Giáo án - Bài giảng: Công nghệ thông tin: Bài tập Pascal có đáp án (Full)

Ngày tải lên : 18/04/2014, 15:00

... gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s:8:2); Readln; End Bài 18: Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang Var i,j,k:integer; ... n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm số đảo số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; ... Readln; End Bài 51: Viết chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử...

41
822
0

Bài tập pascal cơ bản ppt

Ngày tải lên : 19/06/2014, 09:20

... writeln(n,'khong la so hoan hao'); readln END Bài 13: Số phương số có bậc số nguyên VD số số phương bậc Lập trình nhập số nguyên dương n từ bàn phím kiểm tra xem số có số phương không? Lời giải: uses crt; ... writeln(min); end; readln END Bài 25: Cho số tự nhiên n (khai bảo longint), cho biết: n có chữ số, tổng chữ số n số đảo ngược n VD: số 123 có chữ số, tổng chữ số 6, số đảo ngược 321 Lời giải: uses ... nguyen to'); end; readln END Bài 12: Số hoàn hảo số mà có tổng ước không kể nó VD: số 28 có ước là: 14 số có ước là: Lập trình nhập vào số nguyên dương n kiểm tra xem số có số hoàn hảo không? Lời giải:...

17
777
4

Bai tap pascal(co dap an)

Ngày tải lên : 03/07/2014, 10:00

... lễ năm • · Tổng số ngày lễ tổng số ngày nghỉ lễ q , q ,… Kết thể hình BÀI TẬP CHƯƠNG Bài : Hãy lập chương trình tạo tệp số ngun chứa số ngun tố nhỏ 10000 theo thứ tự tăng dần Bài : Cho f tệp ... doi la: ', S); Readln; END BÀI TẬP CHƯƠNG Bài : Bạn viết hàm Card(A) đếm số phần tử tập hợp A cho trước có kiểu Set Of 99 (* hàm Uses Type Const Var đếm số phần tử tập hợp *) Crt; Tap=set of ... END BÀI TẬP CHƯƠNG Bài : Dùng thủ tục chuyển số tự nhiên n cho trước sang hệ số Procedure Change ( n : integer ; Var St : String ) ; (* thủ tục chuyển số tự nhiên n cho trước sang hệ số lưu...

49
1K
12

BAI TAP PASCAL CO LOI GIAI

Ngày tải lên : 11/07/2014, 14:00

... BÀI TẬP CƠ BẢN TRANG 49 BÀI TẬP CƠ BẢN Nhap; Tinh_ngay_nghi; Inkq; Write('Ban Enter de ket thuc '); Readln; END BÀI TẬP CHƯƠNG 8: KIỂU FILE Bài : Hãy lập chương trình tạo tệp số nguyên chứa số ... b[i]:8:2 ) ; inc(i) ; Until i > n ; Readln ; END Bài 10 : Viết chương trình nhập dãy số tối đa 50 số in hình số trùng dãy BÀI TẬP CƠ BẢN TRANG 10 BÀI TẬP CƠ BẢN GIẢI Uses crt ; Var a , b : Array[1 ... Delete(S,1,1); BÀI TẬP CƠ BẢN TRANG 34 BÀI TẬP CƠ BẢN While (S[length(S)] = #32) Delete(S,length(S),1); Write('Chuoi sau da bien doi la: ', S); Readln; END BÀI TẬP CHƯƠNG 6: DỮ LIỆU KIỂU TẬP Bài : Bạn...

68
4.4K
123

Bài tập pascal cơ bản dành cho hs-sv pps

Ngày tải lên : 21/07/2014, 15:20

... writeln(n,'khong la so hoan hao'); readln END Bài 13: Số phương số có bậc số nguyên VD số số phương bậc Lập trình nhập số nguyên dương n từ bàn phím kiểm tra xem số có số phương không? Lời giải: uses crt; ... writeln(min); end; readln END Bài 25: Cho số tự nhiên n (khai bảo longint), cho biết: n có chữ số, tổng chữ số n số đảo ngược n VD: số 123 có chữ số, tổng chữ số 6, số đảo ngược 321 Lời giải: uses ... nguyen to'); end; readln END Bài 12: Số hoàn hảo số mà có tổng ước không kể nó VD: số 28 có ước là: 14 số có ước là: Lập trình nhập vào số nguyên dương n kiểm tra xem số có số hoàn hảo không? Lời giải:...

15
817
16

Một số bài tập Pascal có lời giải ! docx

Ngày tải lên : 28/07/2014, 19:20

... PHANTICH(n); Readln; End BÀI TẬP TỰ GIẢI Bài tập 4.7: Viết hàm tìm Max , số thực Bài tập 4.8: Viết hàm PERFECT(n:Word):Boolean; để kiểm tra số nguyên n có phải số hoàn thiện hay không? Bài tập 4.9: Viết ... kiểu Boolean để kiểm tra số nhập vào có phải số nguyên tố hay không Bài tập 3.23: Viết chương trình nhập vào số nguyên dương Hãy thông báo lên hình số có chữ số tổng chữ số số Gợi ý: Dùng vòng lặp ... liệu ôn tập thi liên thông môn sở ngành - Pascal Bài tập 3.11: Viết chương trình nhập vào số tự nhiên N thông báo lên hình số có phải số nguyên tố hay không Ý tưởng: N số nguyên tố N ước số từ...

141
4.4K
97

Bài tập pascal cơ bản doc

Ngày tải lên : 07/08/2014, 11:20

... ba số thực Thông báo hình khối lợng M[J] cầu J Bài 29 Có N Bài với số hiệu 1, 2, , N, N

18
773
3

TỔNG HỢP, PHÂN LOẠI BÀI TẬP PASCAL CÓ LỜI GIẢI

Ngày tải lên : 05/02/2015, 09:22

... Readln; End Bài 19 Số siêu nguyên tố Số siêu nguyên tố số nguyên tố mà bó số tuỳ ý chữ số bên phải phần lại tạo thành số nguyên tố Ví dụ: 7333 số siêu nguyên tố có chữ số 733; 73; số nguyên tố ... End Bài 16: Cho số tự nhiên n dãy số thực a , a2 , .an, xác định số lượng phần tử kề mà: a Cả hai số dương b Cả hai số dấu đồng thời số đứng trước có giá trị tuyệt đối lớn số đứng sau c Cả hai số ... End Bài 12 Viết chương trình nhập vào dãy n số nguyên in hình thông tin sau (Nếu số thoả mãn đưa thông báo không có): - Số hạng âm lớn dãy số nó; - Số hạng dương nhỏ dãy số nó; - Số lượng số hạng...

156
7.2K
18

những bài tập pascal cơ bản và nâng cao

Ngày tải lên : 06/02/2015, 08:00

... gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s:8:2); Readln; End Bài 18: Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang Var i,j,k:integer; ... n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm số đảo số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; ... then Writeln(i,j,k,' = ',i,'^3 + ',j,'^3 + ',k,'^3'); Readln; End Bài 19: Nhập vào số nguyên không âm, kiểm tra xem có phải số nguyên tố hay không? Program SO_NGUYEN_TO; Uses crt; Var i,n: integer;...

78
540
5

bài tập pascal có lời giải

Ngày tải lên : 09/03/2015, 09:31

... gt:=gt*i; s:=s+lt/gt ; End; Writeln('Tong S = ',s:8:2); Readln; End Bài 18: Tìm tất chữ số có ba chữ số abc cho tổng lập phương chữ số số ( abc = a3 + b3 + c3) Program TIM_SO; Uses crt; Trang Var i,j,k:integer; ... n = '); Readln(n); Write('F(',n,')= ',f(n)); Readln; End Bài 32: Viết chương trình tìm số đảo số nguyên dương Ví dụ: - Số = 12345 - Số đảo = 54321 Program TIM_SO_DAO; Uses crt; Var n:longint; ... Readln; End Bài 51: Viết chương trình nhập vào dãy số nguyên có n phần tử Trang 28 a Sắp xếp dãy theo thứ tự tăng dần in kết hình b Nhập vào số x bất kì, đếm số lần xuất dãy c In hình số phần tử...

41
589
0