Cấp Số Nhân, Làm Việc Với File - Em Yêu Tin Học

Trang chủ » Bài Tập Cấp Số Cộng Pascal » Cấp Số Nhân, Làm Việc Với File - Em Yêu Tin Học

Có thể bạn quan tâm

Close Menu Facebook Pinterest YouTube LinkedIn Flickr Tiêu điểm :
  • Lớp 1 – Ôn tập tin học HK1 2025-2026
  • Lớp 2 – Ôn tập tin học HK1 2025-2026
  • Lớp 3 – Ôn tập tin học HK1 2025-2026
  • Lớp 4 – Ôn tập tin học HK1 2025-2026
  • Lớp 5 – Ôn tập tin học HK1 2025-2026
  • Quan Điểm và Thiên Kiến IC3 Digital Literacy
  • Test Internet và các khái niệm
  • Test – Nhận dạng thiết bị phần cứng máy tính
Facebook YouTube Pinterest Flickr LinkedIn X (Twitter) Instagram WhatsApp EM YÊU TIN HỌC Em yêu tin học EM YÊU TIN HỌC Bài tập Pascal Cấp số nhân, làm việc với fileEm Yêu Tin HọcBy Em Yêu Tin Học8 Tháng 5, 2017Updated:8 Tháng 5, 2017Không có bình luận2 Mins Read Facebook Twitter Pinterest LinkedIn Tumblr Email Thêm dòng, cột vào mảng hai chiều. Thêm dòng, cột vào mảng hai chiều.

Đề bài: Cho 3 số a, b, c thực. Kiểm tra xem mỗi 3 số đó giữ nguyên thứ tự của chúng có tạo thành cấp số nhân hay không. Nếu 3 số đó tạo thành cấp số nhân tính trung bình cộng của chúng, nếu không thì gấp đôi mỗi số. Biết a, b, c được lấy từ file csn.inp. Kết quả ghi vào file csn.out.

Cấp số nhân

Program CapSoNhan; Uses Crt; Var f,g:Text; a,b,c:Real; s:String; {ham kiem tra xem so a,b,c co phai la cap so nhan hay khong} Function kiemtra(o,p,q:real):Boolean; Begin If p/o=q/p then kiemtra:=True else kiemtra:=False; End; Procedure XuLyChuoi(st:String); Var sa,sb,sc:String; code:integer; Begin sa:=copy(st,0,pos(' ',st)-1);{Lay ra chu so thu nhat} Delete(st,1,pos(' ',st)); {Xoa so thu nhat khoi chuoi} sb:=copy(st,1,pos(' ',st)-1); Delete (st,1,pos(' ',st)); sc:=copy(st,1,length(st)); Val(sa,a,code); {Doi chuoi thanh so} Val(sb,b,code); Val(sc,c,code); End; {Chuong trinh chinh} Begin Clrscr; assign(f,'\Pas\csn.inp'); Reset(f); {Mo file ra doc du lieu trong do} Readln(f,s); {Doc chuoi so gan vao bien S} Close(f); {Dong file lai} Writeln(s); Writeln(a,b,c); XuLyChuoi(s); {Xu ly chuoi so trong file tach ra thanh so} assign(g,'\Pas\csn.out'); Rewrite(g); If Kiemtra(a,b,c) then {Kiem tra so va ghi vao file} Writeln(g,'ba so ',a:5:1,', ',b:5:1,', ',c:5:1,' tao thanh cap so nhan, trung binh cong:',(a+b+c)/3:5:2) Else Writeln(g,'ba so ',a:5:1,', ',b:5:1,', ',c:5:1,' khong tao thanh cap so nhan, gia tri moi la:',a*2,' ',b*2,' ',c*2); Close(g); End. 1.7 3 votes Đánh giá bài viết Share. Facebook Twitter Pinterest LinkedIn Tumblr Email Previous ArticleTính diện tích hình cánh quạt Next Article Một số hàm và lệnh pascal cơ bản Em Yêu Tin Học
  • Website
  • Facebook

٩(●̮̮̃•̃)۶ 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! ٩(×̯×)۶

Related Posts

TurboWarp: Một Phiên Bản Cải Tiến của Scratch

Tin học trẻ Tuy Phong – Bình Thuận 2024

Chuyển SB3 thành ứng dụng Windows .exe (sb3 to exe)

Subscribe Thông báo khi có bình luận mới khi trả lời bình luận của tôi guest Label [+] Name* Email* WebSite URL guest Label [+] Name* Email* WebSite URL 0 Góp ý oldest newest most voted Inline Feedbacks View all comments
  • Bài Viết Mới
  • Phổ Biến
5 Tháng 12, 2025

Lớp 1 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 2 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 3 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 4 – Ôn tập tin học HK1 2025-2026

5 Tháng 12, 2025

Lớp 5 – Ôn tập tin học HK1 2025-2026

28 Tháng mười một, 2025

Quan Điểm và Thiên Kiến IC3 Digital Literacy

24 Tháng 4, 2016

Một số lệnh căn bản trong MSWLogo.

24 Tháng 4, 2016

Lệnh rẽ nhánh trong MSWLogo.

31 Tháng 7, 2016

MSWLogo Vẽ cờ đỏ sao vàng – Quốc kỳ Việt Nam

5 Tháng 1, 2018

Hướng dẫn giải một số bài tập Scratch.

8 Tháng 6, 2016

MSWLogo vẽ ngôi sao.

2 Tháng 9, 2016

Giải đề thi tài năng trẻ tin học toàn quốc 2016

Bình luận gần đây
  • Nguyễn Khánh Duy trong Ôn Tập IC3 – GS6 Level 1
  • lê nhã khanh trong IC3 Spark Level 2 Test 1
  • Phan Thanh Nhat Minh dz trong Ôn Tập IC3 – GS6 Level 1
  • Gia Hân trong Tổng hợp IC3 Spark level 1
  • ffflllyyy trong Tổng hợp IC3 Spark level 1
Các bài trắc nghiệm

💥IC3 Spark -Level 1 Trắc nghiệm lập trình Scratch Trắc nghiệm lập trình MSWLogo Trắc nghiệm tin học văn phòng Trắc nghiệm ôn tập IC3 P1 Trắc nghiệm ôn tập IC3 P2 Living Online Spark Test LTTH cùng IC3 Spark Test IC3 GS5 -Computing Fundamentals IC3 GS6 -Level 1 IC3 GS6 -Level 2 (7,8) Module 4 - CNTT Tiểu học

Videos hướng dẫn
subscribeTheo dõi kênh Youtube« Prev1 / 16Next »loadingplay2 1 practice tasksplayLập trình với KudoplayPowerPoint - Chuyển động theo đường vẽ« Prev1 / 16Next »loading Submit

Type above and press Enter to search. Press Esc to cancel.

0Hãy để lại bình luận của bạn nhé!x()x| Trả lờiInsert

Từ khóa » Bài Tập Cấp Số Cộng Pascal