1 số bài tập pascal cơ bản

... X,S1,S2,T1,T2:REAL; N:WORD; BEGIN CLRSCR; WRITE('X = '); READLN(X); S1:=0; S2:=0; T1:=X; T2: =1; N: =1; WHILE (ABS(T1)>=0.0000 01) AND (ABS(T2)>=0.0000 01) DO BEGIN IF ODD(N) THEN BEGIN S1:=S1+T1; ... BEGIN FOR J: =1 TO M DO WRITE(B[I,J]:8 :1) ; WRITELN; END; READLN; END Bài 14 : Cho ba số tự nhiên M, P, N ba mảng hai chiều số thực A [1 M ,1 P], B [1 P ,1 N] C [1 M ,1 N] Hãy thực công việc sau: - Nhập ... LY'); FOR I: =1 TO M DO BEGIN FOR J: =1 TO N DO WRITE(A[I,J]:8 :1) ; WRITELN; END; READLN; END Bài 13 : Cho số tự nhiên N mảng hai chiều số thực A [1 N ,1 N] Hãy chuyển vị ma trận A PROGRAM BAI _13 ; USES

Ngày tải lên: 07/01/2020, 15:25

... số Bài 9: In bội Bài 10 : In tổng chữ số số Bài 11 : Kiểm tra số nguyên tố Bài 12 : Kiểm tra số hoàn hảo Bài 13 : Kiểm tra số phương Bài 14 : Đếm nguyên âm, số chuỗi Bài 15 : Kiểm tra số có độ dài cạnh ... không Bài 16 : Đếm số theo điều kiện tính tổng Bài 17 : Tìm giá trị lớn số Bài 18 : Xem ngày thứ tuần Bài 19 : In phiếu báo điểm Bài 20: Nhập số thực tính phép tính theo yêu cầu Bài 1: In số chẵn ... Bài 3: Kiểm tra xem tam giác có cân, vng khơng Bài 4: Giải phương trình bậc Bài 5: Kiểm tra số chẵn lẻ, ngun tố, hồn hảo Bài 6: Tính ăn bậc n số Bài 7: Tỉnh tổng chữ số số Bài 8: Hoán vị số Bài

Ngày tải lên: 04/07/2020, 20:33

... 4: 11 1 11 2 11 3 11 4 12 1 12 2 12 3 12 4 … Chú ý: số chỉnh hợp lặp chập k n phần tử = nk. b) Hãy liệt kê tất chỉnh hợp không lặp chập n phần tử (1, 2, 3, …, n) Ví dụ với n = 4: 12 3 12 4 13 2 13 4 14 2 ... có n số ngun cách nhiều dấu cách Ví dụ: Tập tin MaTran.Inp Ma trận tam giác Ma trận tam giác 12 18 12 18 12 -3 21 54 39 21 54 39 -3 21 -2 61 48 32 48 32 -2 61 48 19 16 33 33 19 16 33 ... số hình 4 .10 Đọc từ bàn phím dãy n số thực (n < 10 ) Xếp số lớn lên đầu dãy, số bé nhất, đến số lại Đưa hai dãy số hình 4 .11 Nhập dãy n số nguyên (n < 30) số ngun x Tìm dãy có số bằng x

Ngày tải lên: 28/04/2021, 14:20

... check:=(a=b); If check then Write(' (1+ 1/2 016 ) mu 2 017 bang (1+ 1/2 017 ) mu 2 016 ') Else Write(' (1+ 1/2 016 ) mu 2 017 nho hon (1+ 1/2 017 ) mu 2 016 '); End; Readln; End 10 - Không dùng thuật toán xử lý mảng ... dùng biến đơn, lập trình in lên hình bảng ziczac chứa 10 0 số tự nhiên (Bạn có làm 10 phút không?) 012 3456789 10 11 12 13 14 15 16 17 18 19 -90 91 92 93 94 95 96 97 98 99 KHÔNG THỂ CÓ ... 250000, Vatly1 10 0000, Anh2 15 0000, MachIC 80000'; Var so1,so2,so3,so4:longint;k1,k2,k3,k4:integer; Begin Clrscr; Writeln('Xau cho truoc:',s); val('250000',so1,k1); val( '10 0000',so2,k2); val( '15 0000',so3,k3);

