Tin học Viết chương trình Pascal để:

Thảo luận trong 'Tin học cấp III' bắt đầu bởi Cầu Vồng, 12 Tháng mười một 2019.

Lượt xem: 134

  1. Cầu Vồng

    Cầu Vồng Học sinh tiến bộ Thành viên

    Bài viết:
    343
    Điểm thành tích:
    154
    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, Nhập vào số a, b và tìm UCLN của chúng
    2, Tìm tất cả các số có 3 chữ số sao cho abc=3a+3b+3c
    3, Tính tổng S=12+22+...+ n2. Với n được nhập vào từ bàn phím
    4, Nhập vào một dãy các số nguyên và in ra màn hình dãy là cấp số cộng hay cấp số nhân không
    5, Nhập vào một dãy các số nguyên in max min của dãy (không sắp xếp)
     
  2. Hải Ham Học

    Hải Ham Học Học sinh Thành viên

    Bài viết:
    129
    Điểm thành tích:
    26
    Nơi ở:
    Bà Rịa - Vũng Tàu
    Trường học/Cơ quan:
    thcs hòa hiệp

    Bài 1 :
    var i:integer;
    a,b,tg:int64;
    begin
    readln(a,b);
    tg1:=a; tg2:=b;
    tg:=a mod b;
    while (tg<>0) do
    begin
    tg1:=tg2;
    tg2:=tg;
    tg:=tg1 mod tg2;
    end;
    writeln('uoc cua ', a ,' va ', b ,' la :', tg2);
    readln;
    end.
     
  3. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,348
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    2.
    Viết 1 hàm ở đầu bài
    Mã:
    Function Kt(x:integer):Boolean;
    Var a,b,c:integer;
    Begin
        c:=x mod 10;x:=x div 10;
        b:=x mod 10;x:=x div 10;
        c:=x mod 10;
        If 3*a+3*b+3*c=x then KT:=true
        else kt:=false;
    End;
    
    Vào phần CT chính thì:
    Mã:
    For i:=100 to 999 do
       If kt(i)=true then write(i,' ');
    3.
    Mã:
    For i:=1 to n do
      s:=s+(i*10+2);
    
    4. Cấp số cộng và cấp số nhân là gì vậy ạ? Cho em xin ví dụ
    5.
    Mã:
    max:=a[1];min:=a[1];
    For i:=2 to n do
      Begin
         if a[i]>max then max:=a[i];
         If a[i]<min then min:=a[i];
      end;
    
    p/s: Em chỉ viết code chính thôi ạ. Anh/chị bổ sung thêm để hoàn chỉnh bài
     
    Last edited: 12 Tháng mười một 2019
    Cầu VồngHải Ham Học thích bài này.
  4. Cầu Vồng

    Cầu Vồng Học sinh tiến bộ Thành viên

    Bài viết:
    343
    Điểm thành tích:
    154

    Bạn viết nhầm rồi. S=11+22+..+n2 chứ không phải S=1x2+2x2+...+nx2
     
  5. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh tiến bộ Thành viên HV CLB Hóa học vui HV CLB Lịch sử

    Bài viết:
    1,348
    Điểm thành tích:
    176
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Dạ, em nhầm một chút ạ.
    Sửa thành:
    Mã:
    s:=0;
    For i:=1 to n do
       s:=s+(i*10+2);
     
    Hải Ham HọcCầu Vồng thích bài này.
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

-->