1. Bạn Hãy Viết Chương Trình Nhập Từ Bàn Phím 3 Số Thực Bất Kỳ Và ...

HOC24

Lớp học Học bài Hỏi bài Giải bài tập Đề thi ĐGNL Tin tức Cuộc thi vui Khen thưởng
  • Tìm kiếm câu trả lời Tìm kiếm câu trả lời cho câu hỏi của bạn
Đóng Đăng nhập Đăng ký

Lớp học

  • Lớp 12
  • Lớp 11
  • Lớp 10
  • Lớp 9
  • Lớp 8
  • Lớp 7
  • Lớp 6
  • Lớp 5
  • Lớp 4
  • Lớp 3
  • Lớp 2
  • Lớp 1

Môn học

  • Toán
  • Vật lý
  • Hóa học
  • Sinh học
  • Ngữ văn
  • Tiếng anh
  • Lịch sử
  • Địa lý
  • Tin học
  • Công nghệ
  • Giáo dục công dân
  • Tiếng anh thí điểm
  • Đạo đức
  • Tự nhiên và xã hội
  • Khoa học
  • Lịch sử và Địa lý
  • Tiếng việt
  • Khoa học tự nhiên
  • Hoạt động trải nghiệm
  • Hoạt động trải nghiệm, hướng nghiệp
  • Giáo dục kinh tế và pháp luật

Chủ đề / Chương

Bài học

HOC24

Khách Khách vãng lai Đăng nhập Đăng ký Khám phá Hỏi đáp Đề thi Tin tức Cuộc thi vui Khen thưởng
  • Lớp 8
  • Tin học lớp 8

Chủ đề

  • Chủ đề A: Máy tính và cộng đồng
  • Chủ đề C: Tổ chức lưu trữ, tìm kiếm và trao đổi thông tin
  • Chủ đề D: Đạo đức, pháp luật và văn hóa trong môi trường số
  • Chủ đề E: Ứng dụng tin học
  • E1: Xử lí và trực quan hóa dữ liệu bằng bảng tính điện tử
  • E2: Soạn thảo văn bản và phần mềm trình chiếu nâng cao
  • E3: Làm quen với phần mềm chỉnh sửa ảnh
  • Chủ đề F: Giải quyết vấn đề với sự trợ giúp của máy tính
  • Chủ đề G: Hướng nghiệp với tin học
  • CHỦ ĐỀ 1: MÁY TÍNH VÀ CỘNG ĐỒNG
  • CHỦ ĐỀ 2: TỔ CHỨC LƯU TRỮ, TÌM KIẾM VÀ TRAO ĐỔI THÔNG TIN
  • CHỦ ĐỀ 3: ĐẠO ĐỨC VÀ VĂN HÓA TRONG SỬ DỤNG CÔNG NGHỆ KĨ THUẬT SỐ
  • CHỦ ĐỀ 4: ỨNG DỤNG TIN HỌC
  • CHỦ ĐỀ 5: GIẢI QUYẾT VẤN ĐỀ VỚI SỰ TRỢ GIÚP CỦA MÁY TÍNH
  • CHỦ ĐỀ 6: HƯỚNG NGHIỆP VỚI TIN HỌC
  • CHỦ ĐỀ 1. MÁY TÍNH VÀ CỘNG ĐỒNG
  • CHỦ ĐỀ 2. TỔ CHỨC LƯU TRỮ, TÌM KIẾM VÀ TRAO ĐỔI THÔNG TIN
  • CHỦ ĐỀ 3. ĐẠO ĐỨC, PHÁP LUẬT VÀ VĂN HÓA TRONG MÔI TRƯỜNG SỐ
  • CHỦ ĐỀ 4. ỨNG DỤNG TIN HỌC
  • a. Soạn thảo văn bản và trình chiếu nâng cao
  • b. Làm quen với phần mềm chỉnh sửa ảnh
  • CHỦ ĐỀ 5. GIẢI QUYẾT VẤN ĐỀ VỚI SỰ TRỢ GIÚP CỦA MÁY TÍNH
  • CHỦ ĐỀ 6. HƯỚNG NGHIỆP VỚI TIN HỌC
  • Lập trình đơn giản
  • Phần mềm học tập
  • Ôn tập cuối năm
