Kiểm Tra Cấp Số Cộng Trong Pascal

• Trang chủ
• Pascal cơ bản
  • Câu lệnh vòng lặp
  • Câu lệnh điều kiện
  • Mảng 1 chiều
  • Mảng 2 chiều
  • Xâu
• Kiến thức mở rộng
• Pascal nâng cao
  • Đệ quy
  • Quay lui
  • Quy hoạch động
• Liên hệ

• Bài tập Pascal
• Học Pascal online
• Giải bài tập Pascal
• Công cụ Pascal
• Đề thi học sinh giỏi

- Ebook Giải thuật và lập trình Lê Minh Hoàng - Các thuật toán sắp xếp trong Pascal *> Download: Turbo Pascal 7.0, Turbo Pascal for win 7, Free Pascal *> Giáo trình học Pascal *> Lý thuyết: Cấu trúc chương trình - Câu lệnh điều kiện - Câu lệnh vòng lặp - Mảng - Xâu *> Bài tập: * Yều cầu/Giải bài tập Pascal - Tìm số nguyên tố - Tìm UCLN, BCNN - Kiểm tra cấp số cộng - Đếm số lần xuất hiện mỗi chữ cái trong xâu You are here: » Home » Pascal cơ bản » Kiểm tra cấp số cộng trong pascal Kiểm tra cấp số cộng trong pascal 11:06 Dinh Nhập dãy số gồm N số nguyên (N<100). Xác định xem đó có phải dãy số có tính chất là cấp số cộng hay không. uses crt; Var A:array[1..100] of integer; i,n,d: integer; CS: boolean; BEGIN clrscr; repeat Write(' Nhap vao so nguyen duong N <=100 : '); readln(N); Until (n>1) and (n<=100); For i:=1 to n do begin repeat write('A[',i,'] = '); readln(A); until abs(A)<=1000; end; d:=abs(A[2]-A[1]); CS:=True; For i:=2 to n do IF (abs(A-A[i-1])<>d) then begin CS:=False; break; end; IF CS then writeln('Day la cap so cong ') else writeln(' Day ko phai la cap so cong '); readln; END. Related Posts : Bài tập Pascal, Mảng 1 chiều, Pascal cơ bản Nhãn: Bài tập Pascal, Mảng 1 chiều, Pascal cơ bản Sơn nói...

Có mấy lỗi trong mã nguồn kìa bạn ơi. Dùng abs là ko đúng rồi

lúc 20:56 16 tháng 12, 2012 Nặc danh nói...

nhờ các bạn giải giùm mjh bài nj với njviết chương trình giải bài toán :trăm trâu, trăm bó cỏtrâu đứng ăn nămtrâu nằm ăn balụ khụ trâu già 3 con 1 bóhỏi mỗi loại có mấy con?

lúc 16:46 31 tháng 3, 2013 Nặc danh nói...

ban dung 3 vong lap for de kiem tra he 2 pt 3 an la duoc

lúc 21:58 19 tháng 7, 2013 Nặc danh nói...

pt ne chay,chay thu chuong trinh di kiem tra di, minh chac la ra kha nhieu cap ket qua day:a+b+c=1005a+3b+c/3=100

lúc 22:01 19 tháng 7, 2013 Nặc danh nói...

chuong trinh tren sai roi bac oi, khong phai dung ads dau ,phai sap xep day da

lúc 22:02 19 tháng 7, 2013 Nặc danh nói...

Mik muon tinh tong cac so hang trong cap so cong cu jup mk nham cam on

lúc 15:27 12 tháng 12, 2014 Unknown nói...

ĐÚng k zạk mí bạn??

lúc 10:27 9 tháng 4, 2015 Unknown nói...

Bi loi ban oi lam lai di

lúc 20:30 12 tháng 11, 2015 Unknown nói... Nhận xét này đã bị tác giả xóa. Gnart nói...

:v sao ko xài vòng while kiểm tr 2*A[i]=A[i-1]+A[i+1]

lúc 00:43 3 tháng 9, 2016 Nặc danh nói...

ban viet chuong trinh luon ban

lúc 20:45 9 tháng 9, 2016 Nặc danh nói...

dai dong qua minh viet ngan hon nhiu

lúc 15:18 4 tháng 2, 2017 Quang Thìn Trần nói...

program CSoC;uses crt;var N,i,CS1,CS2:integer; a:array [1..100] of integer;begin clrscr; write('N=');readln(n); for i:=1 to N do begin write('nhap so thu ',i,'=');readln(a[i]); end; for i:=2 to N-1 do begin CS1:=a[i+1]-a[i];CS2:=a[i]-a[i-1]; end; If CS1 <> CS2 then write('Do ko la cap so cong') else write('do la csc');readlnend.---------ngắn gọn, chính xác

lúc 05:52 13 tháng 2, 2017 Unknown nói...

