bài tập lập trình pascal lớp 8

... trong quá trình thực hiện chương trình. - Cú pháp: VAR <Tên biến>[,<Tên biến 2>, ] : <Kiểu dữ liệu>; 44 Bài tập 8. 1: Tạo một file SINHVIEN.DAT để lưu thông tin của một lớp sinh ... n do begin 16 Bài tập 8. 11: Viết chương trình sao chép nội dung của một file cho trước vào file khác, tên của file nguồn và file đích được nhập từ bàn phím khi chạy chương trình. Program Sao_chep_File; const ... chương trình vào đĩa với tên BAI1.PAS. 5. Thoát khỏi Pascal. 6. Khởi động lại Turbo Pascal. 7. Mở file BAI1.PAS. 8. Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN 9. Dịch và chạy thử chương trình. 10....

Ngày tải lên: 26/09/2013, 23:38

... to’) Else Writeln(‘ N khong la so nguyen to’); Readln; END. Bài toán số 1.3: Tìm USCLN(a, b) va BSCNN(a, b) Ví dụ: USCLN( 18, 24) = 4 và BSCNN( 18, 24) = 72 Yêu cầu: Input: a, b là 2 số tự nhiên. Output: ... qua USCLN(a, b) Readln; End. Bài toán số 1.4: Nhập vào một số tự nhiên N. Hãy tính tổng các chữ số của nó. Ví dụ: N = 1 682 Tong cac chu so cua N la: 17 ( = 1 + 6 + 8 + 2 ) Yêu cầu: Input: N là ... (ngay 14) vào stt. Giải quyết bài toán với ngôn ngữ C - Khai báo các thư viện sử dụng - Định nghĩa hàm main( ) là hàm chính của chương trình có mục tiêu là giải quyết bài toán với 3 bước trên: +...

Ngày tải lên: 27/01/2014, 14:20

... max:=y-z else if max<(z-x)then 17 Bài tập lập trình pascal I. Cấu trúc tuần tự Bài 1: Lập chơng trình nhập vào 4 số. Tính tổng, tích, trung bình cộng các số đó. Bài 2: Tính chu vi của đa giác ... WHILE Bài 1: Viết phơng trình phân tích sốn thành thừa số nguyên tố. Bài 2: Lập phơng trình nhập vào một số tự nhiên n. Tính giá trị biểu thức n! = 1.2.3 n và 2 n Bài 3: Lập phơng trình ... Viết phơng trình nhập vào một xâu.Kiểm tra xem xâu đó có phải là xâu đối xứn hay không? Bài 5: Viết phơng trình nhập 2 xâu. HÃy ghép 2 xâu lại thành 1 xâu mới. Bài 6: Lập phơng trình vào...

Ngày tải lên: 09/07/2014, 04:20

... hơn cách làm bài Pascal khi thi tin học không chuyên tôi đã đa ra kinh nghiệm một số dạng bài tập lập trình Pascal có dữ liệu kiểu tệp vận dụng kiến thức mảng .Có nhiều dạng bài tập nhng tôi ... liu kiu tp vn tn Tng Trn Hng 1 SKKN - Một số dạng bài tập lập trình Pascal có dữ liệu kiểu tệp vận dụng kiến thức mảng tại trên đĩa.Các chương trình không phải kiểu tệp thì chỉ lưu tạm kết quả ... đích cùng trao đổi với các thầy cô trong dạy học lập trình Pascal thế nào cho hiệu quả đồng thời giúp cho học sinh có thể dể hiểu hơn khi làm bài lập trình thi hoc sinh giỏi tin học . Vì kiến thức...

Ngày tải lên: 25/12/2014, 09:23

Ngày tải lên: 09/08/2012, 23:24

... " ;Pascal& quot;, 1) Do While i > 0 dem = dem + 1 i = i + 6 i = InStr(i, s, " ;Pascal& quot;, 1) Loop Text2.Text = " Trong cau nhap co " & Str(dem) & " tu &apos ;Pascal& apos;" End ... nhap A(" & Str(i) & ")", "Nhap mang A") Next i End Sub Bài 12 Đếm số từ Pascal (không phân biệt chữ thường, chữ in) trong câu Private Sub Command1_Click() Text1.Enabled ... kq & "'" End Sub Private Sub Form_Load() Text1.Text = "" End Sub Bài 18 Nhập 5 số nguyên dương. Tính các đại lượng như trên form Dim a(5) As Integer Dim dem As Integer Dim...

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

