Giúp mình với mn ơi, mình cần gấp trước 1h ạ:((
24. Trong câu lệnh lặp For i:= a to b do writeln; Yêu cầu dữ liệu của b là gì? Xâu ký tự Số thực Số nguyên Tùy ý Câu 25. Trong câu lệnh lặp For i:= a to b do writeln; Yêu cầu của a và b là gì? * a =b a>b a> =b a 0 then a:=a+1; * Điều kiện trong đoạn lệnh này là a0 Câu 33. Xem đoạn lệnh: If a>0 then a:=a+1 else a:=a*2; Vậy lệnh a:=a*2 sẽ thực hiện khi nào? * Khi a>2 Khi a lớn hơn 0 Khi a không lớn hơn 0 Khi a >1 Câu 34. * Hình ảnh không có chú thích X là số lớn nhất trong mảng a X bằng số thứ nhất trong mảng a X là số thứ 5 trong mảng a X là ố bé nhất trong mảng a Câu 35. Giả sử có đoạn lệnh khai báo biến mảng như sau: Var M: Array[0..5] of real; Kết quả ta có mảng M như sau: * gồm 6 phần tử số thực gồm 6 phần tử số nguyên gồm 5 phần tử số thực gồm 5 phần tử số nguyên
Giúp mình với mn ơi, mình cần gấp trước 1h ạ:(( 24. Trong câu lệnh lặp For i:= a to b do writeln; Yêu cầu dữ liệu của b là gì? Xâu ký tự Số thực Số ng
By Liliana
Chương trình:
progran baitap6_chuong4;
uses crt;
var
array[1..100] of integer;
if: boolean;
N, i„ l: integer; so_nt, so_chan: integer;
begin
for i := -1000 to 1000 do if i>0 then NT:= false;
so_chan:=0; so_nt:=0;
{Nhap vao)
repeat
write(‘So phan tu cua day A (N<=100), N= *);
readln(N);
until (N>0) and
(N<=100);
for i:= 1 to N do
begin
{kiem tra cac phan tu cua day khi nhap vao}
repeat
write(‘A[‘,i,’]= ‘);readln(A[i]);
if (a[i]>1000) or (a[i]<-1000) then
write(‘Moi nhap lai “);
until (a[i]>-1000) and (a[i]<1000); = if A[i] mod 2 =0 then so_chan:= so_chan + 1; if A[i] >1 then
begin
u: = 2 ;
while ((u<=sqrt (A[i])) and (A[i] mod u<>0))) do u: = u + 1; if u>sqrt(A[i]) then so_nt:= so_nt + 1;
end,
end;
{In ra man hinh}
writeln(‘So luong so chan:’,so_chan);
writeln(‘So luong so le:’,N – so_chan);
writeln(’So luong so nguyen tro:’, so_nt);
readln
End.
Khi chạy chương trình, ta lần lượt nhập các phần tử của dãy A:
Với N = 3 và các phần tử được nhập vào theo thứ tự:
A[1]=5
A[2]=7
A[3]=900
thì chương trình đưa ra thông báo:
So luong so chan: 1
So luong so le: 2
So luong so nguyen to: 2
– Với 5 và các phần tử được nhập vào theo thứ tự:
A[1]=12
A[2]=3 A[3]=5
A[4>10 A [5] =11
thì chương trinh đưa ra thông báo:
So luong so chan: 2
So luong so le: 3
So luong so nguyen to: 3
Trong trường hợp số phần tử nhập vào và giá trị các phần tử của dãy A không thỏa mãn điều kiện thì chương trình sẽ có thông báo mời nhập lại. Chẳng hạn, trong các trường hợp sau đây:
A[1] = 12
A [ 2] = 2000 thì chương trình đưa ra yêu cầu Moi nhap lai A[2]= 800 A[3 = 17
A [ 4] = -1500 thì chương trình đưa ra yêu cầu Moi nhap lai A[4]= -200 A[5] =31 A [ 6 = 5 A[7 = 350
Kết quả chương trình đưa ra thông báo (Hình 64):
So luong so chan: 4
So Luong so le: 3
So luong so nguyen to: 3