thư viện bài tập pascal

Ngày tải lên: 01/07/2014, 16:00

Ngày tải lên: 21/07/2015, 10:25

Ngày tải lên: 16/08/2012, 09:03

Ngày tải lên: 16/08/2012, 09:03

... Writeln('Nam '); Writeln('De '); Writeln('Cu '); Readln End *********0108********* Program Tam_giac _Pascal; Begin Writeln(' 1'); Writeln(' 1'); Writeln(' 1'); Writeln(' 3 1'); Writeln('1 1'); Readln...

Ngày tải lên: 17/08/2012, 09:04

... 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 ... nguyen to’) Else Writeln(N,’ khong phai la so nguyen to’); End; Readln; End BÀI TẬP TỰ GIẢI 23 Giáo trình tập Pascal Bài tập 3.12: Viết chương trình giải phương trình bậc hai: ax2 + bx + c = 0, ... Readln; End Bài tập 4.2: Viết hàm LOWCASE( c:char):char; để đổi chữ hoa c thành chữ thư ng Ý tưởng: 33 Giáo trình tập Pascal Trong bảng mã ASCII, số thứ tự chữ hoa nhỏ số thứ tự chữ thư ng 32 Vì...

Ngày tải lên: 17/08/2012, 10:48

... nhiên, màu ngẫu nhiên BÀI TẬP MÔN: NGÔN NGỮ LẬP TRÌNH (PASCAL) (Kể từ tập sinh viên cần giải tập theo tiến độ học lý thuyết – không đặt mốc thời gian Cố gắng giải xong tập trước thi kết thúc ... BÀI TẬP MÔN: NGÔN NGỮ LẬP TRÌNH (PASCAL) (Bài – tiết) Các thủ tục/hàm học: Textmode(), Textcolor(), TextBackGround(), ... xuất hình N hình chữ nhật (N nhập từ bàn phím) vị trí ngẫu nhiên XÂY DỰNG CÁC UNIT: Sau thực xong tập đưa tất Procedure Function vào unit tên My_Unit Biên dịch Unit thành My_Unit.TPU để gọi dùng...

Ngày tải lên: 13/11/2012, 12:03

Ngày tải lên: 01/03/2013, 17:01

Ngày tải lên: 31/05/2013, 00:21

Ngày tải lên: 05/06/2013, 01:26

Ngày tải lên: 15/06/2013, 01:26

... 28 Bài tập ngôn ngữ lập trình PasCal Readln; END Biên soạn: Hoàng Đức Hà 29 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Bài tập chơng Bài : Bạn viết hàm Card(A) đếm số phần tử tập ... : ', a[n] ) ; Readln ; 11 Bài tập ngôn ngữ lập trình PasCal END Biên soạn: Hoàng Đức Hà 12 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Bài tập chơng Bài : Dùng thủ tục chuyển số ... Readln(a[i, j]); 23 Bài tập ngôn ngữ lập trình PasCal a[j,i]:=a[i,j]; End; Readln ; END ; Biên soạn: Hoàng Đức Hà 24 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà Bài tập chơng Bài : Lập trình...

Ngày tải lên: 21/06/2013, 01:26

... 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

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

... Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ VCT giải hai toán cổ: 100 trâu 100 bó ... a[i]:=random(1000); for i:=1 to n-1 for j:=i+1 to n if a[i]

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

... bcbsaaba b3 BÀI 4: TỪ DÀI NHẤT In từ dài xâu nhập từ bàn phím số ký tự từ này? Nếu có nhiều từ có độ dài in hết ví dụ: Input Output Nguyen van truong truong Truong thich hoc pascal Truong pascal BÀI ... (n6) Bài tốn: Cho trước số hạng dãy 6174 Cho biết số số hạng cuối (là số hạng 6174) dãy Dữ liệu: Cho tập tin văn DL6174.INP, gồm dòng gồm số ngun dương số hạng dãy số 6174 Kết quả: Cho tập tin ... Input 43528796 BÀI 6: XOÁ KÝ TỰ TRÙNG Output 879 Viết chương trình nhập vào xâu xoá hết ký tự liên tiếp giống xâu chừa lại một? Input cccccaaannnnooo Output cano yeseeeyysss yeseys BÀI 7: SỐ ĐƠN...

Ngày tải lên: 02/07/2013, 01:25

... Bài tập 3: Viết chương trình nhập vào dãy số nguyên (a) n (b)m, m≤n Kiểm tra xem dãy {b} có phải dãy dãy {a} không? Bài tập 4: Viết chương trình nhập vào dãy ... A[n,n] Bài 10: Tìm phần tử cảu ma trận vuông MIN MAX phần tử nằm đường chéo Bài 11: Viết chương trình xếp phần tử ma trận vuông A[n,n] cho phần tử tăng dần theo đường zigzag hình vẽ Bài tập 11: ... sau nén trở thành ‘4A3BC7D2EF’ Bài 12: CHo mảng số thực vuông kích thư c 2n x 2n Hãy lập mảng cách đổi chổ cho khối ô vuông kích thư c n x n mảng A theo cách sau: Bài 13 : Để mã hóa văn gồm toàn...

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

... Một văn có tên BL.PAS chứa chương trình Pascal hoàn chỉnh Trong chương trình dòng chứa nhiều lệnh Em viết chương trình in file có tên BLMOI.PAS chương trình Pascal cho thỏa mãn điều kiện lệnh phải ... Writeln(ht[i],t[i]:4,xl[i]:3); Readln; End 11 Thực tất thao tác với dạng file văn phần Câu hỏi, ví dụ, tập theo chiều ngược lại, tức thực thao tác ghi (Bai 1) Var f:text; m,n:integer; Begin m:=10; n:=4;...

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