Lập trình đơn giản
  • Lý thuyết
  • Trắc nghiệm
  • Giải bài tập SGK
  • Hỏi đáp
  • Đóng góp lý thuyết
Hãy tham gia nhóm Học sinh Hoc24OLM Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Câu hỏi

Hủy Xác nhận phù hợp Ngố ngây ngô
  • Ngố ngây ngô
13 tháng 1 2019 lúc 16:47

1. Bạn hãy viết chương trình nhập từ bàn phím 3 số thực bất kỳ và kiểm tra xem chúng có phải là số hạng của một cấp số cộng không?

2. hãy lập trình in ra số thứ tự các ngày trong tuần bắt đầu từ ngày đầu tiên là ngày thứ hai, ngày số 2 là ngày thứ 3 đến cuối tuần.

3. viết chương trình nhập 4 số từ bàn phím và kiểm tra xem chúng có tạo thành một cấp số nhân hay một cấp số cộng hay không. Đưa ra thông báo tương ứng.

1 câu: 1GP, 2 câu: 2GP, cứ thế mà tính :)) Nhưng mấy bạn viết mà ko thể copy qua được pascal, phải đánh-cop chép y nguyên qua để kiểm tra, mệt chết. Bạn nào sáng tạo ra cách copy qua pascal hay, tặng GP. Mình ko tiếc GP đâu :))

Lớp 8 Tin học Lập trình đơn giản 22 0 Khách Gửi Hủy Eriken Eriken 13 tháng 1 2019 lúc 17:16

câu 2

Lập trình đơn giản

Đúng 0 Bình luận (14) Khách Gửi Hủy LY VÂN VÂN LY VÂN VÂN 13 tháng 1 2019 lúc 17:19

c1 :uses crt; var a,b,c:real; begin clrscr; write('Nhap 3 so duong a,b,c = ');readln(a,b,c); if ((a+b)>c) and ((b+c) >a) and ((c+a)>b) then writeln('3 so la 3 canh cua tam giac') else writeln('Khong la 3 canh cua tam giac'); readln end.

Đúng 0 Bình luận (21) Khách Gửi Hủy bảo nam trần bảo nam trần 13 tháng 1 2019 lúc 17:20

var i:integer;

begin

for i:=2 to 7 do writeln('ngay thu ',i);

readln

end.

Đúng 0 Bình luận (3) Khách Gửi Hủy Tú Nguyễn Tú Nguyễn 13 tháng 1 2019 lúc 18:22

1)var A: array[1..100] of integer; d,rt,i, dem: integer; begin writeln('Nhap mot so lon hon 0 va nho hon 100');

