Các bài toán pascal cơ bản thi cấp trường thcs

Hướng dẫn giải + code mẫu + test chấm thử đề thi các tỉnh thành Năm 2023 ĐỀ THI HỌC SINH GIỎI LỚP 9 MÔN TIN HỌC : Kom Tum , Bà Rịa Vũng Tà...

• Mời các bạn tham khảo Đề thi học sinh giỏi lớp 9 môn tin học thành phố Hà Nội 2022 - 2023 Test chấm thử đã được cập nhật trong gói Tự ...
• Mời các bạn tham khảo Đề thi học sinh giỏi lớp 9 môn tin học thành phố Hồ Chí Minh năm học 2022 - 2023
• Năm 2023 ĐỀ THI HỌC SINH GIỎI MÔN TIN HỌC CẤP TỈNH: Bà Rịa Vũng Tàu (lớp 10) , Bình Định (k11) , Đăk Nông (lớp 10) , Đăk Nông (lớp 12) , ...
• Mời các bạn tham khảo Đề thi học sinh giỏi lớp 9 môn Tin học tỉnh Khánh Hòa năm học 2023 - 2024 Xem thêm TUYỂN CHỌN ĐỀ THI HỌC SINH GIỎI TIN...
• Sau khi đăng kí, nhấn vào link dưới để vào ôn luyện ...
• Mời các bạn tham khảo Đề thi học sinh giỏi lớp 9 môn Tin học tỉnh Thanh Hóa năm học 2023 - 2024 Xem thêm TUYỂN CHỌN ĐỀ THI HỌC SINH GIỎI TIN...
• Mời các bạn tham khảo Đề thi học sinh giỏi cấp THPT môn Tin học tỉnh Quảng Ninh năm học 2023 - 2024 (bảng B) Xem thêm TUYỂN CHỌN ĐỀ THI HỌC ...
• Đề thi học sinh giỏi lớp 9 môn Tin học huyện Bảo Thắng tỉnh Lào Cai năm học 2023 - 2024 Đề thi chọn đội tuyển thi HSG lớp 9 huyện Quỳnh Lư...
• Tài liệu Ôn thi tin học trẻ bảng A (khối Tiểu học) Năm 2023 TIN HỌC TRẺ BẢNG A: Quốc Gia (khu vực Bắc, Nam) , Quốc Gia (thi thử) , Bà Rịa ...
• What is Scribd?
• Documents(selected)
• Explore Documents

  Categories

  • Academic Papers
  • Business Templates
  • Court Filings
  • All documents
  • Sports & Recreation
    • Bodybuilding & Weight Training
    • Boxing
    • Martial Arts
  • Religion & Spirituality
    • Christianity
    • Judaism
    • New Age & Spirituality
    • Buddhism
    • Islam
  • Art
    • Music
    • Performing Arts
  • Wellness
    • Body, Mind, & Spirit
    • Weight Loss
  • Self-Improvement
  • Technology & Engineering
  • Politics
    • Political Science

      All categories 67% found this document useful (6 votes) 13K views 15 pages

      Copyright

      © Attribution Non-Commercial (BY-NC)

      Available Formats

      DOC, PDF, TXT or read online from Scribd

      Share this document

      Did you find this document useful?

      67% found this document useful (6 votes) 13K views15 pages

      Bài tập pascal cơ bản dành cho hs

      Jump to Page You are on page 1of 15 Bài tập pascal cơ bản dành cho hs-svthiết kế bởi: Vũ Đức Quang Bài 1:Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các sỗ chẵn từ 0  Nmỗi số chiếm 4 vị trí và 15 số trên 1 dòng.Lời giải:uses crt; {khai bao' thu vien crt}var n,i,dem:integer;BEGINclrscr;{ cau lenh xoa man hinh};write('Nhap n: ');readln(n);dem:=0;for i:=1 to n dobeginif i mod 2=0 thenbeginwrite(i:4);dem:=dem+1;end;if dem=15 thenbegindem:=0;writeln;{in duoc 15 so thi xuong dong};end;end;readlnEND.Bài 2: Nhập vào 2 số nguyên dương a và b.+ Tính và in ra màn hình tổng, hiệu, tích, thương và UCLN của 2 số đó+ Tính tổng các ước số dương của |a+b|Lời giải:uses crt;var a,b,tg,i,tong:integer;function tinh(x,y:integer):integer;begintg:= x mod y;if tg=0 then tinh:=y else tinh:=tinh(y,tg);end;BEGINclrscr;

      write('Nhap a: ');readln(a);write('Nhap b: ');readln(b);tong:=1;for i:=2 to abs(a+b) doif (abs(a+b) mod i =0) then tong:=tong+i;writeln('Tong 2 so la: ',a+b);writeln('Hieu 2 so la: ',a-b);writeln('Tich 2 so la: ',a*b);writeln('Thuong 2 so la: ',a/b:0:4);writeln('UCLN 2 so la: ',tinh(a,b));writeln('Tong cac uoc cua ',a+b,' la: ',tong);readlnEND.Bài 3:Lập chương trình nhập vào độ dài các cạnh của tam giác rồi thực hiện :+ Tính chu vi, diện tích, 3 đường cao của tam giác.+ Kiểm tra xem tam giác đó có là tam giác cân hoặc vuông không?Lời giải:uses crt;var a,b,c,cv,dt,p:real;BEGINclrscr;write('Nhap do dai canh a: ');readln(a);write('Nhap do dai canh b: ');readln(b);write('Nhap do dai canh c: ');readln(c);cv:=a+b+c;p:=(a+b+c)/2;dt:=sqrt(p*(p-a)*(p-b)*(p-c));writeln('Chu vi tam giac la: ',cv:0:4);writeln('Dien tich tam giac la: ',dt:0:4);writeln('Duong cao canh thu 1 la: ',dt*2/a:0:4);writeln('Duong cao canh thu 2 la: ',dt*2/b:0:4);writeln('Duong cao canh thu 3 la: ',dt*2/c:0:4);if (a=b) or (a=c) or(b=c) then writeln('Tam giac can');if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a)thenwriteln('Tam giac vuong');readlnEND.Bài 4:Lập trình giải phương trình bậc 2:Lời giải:uses crt;
      var a,b,c,x1,x2,d:real;BEGINclrscr;write('Nhap a: ');readln(a);write('Nhap b: ');readln(b);write('Nhap c: ');readln(c);d:=b*b-4*a*c;if d>0 thenbeginx1:=(-b+sqrt(d))/(2*a);x2:=(-b-sqrt(d))/(2*a);writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2);endelse if d=0 thenbeginx1:=(-b)/(2*a);writeln('PT co nghiem kep la: ',x1:0:2);endelse writeln('PT vo nghiem');readlnEND.B à i 5: Nhập vào 1 số nguyên gồm 4 chữ số-Kiểm tra tình chắn lể-kiểm tra xem có phải là số nguyên tố không-kiểm tra xem có phải là số hoàn hảo khôngLời giải:uses crt;var n,i:integer;ok:boolean;BEGINclrscr;write('Nhap n: ');readln(n);if n mod 2=0 then writeln('So ',n,' la so chan')else writeln('So ',n,' la so le');if n<2 then write('So ',n,' khong la so nguyen to')elsebeginok:=true;for i:=2 to trunc(sqrt(n)) doif n mod i=0 then ok:=false;if ok then writeln('So ',n,' la so nguyen to')else writeln('So ',n,' khong la so nguyen to');

      Reward Your Curiosity

      Everything you want to read. Anytime. Anywhere. Any device. No Commitment. Cancel anytime.