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
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
By Amaya
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.
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)