Chương trình nhập mảng một chiều gồm n phần tử n<=100 kiểu nguyên rồi thực hiện a. Đếm số lượng phần tử dương cho kết quả ra màn hình b. Tính tổng các phần tử dương trong mảng. c. Tính trung bình các phần tử trong mảng. d. Tính trung bình các phần tử dương trong mảng e. Tìm vị trí đầu tiên của phần tử =k với k nhập từ bàn phím. f. Tìm vị trí phần tử =k với k nhập từ bàn phím, nếu có nhiều phần tử =k thì hiển thị ra màn hình tất cả…
Tác giả: Đình Trọng
Đình Trọng
٩(●̮̮̃•̃)۶ Không có lẽ yêu trên đời quá khó ٩(͡๏̯͡๏)۶ Mà thôi yêu cũng chẳng dễ chút nào! ٩(×̯×)۶
ƯỚC và BỘI 1. Định nghĩa : Số tự nhiên a chia hết cho số tự nhiên b thì ta nói a là bội của b, còn b là ước của a. 2. Kí hiệu : B(a) : tập hợp các bội của a. Ư(a) : tập hợp các ước của a. Bội của 4 là: 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44,…(thêm 4 để được bội số tiếp theo). Bội của 6 là: 0, 6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 66,… (thêm 6 để được bội số tiếp theo). Bội…
Cho số tự nhiên n, hãy lập trình để tính các tổng sau:a. 1 + 1/22 + 1/32 + … + 1/n2 b. 1 + 1/2! + 1/3! + … + 1/n! ? 1 2 3 4 5 6 7 8 9 10 11 12 13 Program Caua; Uses crt; Var n, i: Word; S: Real; BEGIN Clrscr; Write (‘ Nhap n: ‘); Readln (n); S:=0; For i:=1 To n Do S:=S + 1 / sqr(i); Writeln (‘Tong la S = ‘, S: 6: 2); Readln End. Nhập n tính tổng 1/1+1/(1*2)+1/(1*2*3)+1/(1*2*3*4)+…+1/(1*2*3*..*n) ? 1 2 3 4 5 6 7…
Viết chương trình nhập hai số thực. Sau đó hỏi phép tính cần thực hiện và in kết quả của phép tính đó. Nếu là “+”, in kết quả của tổng lên màn hình. Nếu là “-”, in kết quả của hiệu lên màn hình. Nếu là “/”, in kết quả của thương lên màn hình. Nếu là “*”, in kết quả của tích lên màn hình. Program May_tinh; Uses Crt; Var a, b, T: Real; Pt: Char; BEGIN Clrscr; Write (‘ a = ‘); Readln( a ); Write (‘ b = ‘); Readln( b ); Write (‘ Phep tinh…
Viết chương trình: Nhập số báo danh Nhập điểm văn, toán, ngoại ngữ. In ra màn hình dưới dạng: • Phiếu điểm: • Số báo danh: • Điểm văn: • Điểm toán: • Điểm ngoại ngữ: • Tổng số điểm: Bạn đã trúng tuyển ( hoặc Bạn đã không trúng tuyển ) với điều kiện Tổng số điểm >= 15 hay ngược lại. Program INPHIEU; Uses Crt; Var SBD: Integer; Van, Toan, Ngoaingu, Tongdiem: Real; BEGIN Clrscr; Write (‘ So bao danh: ‘); Readln( SBD ); Write (‘ Diem toan: ‘); Readln( Toan ); Write (‘ Diem ngoai ngu: ‘);…
Đọc ngày tháng năm, sau đó viết ra màn hình đó là ngày thứ mấy trong tuần. Program Ngaythang; Uses crt; Var Thu, Ngay, Thang: Byte; Nam: Integer; BEGIN Clrscr; Write (‘ Doc Ngay: ‘); Readln ( Ngay ); Write (‘ Doc Thang: ‘); Readln ( Thang ); Write (‘ Doc Nam: ‘); Readln ( Nam ); Nam:=1900 + ( Nam mod 1900 ); If Thang < 3 Then Begin Thang:=Thang + 12; Nam:=Nam – 1; End; Thu:=Abs ( Ngay + Thang * 2 + ( Thang + 1 ) * 3 div 5 + Nam + Nam div 4…
Tính x lũy thừa y, tính n! Program X_LUYTHUA_Y; {Tính x lũy thừa y} Uses CRT; Var lt, x,y,z: real; Begin Clrscr; Writeln(‘TINH X LUY THUA Y: ’); Writeln(‘———————————-‘); Write(‘Nhap x = ‘); readln(x); Write(‘nhap y = ‘); readln(y); If x>=0 then Begin z:=exp(y*ln(x)); Writeln(‘x ^ y = ‘,z: 4: 2); End Else Writeln(‘Khong tinh duoc do x la so am’); Readln; End. Tính giai thừa n! Program TINH_N_GIAI_THUA; Uses CRT; Var i,n,gt: integer; Begin Clrscr; Writeln(‘ TINH N GIAI THUA: ‘); Writeln(‘———————————-‘); Write(‘Nhap n =’); readln(n); gt:=1; For i:=1 to n do gt:=gt*i; Writeln(n, ‘!= ‘,gt); Readln; End.
Nhập vào tâm và bán kính của một đường tròn. Sau đó nhập vào một điểm A(x, y) bất kì và kiểm tra xem nó có thuộc đường tròn hay không? Để biết được điểm A nằm trong, trên hay ngoài 1 đường tròn thì chúng ta sẽ tính khoảng cách từ điểm A tới tâm O của đường tròn. Sau đó xét 3 trường hợp sau đây: Nếu bình phương khoảng cách từ điểm A tới tâm O nhỏ hơn bình phương bán kính R thì điểm A nằm trong đường tròn.Nếu bình phương khoảng cách từ điểm A…
Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây. Code Đổi giờ phút giây Program DOI_GIO_PHUT_GIAY; Uses crt; Var gio, phut,giay, x: longint; Begin Clrscr; Writeln(‘DOI SANG GIO PHUT GIAY’); Writeln(‘————————————–‘); Write(‘Nhap vao so giay: ‘); readln(x); gio:=x div 3600; x:=x mod 3600; phut:=x div 60; x:=x mod 60; Writeln(‘Ket qua = ‘, gio,’gio: ‘, phut, ‘phut: ‘, x, ‘giay’); Readln; End.
Giải hệ phương trình tuyến tính: ax + by = m cx + dy = n Program GIAI_HE_HAI_AN; Uses crt; Var a,b,c,d,m,n: real; dx,dy,dd: real; BEGIN Clrscr; Writeln(‘GIAI HE HAI AN: ‘); Writeln(‘———————————-‘); Write(‘Nhap a=’); readln(a); Write(‘Nhap b=’); readln(b); Write(‘Nhap c=’); readln(c); Write(‘Nhap d=’); readln(d); Write(‘Nhap m=’); readln(m); Write(‘Nhap n=’); readln(n); dd:=a*d-b*c; dx:=m*d-b*n; dy:=a*n-c*m; IF dd=0 then IF (dx=0) And (dy=0) then Writeln(‘He vo so nghiem hoac vo nghiem’) Else writeln(‘He vo nghiem’) Else Begin Write(‘He co nghiem: ‘); Writeln(‘x=’,dx/dd: 4: 2,’ va y=’,dy/dd: 4: 2); End; Readln End. Một số hàm và lệnh pascal cơ bản. Pascal tính diện…
1. Viết chương trình giải phương trình bậc 2 (ax2+ bx + c =0) Chú ý: Thuật toán trên không xét các trường hợp a, b, c bằng 0 như code ở dưới, code thì đầy đủ hơn. 2. Code pascal giải PT bậc II Program GIAI_PHUONG_TRINH_BACII; Uses CRT; {Su dung thu vien CRT} Var a,b,c,D,x,x1,x2: real; Begin Clrscr; {xoa man hình, neu khong USES CRT thi lenh nay se bi bao loi} Writeln(‘GIAI PHUONG TRINH BAC II: ‘); Writeln(‘——————————————-‘); Write(‘Nhap he so a=’); readln(a); {Viet thong bao nhap a vaf cho nhap he so a vao tu ban phim…
Viết chương trình giải phương trình bậc nhất ax+b=0 Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; Begin Clrscr; Writeln(‘GIAI PHUONG TRINH BAC NHAT: AX + B=0’); Writeln(‘————————————————————‘); Write (‘Nhap a= ‘); readln(a); Write (‘Nhap b= ‘); readln(b); If(a=0) then If(b=0) then Writeln(‘ Phuong trinh co vo so nghiem’) Else writeln(‘ Phuong tring vo nghiem’) Else Writeln(‘Phuong trinh co nghiem x=’,-b/a: 4: 2); Readln End. Các bạn có để ý dòng Readln ở gần End. không có dấu ; không, thông thường dòng lệnh cuối cùng trước End. không cần phải ; cũng không bị báo lỗi.
