Đánh dấu [X] vào ô trống hoặc sai tương ứng trog các câu lệnh trong chương trình tính tổng 100 số tự nhiên đầu tiên, nếu sai sửa lại
| câu lệnh | Đúng | Sai | Sửa lại |
| Program Chuong trinh | |||
| Var i,s : real; | |||
| Const n:=100; | |||
| Begin | |||
| Wile i<=n do; | |||
| Begin | |||
| S:=s+i | |||
| i =i+1 | |||
| End. | |||
| Writeln(s) | |||
| Readln | |||
| End; |
mk đang cần gấp mn giúp mk vs
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Đánh dấu {X} vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal trong chương trình tính tổng 10 số tự nhiên đầu tiên, nếu sai sửa lại
| Câu lệnh | Đúng | Sai | Sửa lại |
| Program Chuong trinh | |||
| Var i,s :real; | |||
| Const n:=10; | |||
| Begin | |||
| S:= s+1 | |||
| i=i+1 | |||
| End. | |||
| Writeln(s) | |||
| Readln | |||
| End; |
Giups mình làm bản này với ạ Mình đang cần gấp. Cảm ơn ạ
Câu 1: Điền X vào các ô Đúng hoặc Sai sao cho phù hợp và sửa lại cho đúng (nếu sai)?
| Câu | Đúng | Sai | Sửa lại |
|
a) for i=1 to 10 do writeln('A'); |
|||
|
b) var X: Array[5...10] Of Char; |
|||
|
c) X:=10; while X=10 do X:=X+5; |
|||
|
d) s:=0; for i:=1.5 to 10.5 do s:=s+i; |
|||
|
e)var A:= array [1..50] of integer; |
Câu 2: Hãy nêu sự khác nhau giữa câu lệnh lặp vơi số lần chưa biết trước và câu lệnh lặp với số lần biết trước.
Câu 3: Đánh dấu [x] vào ô đúng hoặc sai tương ứng trong các câu lệnh Pascal trong chương trình tính tổng 10 số tự nhiên đầu tiên, nếu sai sửa lại?
| Câu lệnh | Đúng | Sai | Sửa lại |
| Program Chuong trinh | |||
| Var i,s : real; | |||
| Const n:=10; | |||
| Begin | |||
| While i <=n do; | |||
| Begin | |||
| S:=s+i | |||
| i=i+1 | |||
| End. | |||
| Writeln(s) | |||
| Readln | |||
| End; |
Câu 4: Viết chương trình tính tổng: S = 1+2+3+...+n . Trong đó n là số nguyên nhập từ bàn phím.
Câu 5: Viết chương trình nhập vào 1 dãy gồm n số nguyên và in ra giá trị lớn nhất, giá trị nhỏ nhất của dãy.
Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;
Uses CRT
Var a;=integen;
b;=real;
Constc;=3;
Begin
a:=200;
b:=a/c;
Readln;
End
Program tong_so_le;
Uses crt;
Var S,N,I:Integer;
Xữa chương trình sau( nếu sai)
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do If (I mod 2<>0) then
S:=S+I;
Writeln('Tong cac so le la ',S); Readln;
End.
Giup mik nha các bn
Thanks
1. Các câu lệnh sau được viết đúng hay sai, nếu sai sửa lại cho đúng.
a. While i:=1 do t:=10;
b. While a<=b; do Writeln(‘b khong nho hon a’);
c. i:=1;
While i<10 do
Begin
Sum:=Sum+i;
i:=i+1;
End;
Cho đoạn chương trình sau: s := 0; i := 1 while s <= 10 do begin i := i + 1; s := s + i; end; Cho biết câu lệnh while dừng khi s bằng bao nhiêu?
Câu 1:Viết chương trình tổng các số tự nhiên liên tiếp sao cho tổng nhỏ nhất lớn hơn 30
Câu 2: Nêu 2 ví dụ về hoặc động lặp với số lần biết trước
Câu 3: Tìm lỗi sai và sửa lại cho đúng trong các câu lệnh Pascal đây
a) S:=0; i:=1;
While S < 100 do;
Begin S = S + 1
i:= i + 2
b)S:=0
For i:=1.2 to 5.7 do S=S+i;