repeat write ('Nhap N:'); readln(N) if (N>=1000) or (N<=0 ) then writeln(’Moi nhap lai !'); until (N>0) and (N<1000);

writeln('Nhap cac gia tri cac so hang co tri tuyet doi khong lon hon 1000'); for i:=1 to n do repeat write (' a [', i, '] = '); readln (a [i]) ;

if (A[i]>100) or (A[i]<-1000) then write(’Moi nhap lai '); until (A[i]>-1000) and (A[i]<1000); d: = A[2] - A[ 1 ] ; dem:=0; for i:= 2 to n do if A[i] - A[i-l]od then dem:= dem + 1;

if dem >0 then writeln('A khong la cap so cong')

else writeln(’A la cap so cong'); readln, end.

Đúng 0 Bình luận (8) Khách Gửi Hủy Mysterious Person Mysterious Person 13 tháng 1 2019 lúc 20:45

câu 1 :

program Giaitin_hoc24;

uses crt;

var a,b,c: real;

begin

clrscr;

write(' a, b, c: ');

readln(a, b, c);

if a+b=2c of a+c=2b of b+c=2a then writeln(' khong phai cap so cong. ')

else

begin

writeln(' la cap so cong. ');

end;

readln

end.

câu 3 lm tương tự nhé !

Đúng 0 Bình luận (1) Khách Gửi Hủy Mysterious Person Mysterious Person 13 tháng 1 2019 lúc 21:12

rốt cuộc bn minh có hiểu bt j về viết chương trình pascal không vậy ?không bt đúng sai vẩn tick như bình thường .

Đúng 0 Bình luận (12) Khách Gửi Hủy Tú Nguyễn Tú Nguyễn 13 tháng 1 2019 lúc 20:59

câu 1 cách dễ hiểu

var a,b,c,min,max:integer; begin write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); max:=a; if b>max then max:=b; if c>max then max:=c; min:=a; if b<min then min:=b; if c<min then min:=c; if ((max-a)=(a-min)) or ((max-b)=(b-min)) or ((max-c)=(c-min)) then writeln('la cap so cong ') else writeln('ko'); readln; end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Tú Nguyễn Tú Nguyễn 13 tháng 1 2019 lúc 21:07

câu 3) var a,b,c,min,max:integer; begin write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); max:=a; if b>max then max:=b; if c>max then max:=c; min:=a; if b<min then min:=b; if c<min then min:=c; if ((max=b*2) and (b=min*2)) or ((max=a*2) and (a=min*2)) or ((max=c*2) and (c=min*2)) then writeln(' la cap so nhan ') else if ((max-a)=(a-min)) or ((max-b)=(b-min)) or ((max-c)=(c-min)) then writeln('la cap so cong ') else writeln('ko la gi ca '); readln; end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Tú Nguyễn Tú Nguyễn 13 tháng 1 2019 lúc 21:23

câu 2)

var i,h:integer; begin h:=0; for i:=2 to 7 do begin h:=h+1; writeln(' Ngay thu ',i,' la ngay: ',h);

end; writeln(' Ngay chu nhat la ngay :',h+1);

readln; end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Trương Quang Dũng Trương Quang Dũng 13 tháng 1 2019 lúc 21:55

cách cop:

Ctrl+Shift+I hoặc nhấn chuột phải vào đoạn văn bản cần cop rồi chon Kiểm tra

ở phần <p>..<p> ==$0 nhấn phải chọn Edit as HTML

rồi cop phần trong Edit ra Notepad

chỉnh sửa cho phù hợp rồi Ctrl+S nhập tên+.pas(Đuôi .pas nha)

Mở pascal ra xem kqua

Đúng 0 Bình luận (4) Khách Gửi Hủy Ngố ngây ngô Ngố ngây ngô 13 tháng 1 2019 lúc 16:50

Trương Quang Dũng Tú Nguyễn B (Erik) @Đoàn Gia Khánh @Mysterious Person ko phải chỉ làm thôi, còn phải sáng tạo cách để mình copy qua pascal đc nữa đó nha =)) GP của mình dễ gì ăn được :))

Đúng 0 Bình luận (5) Khách Gửi Hủy Thời Sênh Thời Sênh 13 tháng 1 2019 lúc 17:00

hơ hơ, t ko làm, chỉ m cách copy qua pascal đc GP hông nek

Đúng 0 Bình luận (4) Khách Gửi Hủy Eriken Eriken 13 tháng 1 2019 lúc 17:47

Cấp số nhân với cấp số cộng là sao ko hiểu giải thích đc k

Đúng 0 Bình luận (1) Khách Gửi Hủy Tú Nguyễn Tú Nguyễn 13 tháng 1 2019 lúc 18:15

bảo các bạn ấy gửi tin nhắn cho bạn xong bạn cop về lưu vào notepad xong chuyển thành dữ liệu pascal xong mở và chạy cách của mik dc k

Đúng 0 Bình luận (3) Khách Gửi Hủy Tú Nguyễn Tú Nguyễn 13 tháng 1 2019 lúc 18:23

đấy là bài thầy tớ làm cho t chưa sửa nha nhưng thuật toán vẫn thế

Đúng 0 Bình luận (0) Khách Gửi Hủy Nguyễn Hải Dương Nguyễn Hải Dương 13 tháng 1 2019 lúc 20:18

