1 Mô tả thuật toán và viết ct kiểm tra 1 số tự nhiên n nhập từ bàn phím có phải là số nguyên tố hay ko? 2 viết ct nhập điểm kiểm tra HK môn tin cho N

Bởi

1 Mô tả thuật toán và viết ct kiểm tra 1 số tự nhiên n nhập từ bàn phím có phải là số nguyên tố hay ko?
2 viết ct nhập điểm kiểm tra HK môn tin cho N hs ( N ≤ 50) và in ra màn hình điểm cao nhất, thấp nhất. với N và điểm KT đc nhập từ bàn phím ( sử dụng biến mảng )
3 Mô tả thuật toán tìm GTNN,lớn nhất trong dãy số a1, a2,…,an

0 bình luận về “1 Mô tả thuật toán và viết ct kiểm tra 1 số tự nhiên n nhập từ bàn phím có phải là số nguyên tố hay ko? 2 viết ct nhập điểm kiểm tra HK môn tin cho N”

  1. Câu 1:

    uses crt;
    var n,i:longint;
    begin
    clrscr;
       write(‘Nhap N: ‘);readln(n);
       i:=2;
       while(n>1)and(n mod i<>0)do inc(i);
       if i=n then writeln(‘N la so nguyen to’) 
          else writeln(‘N khong la so nguyen to’);
    readln
    end.

    Câu 2:

    uses crt;
    var i,n,max,min:longint; a:array[1..100000]of longint;
    begin
    clrscr;
       write(‘Nhap N: ‘);readln(n); 
       min:=high(longint);
       for i:=1 to n Do 
          begin
             write(‘Nhap diem hoc ki mon tin cua ban thu ‘,i,’: ‘);readln(a[i]);
             if a[i]>max then max:=a[i];
             if a[i]<min then min:=a[i];
          end;
       writeln(‘Diem cao nhat: ‘,max);
       writeln(‘Diem thap nhat: ‘,min);
    readln
    end.

    Câu 3:

    uses crt;
    var i,n,max,min:longint; a:array[1..100000]of longint;
    begin
    clrscr;
       write(‘Nhap N: ‘);readln(n); 
       min:=high(longint);
       for i:=1 to n Do 
          begin
             write(‘a[‘,i,’]=’);readln(a[i]);
             if a[i]>max then max:=a[i];
             if a[i]<min then min:=a[i];
          end;
       writeln(‘Gia tri lon nhat: ‘,max);
       writeln(‘Gia tri nho nhat: ‘,min);
    readln
    end.

    Bình luận

  2. Câu 1 –

    Thuật toán:

    Bước 1: Nhập n

    Bước 2: 

    2.1: Nếu n mod 2 = 0 thì thông báo chẵn và thực hiện bước 3

    2.2: Nếu n mod 2 <> 0 thì thông báo lẻ và thực hiện bước 3

    Bước 3: Kết thúc chương trình

    program ct;

    uses crt;

    var i,n:integer;

    begin

    clrscl;

    write(‘nhap so:’); readln(n);

    if n<=1 then writeln(‘N khong phai so nguyen to’) else

    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 phai so nguye to’);

    end;

    readln;

    end.

    Câu 2 uses crt;
    var i,n,max,min,d1,d2: integer;
    a: array [1..100] of integer;
    begin
    clrscr;
    write(‘Nhap so ban trong lop: ‘); readln(n);
    for i:=1 to n do begin
    write(‘Diem ban thu ‘,i,’ : ‘);
    readln(a[i]); end;
    max:=a[1]; min:=a[1];
    for i:=2 to n do begin
    if max<a[i] then begin max:=a[i]; d1:=i; end;
    if min>a[i] then begin min:=a[i]; d2:=i; end;
    end;
    writeln(‘Ban thu ‘,d1,’ co diem cao nhat bang: ‘,max);
    writeln(‘Ban thu ‘,d2,’ co diem thap nhat bang: ‘,min);
    readln;
    end.

    Câu 3

    Bước 1: Nhập n và dãy A[1..n]

    Bước 2: s ← 0; pt ← 0;

    Bước 3: i ← 1 to n do

    Nếu A[i]>0 thì s ← s + A[i]; pt ← pt + 1

    Bước 4: tbc ← s/pt

    Bước 5: Xuất kết quả (tbc)

    Bình luận

Viết một bình luận