Tin học Viết chương trình pascal

Thảo luận trong 'Tin học cấp II' bắt đầu bởi Dii Tae, 4 Tháng mười hai 2018.

Lượt xem: 294

  1. Dii Tae

    Dii Tae Học sinh Thành viên

    Bài viết:
    16
    Điểm thành tích:
    21
    Nơi ở:
    Hưng Yên
    Trường học/Cơ quan:
    thcs đoàn thị điểm
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    1, Tính S= 1/2^2+1/5^2+1/8^2+......+1/n^2
    2, Viết CT tìm max min của a,b,c,d
    3, Viết CT tìm các ước của n
     
  2. caochanh166

    caochanh166 Học sinh chăm học Thành viên

    Bài viết:
    85
    Điểm thành tích:
    51

    2.
    uses crt;
    Var a,b,c,d,max,min:integer;
    Begin
    clrscr;
    a:=max;
    b:=min;
    If b>max then max:=b;
    if c>max then max:=c;
    if d>max then max:=d;
    If a<min then min:=a;
    if c<min then min:=c;
    if d<min then min:=d;
    Writeln('Max: ',max,' ','Min: ',min);
    Readln;
    end.
     
  3. Phan Văn Thế Quân

    Phan Văn Thế Quân Trùm vi phạm Thành viên

    Bài viết:
    121
    Điểm thành tích:
    21
    Nơi ở:
    Nghệ An
    Trường học/Cơ quan:
    Trung học phổ thông tân kỳ 3

    các bạn viết sơ đồ cho bạn ý chứ k cần viết code đâu
     
  4. Phan Văn Thế Quân

    Phan Văn Thế Quân Trùm vi phạm Thành viên

    Bài viết:
    121
    Điểm thành tích:
    21
    Nơi ở:
    Nghệ An
    Trường học/Cơ quan:
    Trung học phổ thông tân kỳ 3

    tại mình cũng hỏi nhiều ng mấy bài này mà họ toàn viết code khó dịch lắm :)
     
    Dii Tae thích bài này.
  5. khapyeu10

    khapyeu10 Học sinh mới Thành viên

    Bài viết:
    2
    Điểm thành tích:
    6
    Nơi ở:
    Quảng Ngãi
    Trường học/Cơ quan:
    THPT Trần Quốc Tuấn

    Tìm max của a,b,c,d. Đợi mình làm câu 3
     

    Các file đính kèm:

    • image.jpg
      image.jpg
      Kích thước:
      102.5 KB
      Đọc:
      28
  6. khapyeu10

    khapyeu10 Học sinh mới Thành viên

    Bài viết:
    2
    Điểm thành tích:
    6
    Nơi ở:
    Quảng Ngãi
    Trường học/Cơ quan:
    THPT Trần Quốc Tuấn

    còn đây là bài tìm ước của n image.jpg
     
    Dii Tae thích bài này.
  7. Dii Tae

    Dii Tae Học sinh Thành viên

    Bài viết:
    16
    Điểm thành tích:
    21
    Nơi ở:
    Hưng Yên
    Trường học/Cơ quan:
    thcs đoàn thị điểm

    giup hộ mình câu đầu
     
  8. Trương Văn Trường Vũ

    Trương Văn Trường Vũ Mod Vật Lí Cu li diễn đàn

    Bài viết:
    1,120
    Điểm thành tích:
    276
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    THCS Nguyễn Huệ

    Hướng dẫn: cho i<-2
    rồi cứ s:=s+1/(i*i) đến khi nào i>n thì thôi
    chưa thì i<-i+1
     
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY

-->