Ngày tải lên: 20/05/2021, 02:07

... Write(' (1+ 1/2 016 ) mu 2 017 lon hon (1+ 1/2 017 ) mu 2 016 ') Else Begin check:=(a=b); If check then Write(' (1+ 1/2 016 ) mu 2 017 bang (1+ 1/2 017 ) mu 2 016 ') Else Write(' (1+ 1/2 016 ) mu 2 017 nho hon (1+ 1/2 017 ) ... lên hình bảng ziczac chứa 10 0 số tự nhiên (Bạn có làm 10 phút không?) 012 3456789 10 11 12 13 14 15 16 17 18 19 -90 91 92 93 94 95 96 97 98 99 KHÔNG THỂ CÓ CODE NÀO NGẮN HƠN CODE DƯỚI ĐÂY! ... 250000, Vatly1 10 0000, Anh2 15 0000, MachIC 80000'; Var so1,so2,so3,so4:longint;k1,k2,k3,k4:integer; Begin Clrscr; Writeln('Xau cho truoc:',s); val('250000',so1,k1); val( '10 0000',so2,k2); val( '15 0000',so3,k3);

Ngày tải lên: 20/05/2021, 02:07

... hảo Bài 6: Tính ăn bậc n số Bài 7: Tỉnh tổng chữ số số Bài 8: Hoán vị số Bài 9: In bội Bài 10 : In tổng chữ số số Bài 11 : Kiểm tra số nguyên tố Bài 12 : Kiểm tra số hoàn hảo Bài 13 : Kiểm tra số ... phương Bài 14 : Đếm nguyên âm, số chuỗi Bài 15 : Kiểm tra số có độ dài cạnh tam giác không Bài 16 : Đếm số theo điều kiện tính tổng Bài 17 : Tìm giá trị lớn số Bài 18 : Xem ngày thứ tuần Bài 19 : In ... Bài tập Pascal có giải Bài 1: In số chẵn hình Bài 2: Tính, in tổng, hiệu, tích, thương số Bài 3: Kiểm tra xem tam giác có cân, vng khơng Bài 4: Giải phương trình bậc Bài 5: Kiểm tra số chẵn

Ngày tải lên: 24/10/2021, 16:32

... 18 4 96 12 8 ô i,j 8 0 1 1 58 10 9 19 4 64 32 16 1 1 0 12 13 4 13 1 Hình 1 Hình 2 (bên trái: MIN1, bên phải: MIN2) - 3 Lê Ngọc Thắng hop_thu_cua_bodie_37@yahoo.com Bài tập cơ bản Tập I 10 1 2 3 4 ... dụ: DÃy số 1 5 9 13 12 8 4 2 3 7 11 15 14 10 6 là dÃy hình sin bậc M=3, dÃy đó đợc phân chia thành 4 đoạn: Đoạn 1: 1 5 9 13 Đơn điệu tăng Đoạn 2: 13 12 8 4 2Đơn điệu giảm Đoạn 3: 2 3 7 11 15 Đơn ... tập cơ bản Tập I Ví dụ với file INP.TXT 4 1 1 4 4 31 27 26 1 27 26 22 5 8 22 13 4 12 20 14 3 file OUT.TXT sẽ là 3 3 3 4 Với file INP.TXT 4 1 1 3 4 1 29 26 1 29 26 19 5 8 19 14 7 12 20 14 5 file...

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

... thể biến đổi đề bài của bài toán đi như: tính số phibonaci thứ n hoặc nhập vào 1 số kiểm tra xem số đó có phải là số phibonaci hay không…Các bài đó làm tương tự. Bài 19 : Nhập số nguyên dương ... duong e<0. 01: '); readln(e); until (e>0) and (e<0. 01) ; s5: =1; i: =1; while 1/ (2*i +1) >e do begin if i mod 2=0 then s5:=s5 +1/ (2*i +1) else s5:=s5 -1/ (2*i +1) ; i:=i +1; end; writeln('ket ... qua la: ',s4:0:4); readln END. Bài 23: Nhập số thực dương e(e<0. 01) rồi tính tổng S5= 1- 1/ 3 +1/ 5 -1/ 7+…+( -1) n /(2*n +1) (dừng khi 1/ (2*n +1) <e) Lời giải: uses crt; var s5,e:real;i:integer; BEGIN ...

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