Kiểm tra tam giác vuông. Đề bài : Nhập vào 3 cạnh của một tam giác kiểm tra xem 3 cạnh đó có tạo thành tam giác vuông hay không?. Program tam_giac_vuong; Uses crt; Var a,b,c:real; Begin clrscr; write(‘nhap do dai canh thu nhat :’); readln(a); write(‘nhap do dai cannh thu hai :’); readln(b); write(‘nhap do dai canh thu ba :’); readln(c); if (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then writeln(‘Day la tam giac vuong’) else writeln(‘Day la tam giac thuong’); readln; End.
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! ٩(×̯×)۶
Số lớn nhất, nhỏ nhất Nhập từ bàn phím 4 số sau đó cho biết số lớn nhất và nhỏ nhất. Program Max_Min; Uses crt; Var a,b,c,d:integer; max,min:integer; Begin clrscr; write(‘nhap so thu nhat :’); readln(a); max:=a; min:=a; write(‘nhap so thu hai :’); readln(b); if maxb then min:=b; write(‘nhap so thu ba :’); readln(c); if maxc then min:=c; write(‘nhap so thu tu :’); readln(d); if maxd then min:=d; writeln(‘So lon nhat la :’,max); writeln(‘So nho nhat la :’,min); readln; End. Mở rộng Khi đã biết dùng vòng lặp: Nhập 10 số từ bàn phím viết ra giá trị lớn nhất…
Tổng, hiệu, tích, thương 2 số. Đề bài: Nhập vào bàn phím 2 số in ra màn hình kết quả tổng, hiệu, tích, thương của 2 số đó. Program Tong_hieu_tich_thuong; Uses crt; Var a:integer; b:integer; Begin clrscr; write(‘nhap so thu 1 :’); readln(a); writeln(‘ban vua nhap so: ‘,a); write(‘nhap so thu hai :’); readln(b); writeln(‘ban vua nhap so thu 2: ‘,b); Writeln(a,’+’,b,’=’,a+b); Writeln(a,’-‘,b,’=’,a-b); Writeln(a,’*’,b,’=’,a*b); if b<>0 then {Nếu không kiểm tra thì b=0 chương trình sẽ bị lỗi} Writeln(a,’/’,b,’=’,a/b); readln; End.
Tính diện tích hình thang có đáy lớn và đáy nhỏ, chiều cao nhập từ bàn phím. Muốn tính diện tích hình thang Đáy lớn, đáy nhỏ ta mang cộng vào Cộng vào nhân với chiều cao Chia đôi lấy nửa thế nào cũng ra Bài giải Program Dien_tich_hinh_thang; Uses crt; Var a,b,c:integer; Begin clrscr; write(‘nhap do dai cua day lon :’); readln(a); write(‘nhap do dai cua day nho :’); readln(b); write(‘nhap do dai cua chieu cao :’); readln(c); writeln(‘tong hai canh day’); writeln(a,’+’,b,’=’,a+b); writeln(‘tong hai canh day nhan voi chieu cao’); writeln(a+b,’*’,c,’=’,(a+b)*c); writeln(‘dien tich hinh thang’); writeln((a+b)*c,’/’,2,’=’,((a+b)*c)/2:5:2); readln; End.…
Viết chương trình nhập mảng gồm n (n<=100) phần tử rồi chèn vào một số bất kỳ vào một vị trí nào đó trong mảng, số cần chèn và vị trí chèn nhập từ bàn phím. Program Chen; Uses crt; Var i,spt, so,vitri: Integer; A: Array[1..100] Of Integer; Begin Clrscr; Writeln(‘ + CHEN MOT SO VAO MANG +’); Writeln(‘——————————-‘); Write(‘-Co bao nhieu phan tu-: ‘); Readln(spt); For i:=1 To spt Do Begin Write(‘-Phan tu A[‘,i,’]= ‘); Readln(a[i]); End; Writeln; Writeln(‘–MANG TRUOC KHI CHEN–‘); For i:=1 To spt Do Write(a[i]: 6); Writeln; Write(‘-Can che so: ‘); Readln(so); Write(‘-Vao vi tri: ‘);…
Viết chương trình nhập vào mảng gồm n phần tử (n<=100) tìm và hiển thị vị trí phần tử có giá trị lớn nhât, sau đó sắp xếp các phần tử theo thứ tự tăng dần và hiển thị các phần tử sắp xếp đó ra màn hình. Program Tim_vi_tri; Uses crt; var a: array[1..100] of integer; var i,n,j, tg,max, vt: integer; begin clrscr; write(‘ nhap so phan tu cua mang ‘); readln(n); writeln(‘ moi nhap cac phan tu cua mang ‘); for i:=1 to n do begin write(‘A’, i,’]= ‘); readln(a[i]); end; Max:=a[1]; vt:=1; For i:=1 to n do…
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ả…
ƯỚ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…