Anh Thìn Trần Quang ơi. Ở phần CS1:= .... và CS2:= .... em thấy cuối cùng nó chỉ so sánh hiệu của phần tử cuối cùng và phần tử liền trước (em đặt hiệu này là A-B) với hiệu của phần tử liền trước phần tử cuối cùng và phần tử liến trước phần tử đó (em đặt hiệu này là B-C). Chỉ cần A-B=B-C nó sẽ ra kết quả là cấp số cộng. Thí dụ em nhập vào dãy 1 3 6 10 14 (N=5) thì nó ra kết quả là cấp số cộng vì A-B (14-10)= B-C (10-6) = 4 trong khi dãy trên ko phải cấp số cộng. Còn nữa nếu em nhập N=1 hay N=2 thì nó vẫn cho ra kết quả là cấp số cộng. Xin anh xem xét. Nếu em có gì sai xin anh chỉ bảo cho. ^_^

lúc 16:50 22 tháng 3, 2017 Unknown nói...

xét tập n số nguyên đôi khác nhau a1,a2,...,an mỗi số có giá trị từ 1 đên 10^6 và một số nguyên x.Viết chương trình đếm số cặp(ai,aj), với 1<=i<j<=n và ai + aj =x

lúc 08:40 2 tháng 4, 2017 Nặc danh nói...

nhao65 vào một xâu cả chữ và số nhưng chỉ xuất ra màn hih là chữ

lúc 08:16 15 tháng 3, 2018 Unknown nói...

uses crt;var a:array[1..50] of integer; j,n,i,t,d:integer; cs:boolean;beginclrscr;write('Nhap so luong ptu cua day,N= ');readln(n);for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;{sap xep mang tu be den lon}for j:=n downto 2 do for i:=1 to j-1 do if a[i]>a[i+1] then begin t:=a[i]; a[i]:=a[a+1]; a[i+1]:=t; end;{ktra day cap so cong}d:=a[2]-a[1];cs:=true;for i:=2 to n do if (a[i] - a[i-1] <> d) then begin cs:=false; break; end;if cs then writeln('Day la cap so cong') else writeln('Day ko la cap so cong');readln;end.---------------------------mình chỉ bổ sung thôi. Ý tưởng giống chủ thớt

lúc 19:29 9 tháng 12, 2018 Unknown nói...

Gíup tui làm dạng đề này với kiểm tra dãy số có phải là cấp số nhân hay không

lúc 20:04 24 tháng 10, 2019 Nặc danh nói...

tùy theo giới hạn biến mà làm như mình thì mình dùng ctc qsort rồi ms thực hiện như chủ tus ;)

lúc 09:56 4 tháng 2, 2020 Unknown nói...

khùng

lúc 13:45 8 tháng 3, 2020 Unknown nói...

cach lam cap so cong cua 3 so lam sao vay

lúc 08:51 21 tháng 2, 2022

Đăng nhận xét

Previous Article Next Article Trang chủ Đăng ký: Đăng Nhận xét (Atom) Widget By Devils Workshop

Đọc nhiều nhất

• Bài 5: Xâu ký tự (String) trong Pascal Xâu là gì? Để xử lý các chuỗi văn bản, Pascal đưa ra một kiểu dữ liệu mới gọi là xâu ký tự và được định nghĩa bằng từ khóa STRING. Xâu ký tự...
• Bài tập Pascal - Giải bài tập Pascal (cơ bản) Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lư...
• Tìm ước chung lớn nhất và bội chung nhỏ nhất pascal Ý tưởng: Lấy số lớn hơn trong 2 số trừ đi nhau. Lặp lại thao tác đến khi nào 2 số bằng nhau -> UCLN. Lấy tích của 2 số chia cho UCLN -...
• Bài 3: Câu lệnh vòng lặp trong Pascal (for, while, repeat) - Đánh răng mỗi ngày hai lần, học Tin học mỗi tuần 2 tiết, mỗi ngày tắm một lần... - Học cho đến khi thuộc bài, rửa tách trà cho đến khi sạ...
• Kiểm tra số nguyên tổ trong pascal Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. Đây là một bài toán rất căn bản trong Pascal. Ý tưởng: Số nguyên tố là s...
• Tệp - Kiểu dữ liệu tệp trong Pascal Chuyên đề :   KIỂU DỮ LIỆU TỆP 1 Khái niệm về tệp: Tệp là một dãy các phần tử cùng kiểu được sắp xếp một cách tuần tự. Tệp dữ liệu đ...
• Ngày tháng năm sau ngày được nhập N ngày Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.

Đám mây

Bài tập Pascal (49) Pascal cơ bản (38) Mảng 1 chiều (17) Pascal mở rộng (17) Học Pascal (11) Câu lệnh lặp (9) Pascal nâng cao (8) Bài tập sgk (6) Vòng lặp for (6) Xâu (5) Câu lệnh điều kiện (4) Giáo trình tài liệu (4) Kiểu tệp (3) Mảng 2 chiều (3) Chương trình con (2) Pascal Tools (2) Vòng lặp while (2) Bài tập trắc nghiệm (1) Câu lệnh case (1) Pascal vui (1) vòng lặp repeat (1)

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger. Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.