Trương Quang Dũng ê béo rảnh vô giúp nó tề :))

Đúng 0 Bình luận (2) Khách Gửi Hủy Tú Nguyễn Tú Nguyễn 13 tháng 1 2019 lúc 20:54

ê hỏi cái nếu nhập a=3 b=9 c=6 thì có phải là cấp số cộng k

Đúng 0 Bình luận (2) Khách Gửi Hủy Lê Tuấn Nghĩa Lê Tuấn Nghĩa 13 tháng 1 2019 lúc 21:30

Bài 3: Do hơi dài nên có đén 2 ảnh (đã kiểm tra vào hoàn toàn chính xác)

[ảnh 1: khai biến ; ảnh 2: phần lệnh]

Lập trình đơn giản

Lập trình đơn giản

Đúng 0 Bình luận (7) Khách Gửi Hủy Team lớp A Team lớp A 13 tháng 1 2019 lúc 23:14

Copy qua pascal làm gì mất time

Có lẽ là mấy bạn kia chạy luôn chương trình ở pascal rồi chụp màn hình lên

Đúng thì cho GP

Sai coi như làm lại

leuleu

(Chụp màn hình cả phần chương trình cả phần kiểm tra đúng sai vào)

Đúng 0 Bình luận (0) Khách Gửi Hủy Kiêm Hùng Kiêm Hùng 14 tháng 1 2019 lúc 9:37

......

Đúng 0 Bình luận (0) Khách Gửi Hủy Nơ Lê Thị Nơ Lê Thị 14 tháng 1 2019 lúc 10:18

câu 2 :

program so_thu_tu;

uses crt;

var i:integer;

begin

clrscr;

for i: =2 to 7 do

writeln('ngay thu', i );

writeln('ngày chủ nhật ');

readln

end.

Đúng 0 Bình luận (0) Khách Gửi Hủy Nguyễn Hoàng Anh Thư Nguyễn Hoàng Anh Thư 14 tháng 1 2019 lúc 18:27

Cách copy qua pascal:

(những ng` tham gia lm bài nên danh máy ra giống Mysterious Person)

B1: Vào nguồn trang (nhấp chuột phải ròi click "View page source")

B2: Lật xuống sẽ thấy bài của vài bn (dánh máy)

Lập trình đơn giản

B3: Copy từng hàng ở nguồn trang (ko thể copy hết)

B4: Vào pascal và chọn Edit ròi chọn Paste from Windows

B5: Check lại (xem cs Full bài lm chưa)

B6: Alt + F5 ròi Ctrl + F5 kiểm tra bài của các bn là dc

Đúng 0 Bình luận (4) Khách Gửi Hủy Các câu hỏi tương tự Thị Ngọc Phan
  • Thị Ngọc Phan
23 tháng 12 2016 lúc 19:22

Hãy viết chương trình nhập ba số dương a, b và c từ bàn phím, kiểm tra và in kết quả ra màn hình kiểm tra ba số đó có thể là độ dài ba cạnh của một tam giác hay không?

Ai biết giúp với !!! Cần gấp gấp gấp lắm

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 2 1 Dienn
  • Dienn
27 tháng 12 2020 lúc 18:17 Viết chương trình nhập vào một số dư nhập từ bàn phím và kiểm tra xem nó có chia hết cho 3 không Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 1 Nguyễn Thúy Hằng
  • Nguyễn Thúy Hằng
12 tháng 12 2016 lúc 20:19

cho số tự nhiên a được nhập từ bàn phím,hãy kiểm tra xem a là số chẵn hay lẻ

a)xác định bài toán

b)mô tả thuật toán

c)viết chương trình bằng ngôn ngữ lập trình pascal

nhanh nha đang gấp mai phải nộp rồi/thanks nhiều

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 misha
  • misha
7 tháng 12 2021 lúc 8:42

Viết chương trình nhập vào từ bàn phím số nguyên N, kiểm tra xem N có chia hết cho 3 và 5 hay không?

Yêu cầu:

a)     Xác định điều kiện bài toán

b)    Mô tả thuật toán

c)     Viết chương trình Python

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 0 0 Bbi thành real
  • Bbi thành real
14 tháng 5 2022 lúc 9:34

Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 2 0 dinhnguyentuhuy
  • dinhnguyentuhuy
13 tháng 12 2020 lúc 5:09

Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện 

+ Xuất ra màn hình các số vừa nhập

+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?

Làm giúp với !

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 dinhnguyentuhuy
  • dinhnguyentuhuy
13 tháng 12 2020 lúc 14:11

Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện 

+ Xuất ra màn hình các số vừa nhập

+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?

Làm giúp với !

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 1 Anhthuwliz
  • Anhthuwliz
25 tháng 12 2021 lúc 19:28

Câu 2: Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập ba số a, b, c nguyên dương từ bànphím và kiểm tra ba số a, b, c có phải là độ dài ba cạnh của một tam giác không? 

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 0 Anhthuwliz
  • Anhthuwliz
25 tháng 12 2021 lúc 19:54

Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập một số tự nhiên từ bàn phím và thôngbáo ra màn hình kết quả số đã nhập là chẵn hay lẻ?

Xem chi tiết Lớp 8 Tin học Lập trình đơn giản 1 1

Khoá học trên OLM (olm.vn)

  • Toán lớp 8 (Kết nối tri thức với cuộc sống)
  • Toán lớp 8 (Cánh Diều)
  • Toán lớp 8 (Chân trời sáng tạo)
  • Ngữ văn lớp 8 (Kết nối tri thức với cuộc sống)
  • Ngữ văn lớp 8 (Cánh Diều)
  • Ngữ văn lớp 8 (Chân trời sáng tạo)
  • Tiếng Anh lớp 8 (i-Learn Smart World)
  • Tiếng Anh lớp 8 (Global Success)
  • Khoa học tự nhiên lớp 8 (Kết nối tri thức với cuộc sống)
  • Khoa học tự nhiên lớp 8 (Cánh diều)
  • Khoa học tự nhiên lớp 8 (Chân trời sáng tạo)
  • Lịch sử và địa lý lớp 8 (Kết nối tri thức với cuộc sống)
  • Lịch sử và địa lý lớp 8 (Cánh diều)
  • Lịch sử và địa lý lớp 8 (Chân trời sáng tạo)
  • Giáo dục công dân lớp 8 (Kết nối tri thức với cuộc sống)
  • Giáo dục công dân lớp 8 (Cánh diều)
  • Giáo dục công dân lớp 8 (Chân trời sáng tạo)
  • Công nghệ lớp 8 (Kết nối tri thức với cuộc sống)

Khoá học trên OLM (olm.vn)

  • Toán lớp 8 (Kết nối tri thức với cuộc sống)
  • Toán lớp 8 (Cánh Diều)
  • Toán lớp 8 (Chân trời sáng tạo)
  • Ngữ văn lớp 8 (Kết nối tri thức với cuộc sống)
  • Ngữ văn lớp 8 (Cánh Diều)
  • Ngữ văn lớp 8 (Chân trời sáng tạo)
  • Tiếng Anh lớp 8 (i-Learn Smart World)
  • Tiếng Anh lớp 8 (Global Success)
  • Khoa học tự nhiên lớp 8 (Kết nối tri thức với cuộc sống)
  • Khoa học tự nhiên lớp 8 (Cánh diều)
  • Khoa học tự nhiên lớp 8 (Chân trời sáng tạo)
  • Lịch sử và địa lý lớp 8 (Kết nối tri thức với cuộc sống)
  • Lịch sử và địa lý lớp 8 (Cánh diều)
  • Lịch sử và địa lý lớp 8 (Chân trời sáng tạo)
  • Giáo dục công dân lớp 8 (Kết nối tri thức với cuộc sống)
  • Giáo dục công dân lớp 8 (Cánh diều)
  • Giáo dục công dân lớp 8 (Chân trời sáng tạo)
  • Công nghệ lớp 8 (Kết nối tri thức với cuộc sống)

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