Bài 9. Làm việc với dãy số
Các câu hỏi tương tự
1.Các lệnh sau không hợp lệ, em hãy viết lại hoàn chỉnh để được câu lệnh đúng?
a. If x>5; then a:=b;
b. For x=1 To n Do writeln (x);
c. x:=5 While x:=10 do begin x:= x + 10; end;
d. For j=:1 To n Do Writeln(j;4);
1.
a, Cho đoạn chương trình sau:
x:=0;
For j:=1 To 6 Do x:=x+j;
Hãy chuyển sang lệnh WHILE...DO viết thành chương trình hoàn chỉnh và cho biết giá trị x bằng bao nhiêu?
b. Cho đoạn chương trình sau:
x:=0; j:=0;
While j<= 6 Do begin x:=x+j;j:=j + 1; end;
Hãy chuyển sang lệnh FOR...TO...DO, viết thành chương trình hoàn chỉnh và cho biết giá trị x là bao nhiêu?
* Chữa sai thành đúng:
a, Var const:=2;b:=10;
b, Var thu_tu,so_luong:Integer;real;
c, For i:=1,5 to 10 do writeln ('A');
d, While x=10 do x=x+3;
e, Var A: array[1..100] of real;
g, If m>n; then m:=m-n
Mọi người ơi giúp mình được k ạ? Mình đang cần gấp huhu
hãy viết 1 CT passcal nhập vào 1 mảng các số nguyên bất kì ,ghi ra màn hình các số dương lớn hơn 1 và lẻ trong mảng
22 tháng 9 2018 lúc 9:23
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(Nhap so phan tu co trong day:);readln(n);
for i:1 to n do begin
writeln(Nhap phan tu thu ,i, cua day:);readln(a[i]);
end;
for i:1 to n do begin
if (a[i] mod 20) and (a[i] mod 30)
then writeln(Phan tu chia het cho 2 va 3 la:,a[i])
end;
read...
Đọc tiếp
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu co trong day:');readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);
end;
for i:=1 to n do begin
if (a[i] mod 2=0) and (a[i] mod 3=0)
then writeln('Phan tu chia het cho 2 va 3 la:',a[i])
end;
readln
end.
Chương trình trên đúng k ạ
Viết CT nhập vào mảng các số nguyên. Xóa phần tử tại vị trí k
Viết CT nhập vào mảng các số nguyên. Xuất ra màn hình chỉ số có phần tử có giá trị lớn nhất.
Cách khai báo sau đây là đúng hay sai? Nếu sai hãy sửa lại:
Var x:array [10,13] of integer;
S:=0; n:=0; while S < for do n:=n + 1; S:= s+n
For i:=1 to 10 do; writeln ('A')
Var x: real; begin for x:=1 to 10 do writeln ('A'); end.
viết ct tính điểm 3 môn toán , lý, hóa theo hệ số 2:1:1 sau đó sắp xếp theo a, loại giỏi: đtb>=8.0, không có môn nào dưới 6.5. b, loại khá: đtb >=6.5 và <8.0, không có môn nào dưới 5.0. c, loại tb: 5.0=<đtb<6.5 và không có môn nào dưới 3.5. d, loại kém : còn lại. giúp mk vs chìu phải nộp ùi
Viết chương trình nhập và xuất mảng có 100 phần tử các số nguyên1/Nhập vào 1 số nguyên k, cho biết vị trí nào trong mảng bằng với k.2/Nhập vào số nguyên h, cho biết h xuất hiện bao nhiêu lần trong mảng3/ Tổng các phần tử của dãy4/Số lượng các số hạng dương và tổng các số hạng dương5/Số lượng các số hạng âm và tổng của các số hạng âmViết chương trình nhập và xuất mảng có 100 phần tử các số nguyên
Đọc tiếp
Viết chương trình nhập và xuất mảng có 100 phần tử các số nguyên
1/Nhập vào 1 số nguyên k, cho biết vị trí nào trong mảng bằng với k.
2/Nhập vào số nguyên h, cho biết h xuất hiện bao nhiêu lần trong mảng
3/ Tổng các phần tử của dãy
4/Số lượng các số hạng dương và tổng các số hạng dương
5/Số lượng các số hạng âm và tổng của các số hạng âmViết chương trình nhập và xuất mảng có 100 phần tử các số nguyên