... pixel. Bài 5: Viết ứng dụng hiển thị ngày giờ hệ thống như hình vẽ sau: Bài 6: Viết ứng dụng hiển thị giờ hệ thống như hình vẽ sau: Bài 7: Viết ứng dụng hiển thị giờ hệ thống như hình vẽ sau: Bài 8: ... scan code,… Bài 2: Viết chương trình xuất một chuỗi lên giữa vùng cữa sổ client. Sau đó có thể dùng các phím di chuyển để dịch chuyển chuỗi trên vùng cửa sổ. Bài 3: Viết chương trình vẽ một ... BÀI TẬP CHƯƠNG 4 Bài 1: Viết chương trình chặn các thông điệp bàn phím và thông điệp chuột - Khi người dùng click...

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

... lại. Bài 2: - Viết ứng dụng minh họa cách sử dụng dialog có giao diện như trong hình vẽ - Sau khi người sử dụng chọn các loại nút sẽ hiển thị, icon sẽ hiển thị và nhấn nút Display chương trình...

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

... - Đầu ra f2 có trị 1 khi (ngược lại có trị 0) Câu 3 ( 3 điểm): Cho hàm - Lập bảng chân trị cho hàm f. - Rút gọn hàm f (kết quả rút gọn ở dạng tổng các tích) - Vẽ sơ đồ mạch ... hàm g ma chỉ sử dụng cổng NAND. e. So sánh hai hàm f và g. Câu 3: Cho hàm Boole f = ∑ (0, 1, 4, 8, 12, 13, 14), a. Xác định bảng chân trị. b. Rút gọn hàm Bool f (kết quả rút gọn gọi là hàm g) c. ... cho như bản sau : Điều kiện Output 1 Output 2 N=0 0 0 N<0 0 1 N>1 1 0 N=1 1 1 (Hướng dẫn : lập bảng chân trị, để ý N<0 khi bit đầu tiên là 1 và don’t care cho những bit còn lại) 3. Rút...

Ngày tải lên: 12/09/2012, 16:40

Ngày tải lên: 13/09/2012, 09:21

Ngày tải lên: 13/09/2012, 09:21

Ngày tải lên: 13/08/2013, 16:40

Ngày tải lên: 13/08/2013, 16:40

Ngày tải lên: 14/08/2013, 15:03

Ngày tải lên: 19/08/2013, 09:35

... Prim_Algorithm;{chuong trinh nay cai dat bang mang} uses dos,crt; const max=150;fname='D: \Pascal\ File\Prim.txt'; type filename=string[12]; var TrongSo: array[1 max,1 max] of integer;{ma ... for i:=1 to n do Begin For j:=1 to n do var i: integer; f: text; begin assign(f,'D: \Pascal\ Prim.out'); rewrite(f); Writeln(f,' '); Writeln(f,'Ma tran trong so,...

Ngày tải lên: 19/08/2013, 09:35

... a[i]<x do begin inc(i);inc(ss); gotoxy(1, 18) ;writeln('So lan so sanh : ',ss);end; while x<a[j] do begin dec(j);inc(ss); gotoxy(1, 18) ;writeln('So lan so sanh : ',ss);end; ... fillellipse(320,240,640, 480 ); setfillstyle(1,12); fillellipse(120,360,65,65); setfillstyle(1,16); fillellipse(105,335,57,57); setfillstyle(1,11); fillellipse(105, 389 ,54,54); setfillstyle(1,14); ... gotoxy(1, 18) ;writeln('So lan so sanh : ',ss); End; { Chen truc tiep (Insertion Sort) } Procedure Insertionsort (var a:m1;n:byte); Var i,j,k,x : byte; thoat : boolean; Begin #80 :if chon<max...

Ngày tải lên: 19/08/2013, 09:35

... Thi','Ha','S007','03/07/1 988 ','Nu','CNTT') insert into SINHVIEN values('Tran The','Dung','S0 08& apos;,'21/10/1 985 ','Nam','CNTT') insert ... Anh','Tung','S003','20/12/1 983 ','Nam','QTKD') insert into SINHVIEN values('Bui Thi anh','Thu','S004','01/02/1 985 ','Nu','QTKD') insert ... Lan','Anh','S005','03/07/1 987 ','Nu','DTVT') insert into SINHVIEN values('Nguyen Thi','Lam','S006','25/11/1 984 ','Nu','DTVT') insert...

Ngày tải lên: 19/08/2013, 09:35

... inArray(a,0,n); } } Bài 28 : package bai 28; import java.util.Scanner; public class Main { public static int nhap(){ Scanner input= ... "); doiCoSo(n,b); } } Bài 03 : package bai03; import java.util.Scanner; 3 for(int j=n-1 ; j>i ;j ){ array[j]= 0; } break; } else i ; }while(i>=0); }while(tich!=1); } } Bài 10 : package bai10; import ... Scanner(System.in); System.out.println("Nhap vao 1 xau: "); String strInput= input.nextLine(); timXauMax(strInput); } } Bài 33 : 38 } public static int tongChuSo(int n){ int T=0; while(n>0){ T+= n%10; n/= 10; } return...

Ngày tải lên: 19/08/2013, 09:39