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

Thảo luận trong 'Dòng họ c , c++ , c#' bắt đầu bởi chinhgli@gmail.com, 5 Tháng năm 2019.

Lượt xem: 154

  1. chinhgli@gmail.com

    chinhgli@gmail.com Học sinh Thành viên

    Bài viết:
    14
    Điểm thành tích:
    21
    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!

    Viết chương trình sử dụng câu lệnh While...do, For...do và biến mảng.
    1. Viết chương trình sử dụng biến mảng nhập vào 1 dãy gồm n số(n được nhập từ bàn phím). Tìm giá trị nhỏ nhất trong dãy vừa nhập.
    2. Viết chương trình sử dụng biến mảng nhập vào 1 dãy gồm n số nguyên(n được nhập từ bàn phím) . In ra màn hình các số nguyên tố
    3. Viết chương trình nhập vào một dãy số gồm n số (n được nhập từ bàn phím). Đếm xem trong dãy có bao nhiêu số âm.
    4. Viết chương trình tính tổng sau: S=1+2+3+...+n sao cho tổng S nhỏ nhất>500 (với n là số nguyên được nhập vào từ bàn phím)
     
    Hồ Nhi thích bài này.
  2. Nhật Hạ !

    Nhật Hạ ! Học sinh chăm học Thành viên

    Bài viết:
    309
    Điểm thành tích:
    51
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    THCS Lê Quang Sung



    program Min;
    uses crt;
    Var
    i, n, Min: integer;
    A: array[1..100] of integer;
    Begin
    clrscr;
    write('Hay nhap do dai cua day so, N = '); readln(n);
    writeln('Nhap cac phan tu cua day so:');
    For i:=1 to n do
    Begin
    write('a[',i,']='); readln(a);
    End;
    Min:=a[1];
    for i:=2 to n do
    if Min> a then Min:=a;
    write('So nho nhat la Min = ',Min);
    readln
    End.
     
  3. Nhật Hạ !

    Nhật Hạ ! Học sinh chăm học Thành viên

    Bài viết:
    309
    Điểm thành tích:
    51
    Nơi ở:
    Quảng Nam
    Trường học/Cơ quan:
    THCS Lê Quang Sung

    program bt;
    var i,n:integer;
    begin
    i:=2;
    while n mod i <>0 do i:= i+1;
    if i=n then writeln(n, ' la so nguyen to')
    else writeln(n, ' khong la so nguyen to');
    readln;
    end.
     
  4. 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,328
    Đ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

    3.
    Mã:
    Var
      A:array[1..100] of integer;
      I,n,d:integer;
    Begin
      Readln(n);
      For i:=1 to n do readln(a[i]);
      For i:=1 to n do
        If a[i]<0 then d:=d+1;
       Write('cac so am co trong day la:',d);
       Readln
    End.
     
  5. chinhgli@gmail.com

    chinhgli@gmail.com Học sinh Thành viên

    Bài viết:
    14
    Điểm thành tích:
    21

    1.
    program gtnn;
    uses crt;
    var i,n:integer;
    min:real;
    A:array[1..50] of real;
    begin
    clrscr;
    write('hay nhap cac do dai day so,n=');
    readln(n);
    write('nhap cac phan tu cua day so:');
    for i:=1 to n do
    begin
    write('a[',i,']=');
    readln(a);
    end;
    min:=a[1];
    for i:=2 to n do
    if min>a then min:=a;
    write ('so nho nhat la min=',min);
    readln;
    end.
     
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

-->