Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
Những câu hỏi liên quan
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S1+2+3+ ...... (Khi Tổng S đầu tiên 1000 thì dừng). Hỏi cộng bao nhiêu số?Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:Program tinh_tong;Var n S: IntegerBeginn: 0;S 0;While S 1000 don: n + 1; S: S + n Writeln(‘Can cong’,n-1,’so va tong dau tien 1000 la’, S); Readln;End.
Đọc tiếp
Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:
Program tinh_tong;
Var n S: Integer
Begin
n: 0;
S = 0;
While S< 1000 do
n:= n + 1;
S:= S + n
Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);
Readln;
End.
Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây và sửa lại cho đúng:
program dientich;
Const Pi:=3.1416;
var cv,dt : integer ;
r : real;
begin
r:=5.5;
cv:=2*pi;
dt :=pi*r*r ;
writeln ('chu vi la',cv)
writeln ('dien tich la',dt)
readln
end.
Xem thêm câu trả lời
Cho chương trình sau, em hãy tìm lỗi sai và sửa lại cho đúng? using namespace std; #include ; defint c=3 a, b: int; float c; { a:=20 b:=a/c; cout
bạn ghi xuống dòng được ko chứ bạn ghi thế này mình chả hiểu gì cả
Đúng 0
Bình luận (0)
26 tháng 4 2023 lúc 18:55
Hãy tìm lỗi trong đoạn chương trình sau và sửa lại cho đúng:
| Program Tinhoc | Program Tinhoc; |
| Var i,n,S:real | Var i,n,S:real |
| Begin | Begin |
| Write(nhap so); | Write("nhap so"); |
| readln(n); | readln(n); |
| i=1; | i:=1; |
| while i<n | while i<n do |
| begin | begin |
| s:=s+i | s:=s+i; |
| i:=i+1 | i:=i+1; |
| end; | end; |
| write('Ket qua la: ' S); | write('Ket qua la: ' ,S); |
| readln; | readln; |
| end | end. |
Đúng 1
Bình luận (0)
Cho đoạn chương trình sau. Em hãy tìm lỗi sai và sửa lại, sắp xếp cho đúng? Tính giá trị biểu thức: 12.x – 30 + 12 Uses CRT: Clrscr. Begin Writeln(‘Gia tri bieu thuc 12.x – 30 + 12 ’ , 12 *x – 30 + 12: 5:3) Program Tinh _gia_tri_bieu_thuc; Var x: Real; Write(‘Nhap gia tri x: ’); readln(x); Readln; End.
Đọc tiếp
Cho đoạn chương trình sau. Em hãy tìm lỗi sai và sửa lại, sắp xếp cho đúng?
Tính giá trị biểu thức: 12.x – 30 + 12
Uses CRT:
Clrscr.
Begin
Writeln(‘Gia tri bieu thuc 12.x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3)
Program Tinh _gia_tri_bieu_thuc;
Var x: Real;
Write(‘Nhap gia tri x: ’); readln(x);
Readln;
End.
Program Tinh _gia_tri_bieu_thuc;
Uses CRT;
Var x: Real;
Begin
Clrscr;
readln(x);
Writeln(‘Gia tri bieu thuc 12*x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3');
Write(‘Nhap gia tri x: ’);
Readln
End.
Đúng 0
Bình luận (0)
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 bai tap 1; -> Program Bai_tap_1;
Uses CRT -> Uses CRT;
Var a;=integen; -> Var a: integer;
b;=real; -> b: real;
Constc;=3; -> Const c=3;
Begin
a:=200;
b:=a/c;
Readln;
End -> End.
Đúng 1
Bình luận (0)
Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;
Đúng 1
Bình luận (0)
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ Tìm và sửa lỗi trong chương trình pascal sau: var T, So, D: longint; begin T: 0; D: 0; repeat write(Nhap so: ); readln(So); if T + So 15000 then begin T: T + So; D: Dem + 1; end; until T 15000; write...
Đọc tiếp
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ
Tìm và sửa lỗi trong chương trình pascal sau:
var T, So, D: longint;
begin
T:= 0;
D:= 0;
repeat
write('Nhap so: ');
readln(So);
if T + So <= 15000 then
begin
T:= T + So;
D:= Dem + 1;
end;
until T >= 15000;
writeln('Tong cac so la: ', Tong);
writeln('Tong so da nhap: ', Dem);
readln;
end.
Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem
Đúng 0
Bình luận (0)
Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()
Đúng 0
Bình luận (0)
Tìm lỗi sai trong mỗi câu sau, gạch chân lỗi sai và sửa lại cho đúng.1. My bike is blue but your is red …………………………..2. His house is large than mine. ………………………….3. This desk is as longer as that desk ………………………….4. My father have to finish his work on time ………………………….5. We didnt watched that movie last night. ...............
Đọc tiếp
Tìm lỗi sai trong mỗi câu sau, gạch chân lỗi sai và sửa lại cho đúng.
1. My bike is blue but your is red …………………………..
2. His house is large than mine. ………………………….
3. This desk is as longer as that desk ………………………….
4. My father have to finish his work on time ………………………….
5. We didn't watched that movie last night. ..........................................
1 your->yours
2 large->larger
3 longer->long
4 have->has
5 watched->Watch
\(#TyHM\)
Đúng 4
Bình luận (0)
Tìm lỗi sai trong các câu sau và sửa lại cho đúng
He are from Malaysia.
